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PHASE B 

1 
2 
3 



3 WRITE-REAO DESIGNED TO SEE THAT ADDRESS 
ADDRESS MARK MARKS CAN BE WRITTEN AND 

READ CORRECTLY. 

4 RD TRACK OF FORMATS A FULL TRACK OF RECORDS 
ADDRESS MARKS THEN CHECKS TO SEE THAT NONE 

ARE MISSED WHEN READ. 

5 FALSE ADDRESS FORMATS RECORDS THAT APPROXIMATE 
MARK TEST ADDRESS MARKER THEN CHECKS FOR 

ERRORS WHEN THEY ARE READ. 

1 CONTROL UNIT BUSY, CONTROL UNIT END 

2 UNIT EXCEPTION 

3 COMMAND REJECT ON INVALID COMMANDS 

1 HALT I/O ON READ 

2 HALT I/O ON WRITE 

3 READ I PL 



1 SEARCH COMMANDS 

1 FILE PROTECT 

1 CHANNEL/2841 OVERRUN SENSE BIT 

2 TRACK CONDITION CHECK SENSE BIT (DEFECTIVE TRK ) 

3 TRACK CONDITION CHECK SENSE BIT (ALTERNATE TRACK) 

4 SEEK CHECK SENSE BIT (INVALID ARGUMENT) 

5 SEEK CHECK SENSE BIT (4 BYTES) 

6 TRACK OVERRUN SENSE BIT 

7 END OF CYLINDER SENSE BIT 

8 NO RECORD FOUND SENSE BIT 



2.2 EQUIPMENT REQUIREMENTS 

- CENTRAL PROCESSOR WITH THE STANDARD INSTRUCTION SET. 
COMPLETELY OPERATIVE. 

- SELECTOR CHANNEL (MUST BE FULLY OPERATIONAL) 

- HARD COPY OUTPUT DEVICE. 

- METHOD OF LOADING PROGRAM. 

- IBM 2841 CONTROL UNIT 

- 2311 - WITH CE DISK PACK INITIALIZED WITH P ID 0814 OR A SCRATCH PACK 
INITIALIZED WITH A PROGRAMMING SYSTEM DISK INITIALIZER. 

** NOTE- UTILITY PROGRAM PID 0814 (CE PACK INITIALIZER) WHITES HOME 
ADDRESSES. DO NOT USE PID 0814 UNLESS SUBSYSTEM IS 
COMPLETELY OPERATIONAL. AND THEN ONLY WHEN HOME ADDRESSES ARg 
NOT ALREADY PRESENT. 

♦♦WARNING** DO NOT USE PID 0814 TO INITIALIZE CUSTOMER PACKS BECAUSE HOME 
ADDRESS ARE NOT WRITTEN ON THE CE CYLINDERS. ERRORS WILL Bfc 
DETECTED BY THE CUSTOMER WHEN SEEKS ARE MADE TO INVALID OR 
MISSING HOME ADDRESS. IF A CUSTOMERS SCRATCH PACK IS USED, 
IT SHOULD BE INITIALIZED WITH A PROGRAMMING SYSTEMS DISK 
INITIALIZER. 

3. USE PROCEDURE. 

3.1 PROGRAM LOADING. 

STANDARD MONITOR LOADING PROCEDURES DO NOT APPLY TO THIS DFT. THE 
FOLLOWING PROCEDURE DETAILS LOADING AND RUNNING THE 3 PART DECK 
THAT IS PID 0811. 

LOADING THE PROGRAM- 

1. PLACE THE DIAGNOSTIC MONITOR AND ALL 3 DECKS 
(PHASE A,B, 6- C) IN THE 1442 HOPPER. 

2. PROGRAM LOAD THE MONITOR. IT WILL STOP AT WAIT 2 (3002). 

3. TURN ON D/E SWITCH 8 TO INHIBIT LOADING ALL BUT THE FIRST 
DECK. 

4. PUSH START. 



PHASE C 

1 1 

2 1 

3 1 



INVALID SEQUENCES 
SPACE COUNT 
OVER/UNDER TRUNCATION 



2* PREREQUISITES 

2.1 PROGRAM REQUIREMENTS 

-1800 DIAGNOSTIC MONITOR PROGRAM- AT LEAST 8K OF CORE 

-SECTIONS SHOULD BE RUN IN SEQUENTIAL ORDER FOR CORRECT INDICATION 



RUNNING THE PROGRAM- 

1. EXECUTE THIS DFT AS EXPLAINED BELOW. PHASES A.B. 
ARE RUN ALIKE BUT MUST BE RUN SEPARATELY. 



& C 



2. AT 'END OF DFT' PRINTOUT OR WHENEVER IT IS DEEMED 
NECESSARY TO GO ON TO PHASE B OR C TURN ON MONITOR 
FUNCTION BIT 9 AND CAUSE ^CONSOLE INTERRUPT', THIS 
WILL RETURN TO THE LOADER. 

3. AT MONITOR WAIT 4 PERFORM STEPS 3 & 4 OF LOADING 
DESCRIPTION ABOVE AND CONTINUE. 

** NOTE - DO NOT INCLUDE DEVICE ADDRESS ON 
MONITOR EDIT. ENTER COMPLETE DEVICE ADDRESS IN 
BITS 8-15 OF SW FNC 2 WHEN PROGRAM COMES TO 
•SELECT OPTIONS' HALT (SEE 3.3). 



DATF 



uunvMi 



1A IAK1-7A 



1 EC C07 « 



pane in 



DATF. 
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1 r. 1 A fcl',1 
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NECESSARY INSTRUCTIONS TO EXIT THE ERROR HALT LOOP ACCOMPANY ENTRY TO 
THE LOOP VIA A PRINTOUT. WHILE IN THE LOOP VARIOUS SWITCH FUNCTION 
OPTIONS CAN BE ENTERED ALONG WITH BIT 15=0 WHICH PROVIDES THE EXIT. BIT 
15=0 ALONE WILL RESULT IN A NORMAL EXIT, IN MOST CASES THE ROUTINE 
WILL TERMINATE. 

1. SETTING BIT 12 WILL EXIT TO THE FUNCTION THAT CAUSED THE ERROR. 

2. SETTING BIT 8 WITH 12 WILL EXIT TO THE FAILING FUNCTION AND 
LOOP ON THE BRANCH TO SIO ROUTINE 

(TIGHT SCOPE LOOP) 

3. SETTING BIT 13 WITH 12 WILL EXIT TO THE FAILING FUNCTION 

AMD LOOP THROUGH THE ROUTINE WITHOUT CHANGING ANY PARAMETERS, 
PRINTING ERRORS, OR HALTING ON THE ERROR. {LONG SCOPE LOOP) 

THESE OPTIONS SHOULD BE THE MOST USEFUL. SEE TABLE OF OPTIONS FOR 

OTHER APPLICATIONS. 

** NOTE- THIS PROGRAM IS DESIGNED TO BE MOST EFFECTIVE WHEN RUNNING 
UNDER -HALT AFTER ERROR-. IF USER WISHES TO RUN IN THIS MODE 
SWITCH FUNCTION 0, BIT 14 MUST BE TURNED ON. 

** NOTE - IF ERRORS APPEAR TO BE DUE TO THE 2311 DRIVE, THE DISK 
PACK INSTALLED OR THE 2311/2841 INTERFACE, IT MAY BE HELPFUL 
TO RUN PID 0812 (2311 DFT). 

** NOTE - IF THE SELECTOR CHANNEL AND THE LOG DEVICE SHARE A DATA 

CHANNEL, CAUSING A CONSOLE INTERRUPT MAY RESULT IN MONITOR WAIT 9 
(3009). 

3.4 PROGRAM TERMINATION. 



FFFF-RESIDUAL BYTE COUNT AT ENDING STATUS TIME 
G-SENSE BYTE ONE RECEIVED 
H-SENSE BYTE TWO RECEIVED 
I-SENSE BYTE THREE RECEIVED 
J-SENSE BYTE FOUR RECEIVED 
00-THESE SHOULD BE ZERO'S AT ALL TIMES 

THE THIRD LINE OF THE PRINTOUT (S/B) INDICATES THE INFORMATION 
EXPECTED AS A RESULT OF THE OPERATION. THE MEANING OF EACH 
POSITION IN THE LINE IS THE SAME AS IN LINE 2. 

ANY POSITION IN THE LINE WHICH HAS BEEN X'EO OUT MEANS THAT 
THIS PORTION OF THE WORDS WERE NOT CHECKED AGAINST THE WAS DATA. 

SSSS-DATA READ-THIS IS THE DATA ACTUALLY READ BY THE 2311. 
TTTT-DATA S/B-THIS IS THE DATA EXPECTED BY THE PROGRAM 
UUUU-WORD COUNT-THE WORD IN THE DATA FIELD WHICH FAILEO (IF ANY) 
TO MATCH THE EXPECTED DATA. 

** NOTE ** 

ANY ONE FIELD FAILING IN THE ABOVE PRINTOUT WILL GENERATE 
THE ENTIRE PRINTOUT. EACH FIELD, THEREFORE, MUST BE CAREFULLY 
CHECKED TO ACCUMULATE ALL AVAILABLE INFORMATION. 

ERROR NUMBER FORMAT 

THE SECONDARY MESSAGE IS AN ERROR NUMBER. THE PURPOSE OF THE NUMBER 



LEND OF NORMAL TEST. 

•END OF DFT« MESSAGE IS PRINTED AT COMPLETEION OF TEST PHASE. 
PROGRAM PHASE WILL TERMINATE UNLESS MONITOR FNC 0, SW 11 IS ON (LOOP 



PROGRAMS). 



4.0 PRINTOUTS 



4.1 MESSAGE FORMATS 



THE PRIMARY MESSAGE FROM THIS PROGRAM (PHASES B 6 C) IS PROVIDED BY THE 
CHECK SUBROUTINE (GENERAL ERROR MESSAGE 'GEM') THE PURPOSE OF THE GEM IS 
TO SUPPLY ALL POSSIBLE STATUS AND DATA CONDITIONS RECEIVED AND EXPECTED. 
THE FIRST LINE IN THE GEM WILL CONTAIN ROUTINE SUPPLIED ENGLISH OR 
AN ERROR NUMBER WHICH WILL BE FURTHER DESCRIBED IN SECTIONS 4.4 TO 4.12. 

1100 **ER SECT- SS.RTN- RR (60 CHARACTERS OF ROUTINE INFORMATION) 

CAW AAAA CSW BBOO CCDD EEEE FFFF SNS GGGGGGGG HHHHHHHH IIIIIIII JJJJJJJJ 
S/B KKOO XXLL MMMM NNNN S/B OOOOOOOO PPPPPPPP QQQQQQQQ RRRRRRRR 
DATA READ WAS SSSS 
DATA READ S/B TTTT 
WORD CNT WAS UUUU 



WHERE 



AAAA-STARTING ADDRESS OF THE COMMAND CHAIN 

BB-CHANNEL STATUS RECEIVED 

CC-UNIT ADDRESS RECEIVED 

DD-UNIT STATUS RECEIVED 
EEEE-CHANNEL ADDRESS REG AT ENDING STATUS TIME 



IS TO REFER THE USER TO A DESCRIPTION OF THE ERROR CONDITION IN THIS 
DOCUMENT. THE ERROR DESCRIPTION PROVIDES DIAGNOSTIC 
INFORMATION ABOUT THE ERROR AND SCOPE LOOP OPTIONS. 

1. SIO.TIO, SENSE I/O, ERRORS 

1100 ** XX ERROR ON SIO. SECTION S. ROUTINE R. UNIT UU ADRS AAAA 

2. ERROR NUMBER WITH MESSAGE. 

1100 ** ER SRXX MESSAGE..... UNIT UU ADRS AAAA 

3. NORMAL ERROR NUMBER PRINTOUT. 

HOO ** ER SRXX UNIT UU ADRS AAAA 

4. THE SECOND LINE OF AN ERROR PRINTOUT GIVES VARIABLE DATA ON MACHINE 
CONDITIONS. 

CAW KKKK CSW YYYY UU2Z ADRS CNTR SNS B-B B-B B-B B-B 
5. EXPLANATION OF CHARACTERS- 

S SECTION NUMBER 

R ROUTINE NUMBER 

XX SEQUENTIAL ERROR NUMBER WITHIN EACH ROUTINE 

UU CHANNEL AND DEVICE ADDRESS IN HEX 

AAAA ADDRESS OF ERROR BRANCH t STORE I-REG INSTRUCTION IN LISTING 

KKKK CHANNEL ADDRESS WORD FOR THE CCW CHAIN 

ADRS CHANNEL CCW ADDRESS REGISTER 

YYYY CHANNEL STATUS IN HEX 

UUZZ UNIT ADDRESS/UNIT STATUS IN HEX 

CNTR CHANNEL BYTE COUNT REGISTER 

B-B SENSE BYTES IN BINARY 
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PROGRAM EXECUTED A SENSE I/O AND GOT A NOT OPERATIONAL CONDITION. 
THE PRINTOUT GIVES THE SECTION AND ROUTINE BEING EXECUTED WHEN 
THIS ERROR OCCURRED. 

- DIAGNOSTIC INFORMATION - 

THIS ERROR SHOULD NEVER OCCUR ONCE THE PROGRAM IS UNDER WAY, 
IF IT DOES 

1. CHECK TO BE SURE THE CORRECT UNIT ADDRESS WAS 
ENTERED IN SW FUNCTION 2. 

2. CHECK TO BE SURE THAT THE INTERFACE IS STILL 
ENABLED. 

3. IF THE ABOVE CONDITIONS ARE TRUE THEN THE POSSIBILITY 
OF AN INTERMITTENT INTERFACE PROBLEM IS HIGH. 

- USER OPTIONS - 

1. RESET AND RESTART. 

2. RERUN SECTION 1 OF THE DIAGNOSTIC 



- USER OPTIONS - 

1. REFER TO SECTION 3.3. 

1102 - CONDITION CODE 2 ON TEST CHANNEL COMMAND - 

A CONDITION CODE 2 WAS DETECTED ON A TEST CHANNEL COMMAND INDICATING 
CHANNEL OR SUBCHANNEL BUSY. 

- DIAGNOSTIC INFORMATION - 

THE CHANNEL MUST BE CLEARED OF BUSY CONDITION BEFORE ANY OTHER COMMANDS 
MAY BE EXECUTED. (MAY REQUIRE RESET-RESTART) 

- USER OPTIONS - 

1. REFER TO SECTION 3.3. 



25 



- ERROR IN SEEK RTN THAT POSITIONS ACCESS PRIOR TO ROUTINES 

A SUBROUTINE WAS ATTEMPTING TO SEEK AND READ THE HOME ADDRESS OF THE FILE 
BEING TESTED AND A FAILURE HAS OCCURRED. THE HOME ADDRESS EXPECTED AND 
THE HOME ADDRESS ACTUALLY READ ARE PRINTED WITH THIS ERROR. THE 
OPERATION WILL BE RE-ATTEMPTED A TOTAL OF FOUR MORE TIMES BEFORE THE 
ROUTINE IS ABORTED. (**HARD ERRORS* PROG TERM). THE ROUTINES THAT 
FOLLOW CANNOT RUN UNLESS A SUCCESFUL SEEK CAN BE PERFORMED. 

- DIAGNOSTIC INFORMATION - 

1. FAILURE TO SEEK TO THE CORRECT TRACK. 

2. POSSIBLE FAILURE TO READ HOME AOD RESS CORRECTLY. 

3. POSSIBILITY OF NO HOME ADDRESSES WRITEN ON TRACK. 

- USER OPTION - 



RERUN SECTION 1 OF THIS DIAGNOSTIC 
RUN THE 2311 DIAGNOSTIC <PID 0812) 



***NOTE IF ERRORS ARE UNCOVERED IN SECTION 1, ROUTINE I THROUGH 5, 
THEN THE SELECTOR CHANNEL D I AGNOST IC (PID 08 10) SHOULD BE RUN 
BEFORE PROCEDING WITH THIS DIAGNOSTIC. 

4.2*2 ERRORS IN PHASE A 

1101 - CONDITION CODE 1 ON A TEST CHANNEL COMMAND 

THE FIRST COMMAND IN THIS DIAGNOSTIC PROGRAM IS A TEST CHANNEL TO 
DETERMINE THAT THE CHANNEL IS AVAILABLE. A CONDITION CODE 1 (UNIT 
STATUS PENDING) WAS DETECTED ON THE FIRST TEST CHANNEL COMMAND. THE 
PROGRAM EXECUTED A TEST I/O TO CLEAR THE INTERRUPT CONDITIONS AND 
THEN RETRIED THE TEST CHANNEL COMMAND. THE CONDITION CODE 1 CONDI- 
TION WAS STILL PRESENT. 

- DIAGNOSTIC INFORMATION 

THE CHANNEL MUST BE CLEARED OF PENDING INTERRUPTIONS BEFORE ANY 
OTHER COMMANDS MAY BE EXECUTED. 



1103 - CONDITION CODE 3 ON A TEST CHANNEL COMMAND - 

CONDITION CODE 3 WAS DETECTED ON A TEST CHANNEL COMMAND INDICATING 
CHANNEL IS NOT OPERATIONAL. 

- DIAGNOSTIC INFORMATION - 
CHANNEL IS NOT OPERATIONAL 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

1201 - INCORRECT STATUS IN CHANNEL STATUS 

PROGRAM ATTEMPTED TO EXECUTE A HALT I/O COMMAND AND DETECTED INCORRECT 
STATUS IN CHANNEL STATUS WORD. 

- DIAGNOSTIC INFORMATION - 

1 . NO SELECT OUT 

2. SOLID ADDRESS OUT 

3. SOLID COMMAND OUT 

4. HALT I/O LATCH ON 

5. NO DW REG GATE 

-6. SOLID BUSS IN BITS 1,2.4.5.6 AND 7 

7. OFF - BUSS IN BITS P.O. 3 

8. SOLID ADDRESS IN 

9. NO GATE D BUSS TO IG REG 

10. NO IG 7 BIT 

11. NO INITIAL SELECT 

12. SOLID FILE ENTRY BIT 

13. SOLID FILE ENTRY BIT 1,2,3,4 AND 7 

14. SOLID OPERATIONAL IN 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

1202 - INCORRECT STATUS IN UNIT STATUS 
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- DIAGNOSTIC INFORMATION - 

SOME UNSELECTED ACCESS HAS A FILE SAFETY (FS) LINE - UP - TO THE 
2841. 

1. SOLID MOD SELECT ( FD 02 1 ) 

2. SOLID SELECTED READY <FD025) 

3. SOLID SELECTED END OF CYL. (FD025) 

4. SOLID UNSAFE <FD025) 

- USERS OPTIONS - 



DIAGNOSTIC INFORMATION - 

1. SUSPECT ERRONEOUS END OF CYLINDER FROM FILE BUS 4 (F0020) 

2. NO HAR RESET IF THIS ERROR OCCURS ON 2ND TIME THROUGH THIS 
SECTION (FD065) 

3. NO FILE BUS 2 

USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



1. SYSTEM RESET AND EXAMINE -FS- LINES TO DETERMINE WHICH ACCESS 
LINE IS INCORRECT. 

2. SEE 3.3 FOR ERROR EXIT OPTIONS 

1308 - UNIT CHECK ON TEST I/O 

PROGRAM RECEIVED A UNIT CHECK ON A TEST I/O COMMAND AND ISSUED A 
SENSE COMMAND. PROGRAM HAS DETERMINED THAT UNIT CHECK WAS NOT 
CAUSED BY UNSAFE. NOT ON LINE. NOT READY. OR UNSELECTED STATUS. 
THUS, SOME OTHER CONDITION CAUSED THE UNIT CHECK. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT SEEK INCOMPLETE, BUSS OUT PARITY, OR SEEK CHECK. BIT 
SHOULD SHOW UP IN SENSE DATA PRINTED WITH ERROR TYPEOUT. 

- USER OPTIONS - 



SEE 3.3 

TRY TURNING FILE DRIVE OFF -ON AND RESET-RESTART 



1309 - CONDITION CODE 1 BUT NO CHANNEL STATUS. 

PROGRAM RECEIVED A CONDITION CODE 1 ON A TEST I/O, BUT NO CHANNEL 
STATUS WAS STORED, NO UNIT CHECK OCCURED » AND CONTROL UNIT IS NOT 
BUSY. 

- DIAGNOSTIC INFORMATION - 

1. SOLID SELECTED SEEK START 

2. POSSIBLY LOSING READY AT FILE DRIVE WITH A SOLID FILE BUS 6 
(FD021 ) 

3. SOLID RESTORE < FD 02 1 ) 

4. COULD HAVE GOTTEN AN UNEXPECTED DEVICE END, IF USER POWERED 
OFF-ON THE FILE. (DETENT CAUSES DEVICE END) 

- USER OPTIONS - 

1. TRY STARTING TEST OVER, LEAVE FILE DRIVE ON. IF SAME FAILURE 
OCCURS, DETERMINE WHY 2841 IS HANGING IN LOOP OR WHY DRIVE IS 
LOOSING READY. 

2. OPTIONAL SCOPE LOOPS, SEE 3.3 




1311 - CONTROL UNIT HUNG UP BUSY 

PROGRAM RECEIVED A CONDITION CODE 1 ON A TEST I/O WITH CONTROL 
UNIT BUSY, (STATUS MODIFIER AND BUSY IN CSW.) 

- DIAGNOSTIC INFORMATION - 

1. NO MCD SELECT (FD021) 

2. ATTENTION LATCH (FD053) ALWAYS ON. 

3. DELTA ATTENTION LATCH (FD053) ALWAYS ON. 

4. SOLID FILE BUS 2 (FD020) 

5. SOLID CONTROL UNIT BUSY 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

1401 - CHANL. STATUS OR UNIT CHECK ON NO OP COMMAND 

PROGRAM EXECUTED A NO OP COMMAND AND OETECTED ERROR STATUS OR 
UNIT CHECK 

- DIAGNOSTIC INFORMATION - 

1. IF END OF CYLINDER BIT ON, CHECK FOR SOLID FILE BUS 7.(FD021) 

2. OTHERWISE. EXAMINE SENSE DATA TO DETERMINE CAUSE OF STATUS OR 
UNIT CHECK. 

- USERS OPTIONS - 

REFER TO SECTION 3.3 

1402 - NO CHANL OR DEVICE END ON NO OP. COMMAND 

PROGRAM ATTEMPTED A NO OP COMMAND BUT DID NOT RECEIVE CHNL AND 
DEVICE END IN THE CHANNEL STATUS WORD. 

- USER OPTIONS - 

REFER TO SECTION 3.3 



1310 - UNEXPECTED END OF CYLINDER - 

PROGRAM RECEIVED A UNIT CHECK ON A TEST I/O COMMAND AND 
DETERMINED THAT END OF CYL. BIT IS ON. 



1403 - CONDITION 0, 2, OR 3 ON NO OP COMMAND. 

PROGRAM EXECUTED A NO OP COMMAND AND DETECTED INCORRECT CONDITION 
CODE. (SHOULD GET CC1 UNIT STATUS PENDING) 

- DIAGNOSTIC INFORMATION - 

1. POSSIBLE SOLID FILE BUS 7 (FD021) 
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11* NO BIT RING RESET 

12. SOLID BIT RING RESET 

13. NO GATE VFO INPUT 

14. SOLID GATE VFO INPUT 

15. NO VFO GATE A 

16. SOLID VFO GATE A 

17. NO DELTA BIT RING ADVANCE DRIVE 

18. NO BIT RING 0,5,6, OR 7 

19. NO DELTA BIT RING 

- USER OPTIONS - 

REFER TO SECTION 3.3 

1703 - DATA CHECK ON READ HOME ADDRESS COMMAND - 

PROGRAM ATTEMPTED TO EXECUTE A READ HOME ADDRESS AND DETECTED 
A DATA CHECK. 



1. WRITE GATE ALWAYS ON 

- USER OPTIONS - 
REFER TO SECTION 3.3 

1707 - TIME OUT ERROR ON SEEK AND READ HOME ADDRESS - 

PROGRAM ATTEMPTED TO EXECUTE A SEEK AND READ HOME ADDRESS COMMAND 
(CYL 000 HD 0/1) AND TIMED OUT WAITING FOR AN I/O INTERRUPT. 

- DIAGNOSTIC INFORMATION - 

1. NO INDEX 

2. NO BIT RING 1,2,3. OR 4 

3. SOLID INDEX 



- DIAGNOSTIC INFORMATION - 

1. 2311 ADDRESS MARK ON 

2. NO GATE FILE DATA REG TO DR REG 

3. SOLID FDR RESET 

4. NO FDR RESET 

5. NO FDR ZERO DATA 

6. NO FDR BIT 1,2,3.4,5.6. OR 7 

7. DATA GOOD LATCH ON 

- USER OPTIONS - 
REFER TO SECTION 3.3 



- USER OPTIONS - 
REFER TO SECTION 3.3 

1708 - TIMEOUT ERROR ON READ HOME ADDRESS - 

PROGRAM ATTEMPTED TO READ HOME ADDRESS ON CVL 000 K> 0/1 
AND TIMED OUT WAITING FOR AN I/O INTERRUPT. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 
180 1 - CSW ERROR ON READ RECORD COMMAND - 



1764 - UNIT CHECK ON READ HOME ADDRESS - 



PROGRAM ATTEMPTED TO READ HOME ADDRESS IN CYL 000 HD 0/1 
AND RECEIVEO UNIT CHECK IN RESULTING UNIT STATUS. 



PROGRAM ATTEMPTED TO EXECUTE A READ RECORD COMMAND AND DETECTED 
UNIT STATUS OTHER THAN 'CHANNEL END'. 'DEVICE END' (OOOC) 

- USER OPTIONS - 



- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

1705 - NO RECORD FOUND ON READ HOME ADDRESS COMMAND - 

PROGRAM ATTEMPTED TO EXECUTE A READ HOME ADDRESS COMMAND AND 
DETECTED NO RECORD FOUND. 

PROGRAM COULD NOT FIND HOME ADDRESS. 

- USER OPTIONS - 



CHECK THAT CE STORAGE DEVICE HAS BEEN FORMATTED. 
REFER TO SECTION 3.3 FOR LOOP OPTIONS 



1706 - EQUIPMENT CHECK ON READ HOME ADDRESS COMMAND - 

PROGRAM ATTEMPTED TO EXECUTE A READ HOME ADDRESS COMMAND AND 
DETECTED AN EQUIPMENT CHECK. 

- DIAGNOSTIC INFORMATION - 



1. ANALY2E SENSE BYTES IF UNIT CHECK IS ON. 

2. ANALYZE CSW FOR TYPE OF FAILURE. 

3. REFER TO SECTION 3.3 FOR LOOP OPTIONS 



1802 - NO INTERRUPT FROM REAO RO 

PROGRAM ATTEMPTED TO EXECUTE A READ RO COMMAND AND TIMED OUT WAITING 
FOR AN I/O INTERRUPT. 

- DIAGNOSTIC INFORMATION - 
CONTROL UNIT IS PROBABLY HUNG KIP 

- USER OPTIONS - 
REFER TO SECTION 3.3 

1901 - UNIT CHECK ON SEEK CCW CHAIN - 

PROGRAM ATTEMPTED TO EXECUTE A CHAIN OF CCWS (RECALIBRATE. SEEK 0, 
SEEK, SEEK, READ HOME ADDRESS) AND DETECTED A UNIT CHECK. 

- DIAGNOSTIC INFORMATION - 
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- SOLID ADDRESS MARK GOOD 

- SOLID COUNT 8 



- USER OPTIONS - 

REFER TO SECTION 3.3 



21«4 - DATA READ DID NOT COMPARE WITH DATA WRITTEN 

THE PROGRAM HAS ATTEMPTED TO SEARCH A HOME ADDRESS. THEN WRITE AND READ 
A 106 BYTE PATTERN OF BITS (ALL 256 COMBINATIONS ARE TRIED). THIS IS 
THE FIRST TIME THE PROGRAM HAS ATTEMPTED TO WRITE. 

PREVIOUS TO THIS ERROR NUMBER. THE PROGRAM HAS CHECKED FOR THE FOLLOWING 

ERRORS MISSING ADDRESS MARK/NO RECORD FOUND. SERI ALI2ER/DESERI ALI 2ER , 

NO RECORD FOUND. AND DATA CHECK. THIS ERROR IS SOMETHING OTHER THAN THE 
ERRORS JUST LISTED. 

- DIAGNOSTIC INFORMATION - 

IF THERE HAVE BEEN NO FAILURES IN THE PREVIOUS SECTIONS. THE READING 
ABILITY OF THE FILE BEING TESTED HAS BEEN ESTABLISHED. THIS FAILURE 
CAN BE ASSUMED A WRITE FAILURE. SOME OF THE POSSIBLE CAUSES OF THIS 
FAILURE MAY BE 

- SOLID DOUBLE FREQUENCY WRITE DATA 

- NO RESET STATUS REGISTER BIT 4 

- NO WRITE OSCILLATOR 

- USER OPTIONS - 

REFER TO SECTION 3.3 



- USER OPTIONS - 

REFER TO SECTION 3.3 

2201 - UNIT CHECK ON WRITE/READ RO RECORD 

THE PROGRAM WAS ATTEMPTING TO WRITE. THEN READ. 63/64 THE MAXIMUM NUMBER 
OF BYTES THAT CAN BE WRITTEN FOR AN RO RECORD. THE ATTEMPT 
WAS UNSUCCESSFUL. 

- DIAGNOSTIC INFORMATION - 

A POSSIBLE CAUSE OF THIS FAILURE MAY BE 

- SOLID COUNTER 2 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



2202 - TIMEOUT ERROR ON SIO TO WRITE RO OF 10.000 BYTES - 

THE PROGRAM ATTEMPTED TO WRITE A RECORD RO OF 10.000 BYTES 
TO DETERMINE CAPACITY OF TRACK BEFORE OVERRUN. THE PROGRAM 
TIMED OUT WHILE AWAITING AN I/O INTERRUPT FROM THIS OPERATION. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



2105 - NO CONTROL UNIT BUSY RECEIVED - 

THE PROGRAM HAS ATTEMPTED TO WRITE HOME ADDRESS FOLLOWED 
IMMEDIATELY BY TIO. THE DEVICE SHOULD CONTINUE TO ERASE 
THE REMAINDER OF THE TRACK AND RESPOND TO THE TIO WITH 
CONTROL UNIT BUSY. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



2203 - TIMEOUT ERROR ON SIO TO WRITE/READ LONG RO - 

63/64 OF THE BYTE CAPACITY OF THE TRACK IS USED AS THE RECORD 
SIZE AS THE PROGRAM ATTEMPTS TO WRITE/READ RO. THE PROGRAM 
TIMED OUT WHILE AWAITING AN I/O INTERRUPT AFTER THIS OPERATION. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



2106 - TIMEOUT ERROR ON WRITE/READ - 

THE PROGRAM HAS ATTEMPTED TO WRITE AND READ RO AND HAS 
TIMED OUT WHILE WAITING FOR I/O INTERRUPT. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



2200 - NO TRACK OVERRUN 

THE PROGRAM HAS ATTEMPTED TO WRITE A LONG RECORD TO DETERMINE THE 
MAXIMUM TRACK LENGTH OF THE FILE BE ING TESTED . THIS ERROR WAS PRINTED 
BECAUSE THE EXPECTED OVERRUN. WHICH SHOULD HAVE BEEN THE RESULT OF 
THE CCW CHAIN. WAS MISSING. 



2300 - UNIT CHECK WHILE WRITING RO AND Rl RECORDS 

THE PROGRAM WAS ATTEMPTING TO WRITE RO AND Rl RECORDS WITH A DATA LENGTH 
OF ONE. THE PURPOSE OF WHICH IS TO FORMAT THE TRACK WITH AN ADDRESS 
MARK WHICH CAN BE SEARCHED FOR IN THE FOLLOWING TEST. THE ATTEMPT TO 
WRITE THE ADDRESS MARK WAS UNSUCCESSFUL. 

- USER OPTIONS - 



ANALYZE SENSE DATA TO DETERMINE CAUSE OF WRITE FAILURE 
REFER TO SECTION 3.3 FOR LOOP OPTIONS 



2301 



UNIT CHECK WHILE ATTEMPTING TO READ COUNT OF Rl RECORD 

A UNIT CHECK HAS OCCURRED WHILE THE PROGRAM WAS ATTEMPTING TO READ THE 

COUNT OF AN Rl RECORD. THE PURPOSE OF THIS TEST WAS TO SEE WHETHER OR 
NOT ADDRESS MARKS COULD BE FOUND. 
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- USER OPTIONS - 

REFER TO SECTION 3.3 

2504 - TOO MANY RECORDS WRITTEN ON TRACK - 

OVER 100 RECORDS WERE WRITTEN WHILE FORMATTING TRACK 
OF ADDRESS MARKS. 

3101 - SOME BITS ON IN UNITS OTHER THAN CHANNEL/DEVICE END 



4106 - DATA TRANSFER NOT HALT.ED - 

THE PROGRAM ISSUED A HALT I/O COMMAND DURING READING OF Rl 
BUT IN-CORE CHECKS REVEALED THAT THE FULL Rl BYTE COUNT WAS 

TRANSFERRED INTO CORE. 



4201 - TIMEOUT ERROR ON ATTEMPT TO FORMAT TRACK 

THE PROGRAM ATTEMPTED TO WRITE RO AND Rl AND TIMED OUT 

WAITING FOR I/O INTERRUPT. 



3102 - 2841 DIDN'T GO BUSY ON SEEK 

3201 - SOME ERROR IN CHANNEL STATUS WORD 

3202 - SOME ERROR IN SENSE BYTES 

3301 - SOME ERROR IN CHANNEL STATUS WORD 

3302 - SOME ERROR IN SENSE BYTES 

4101 - TIMEOUT ERROR ON ATTEMPT TO FORMAT TRACK - 

THE PROGRAM ATTEMPTED TO WRITE RO AND Rl AMD TIMED OUT WAITING 
FOR AN I/O INTERRUPT. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

4102 - READING OF Rl DID NOT OCCUR - 

THE PROGRAM ATTEMPTED TO READ Rl AND TIMED OUT WAITING FOR 
DATA TO BE TRANSFERRED INTO CORE. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



4202 



4203 



USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

READ COUNT Rl FAILED - 

THE PROGRAM ATTEMPTED TO READ COUNT FROM Rl AFTER TRACK 
WAS FORMATTED AMD THE COUNT WAS NOT TRANSFERRED INTO CORE. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

READ DATA Rl FAILED - 



THE PROGRAM ATTEMPTED TO READ COUNT FROM Rl AFTER TRACK 
WAS FORMATTED AMD THE DATA WAS NOT TRANSFERRED INTO CORE. 

USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



4204 - TIMEOUT ERROR ON ATTEMPT TO READ Rl - 

THE PROGRAM ATTEMPTED TO READ Rl AFTER THE TRACK 

WAS FORMATTED AND TIMED OUT WAITING FOR I/O INTERRUPT. 



4103 - NO HALT I/O INTERRUPT RECEIVED - 

THE PROGRAM ISSUED A HALT I/O COMMAND DURING READING OF Rl 
AND TIMED OUT WAITING FOR THE HALT I/O INTERRUPT. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

4104 - INVALID UNIT STATUS - 

THE PROGRAM ISSUED A HALT I/O COMMAND DURING READING OF Rl 
AND RECEIVED AN INVALID UNIT STATUS AFTER THE OPERATION WAS 
TERMINATED . 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 

4205 - READ COUNT Rl FAILED - 

THE PROGRAM ATTEMPTED TO READ COUNT FROM Rl PRIOR TO 

A WRITE OPERATION AND COUNT WAS NOT TRANSFERRED INTO CORE. 

- USER OPTIONS - 

REFER TO SECTION 3.3 FOR LOOP OPTIONS 



4206 - NO HALT I/O INTERRUPT RECEIVED - 

THE PROGRAM ISSUED A HALT I/O COMMAND WHILE WRITING OF Rl 
WAS IN PROGRESS AND TIMED OUT WAITING FOR A HALT I/O 
INTERRUPT. 
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14 
15 

16 
17 
18 

19 
20 



SRCH ID HI OR EQ (REC 0). READ KEY. DATA 

SRCH COUNT, KEY EQ (REC 2), SRCH ID HI OR EQ (REC 6) REA 

DATA 
SRCH KEY HI OR EQ (REC 8). READ DATA 

SRCH ID (REC 1). SRCH KEY HI OR EQ (REC 2). READ DATA 
SRCH ID (REC 1). SRCH KEY HI ORGEQ (REC 1). READ DATA 
SRCH ID (REC 1). SRCH KEY HI OR EQ (REC 2). READ DATA 
SRCH COUNT, KEY EQ (REC 2), SRCH KEY HI OR EQ (REC 3), 
READ DATA 



STATUS MESSAGES FOR SECTION 2 



FILE PROTECT 



REFER TO "GENERAL ERROR MESSAGE' 
SECTION 4.1 

THE FIRST LINE OF AN ERROR PRINTOUT WILL CONTAIN THE LINE 

MASK=XXXX 

WHERE XXXX WILL IDENTIFY THE FILE MASK THAT WAS SET DURING 

THE FAILING WRITE/SEARCH. ANALYSIS OF 'CAW' At© • CSW AOORS' WILL 

ENABLE LOCATION OF THE FAILING CHAIN IN THE PROGRAM LISTING. 



STATUS MESSAGES FOR SECTION 3 

REFER TO 'GENERAL ERROR MESSAGE' SECTION 4.1 FOR ALL 
ERRORS UNCOVERED IN SECTION 3 



**NOTE- 

•XXXX MEANS NOT COMPARED' 

THIS MESSAGE OCCURS AFTER THE RESULT MESSAGE. IT INDICATES THAT THE 

PORTION OF THE CHANNEL STATUS WORD INDICATED BY XXXX WAS NOT COMPARED. 



PHASE C 
4. STATUS MESSAGES FOR SECTION 1 - INVALID SEQUENCES 

SECT I ON 4.1 

THE FIRST LINE OF THE ERROR MESSAGE WILL CONTAIN AN ERROR 
NUMBER TO ALLOW CROSS REFERENCE OF THE PROGRAM LISTING AND 
WILL REFER TO THE CCW CHAIN DURING WHICH THE ERROR OCCURRED. 

•♦NOTE - THIS ROUTINE WILL TERMINATE AFTER 10 ERRORS 

STATUS MESSAGES FOR SECTION 2 - SPACE COUNT 

REFER TO 'GENERAL ERROR MESSAGE' SECTION 4.1 

THE FOLLOWING SPACE COUNT FUNCTIONS ARE CHECKED (THE USER CAN 

FIND OUT WHICH FUNCTION FAILED BY CROSS REFERENCING THE CAW WITH THE 

PROGRAM LISTING). 



1 . 
2. 
3. 
4. 
5. 
6. 



SPACE COUNT SHOULD SET FILE PROTECT SO AS TO 

INHIBIT ANY WRITE COMMANDS. 

IF INDEX IS DETECTED WHILE SPACE COUNT IS SEARCHING 

FOR AN AODRESS MARK, NO RECORD FOUND SHOULD BE SET. 

SPACE COUNT FOLLOWING A FORMAT WRITE SHOULD SET INVALID 

SEQUENCE. 

SPACE COUNT NOT CHAINED FROM A PREVIOUS COMMAND SHOULD 

SPACE OVER RECORD -0-. 

THREE CHAINED SPACE COUNTS NOT CHAINED FROM A PREVIOUS 

COMMAND SHOULD SPACE TO RECORD -2-. 

CHECK THAT SPACE COUNT WILL REQUEST -3- BYTES FROM 

THE CHANNEL AND USE THESE BYTES AS THE KEY AND OATA 

LENGTHS. (CORRECT LENGTHS PROV ID EO ) 

SAME AS NUMBER 6 EXCEPT DATA LENGTH IS INCORRECT. 

THIS WILL ALSO FORCE A BURST CHECK. THE ACTUAL AND 

EXPECTED CSW, SENSE, AND DATA ARE ALSO PRINTED OUT. 



STATUS MESSAGES FOR SECTION 3 - OVER/UNDER TRUNCATION OF COMMANDS 

REFER TO 'GENERAL ERROR MESSAGE' SECTION 4.1 

•TRUNC COMMAND CODE - XXXX 
TRUNC BYTE COUNT - YYYY' 

ERROR MESSAGE WHEN A TRUNCATION ERROR IS DETECTED 
(FOLLOWS 'GEM' PRINTOUT). 

UNDER TRUNCATION IS WHEN THE CHANNEL REQUESTS LESS BYTES THAN THERE 
ARE AVAILABLE. OVER TRUNCATION OCCURS WHEN THE CHANNEL REQUESTS 
MORE BYTES THAN THERE ARE AVAILABLE. 

CODE EXPLANATION — 

2841 OPERATION CODE 

WILL BE ONE OF THE FOLLOWING COMMANDS 



1A - READ HA 

16 - READ RO 

12 - READ COUNT 

06 - READ DATA 

OE - READ KEY-DATA 

IE - READ C-K-D 

19 - WRITE HA 

15 - WRITE RO 

CHANNEL ADDRESS WORD 



05 - WRITE OATA 

00 - WRITE KEY-OATA 

ID - WRITE C-K-O 

39 - SEARCH EQ-HA 

31 - SEARCH EO-ID 

29 - SEARCH EQ-KEY 

51 - SEARCH HI-ID 



POINTS TO CCW CHAIN 



TRACK FORMAT — 

HA, RO (K#2, D*4), Rl (K»0» 0*4). R2 (K»2, D»4) 



COMMAND 


NORMAL COUNT 


CHANNEL COUNT FOR TRUNCATION 


1A 


5 




3.9 


16 


14 




6. 8, 9, 10, 11. 12, 13. 15 


12 


8 




5,10 


06 


4 


(Rl) 


3,5 


OE 


6 


(R2) 


1 ,2 ,3,8 


IE 


14 


(R2) 


2.5,8,9, 10,11,17 


19 


5 




4,6 


15 


14 




2,8.11 ,17 


05 


4 


(Rl) 


3,5 


00 


6 


(R2) 


1 ,2 ,4,9 


ID 


14 


(R2) 


5,8,9,10,13,15 



39 



2,6 
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— ROUTINE 8- 



READ RECORD 



THE READ RECORD COMMAND INITIATED BY THIS ROUTINE IS USED 

TO CHECK DEVICE AND CHANNEL STATUS FOR PROPER EXECUTION OF THAT 

COMMAND. THE CONDITIONS CHECKED ARE 

DEVICE END INTERRUPT 
COMMAND NOT ACCEPTED 



— ROUTINE 9— 



SEEKS 



THIS ROUTINE WILL CAUSE EXECUTION OF A SERIES OF CCW3S 
USING EIGHT DIFFERENT SEEK ARGUMENTS. THE SEEK ARGUMENTS 
FOR THIS SERIES ARE CONTAINED IN SEEK TABLES THAT ARE DESIGNED 
TO USE THE MAXIMUM NUMBER OF BUSS AND DATA LINES. THE SERIES 

OF CCW»S IS REPEATED TEN (10) TIMES. NOTE THIS IS THE 

FIRST ROUTINE TO VERIFY THAT HOME ADDRESS READ IS IDENTICAL 
TO HOME ADDRESS EXPECTED. 

THE CONDITIONS CHECKED ARE 

BUSS LINES 
DATA LINES 
FILE/CHANNEL INTERFACE 



BE ACCOMPLISHED, A RECORD AND A RECORD 1 ARE WRITTEN. THE 
RECORD 1 IS THEN READ ONE HUNDRED (100) TIMES. ANY FAILURE 
TO DETECT AND READ THE RECORD WILL BE INDICATED BY AN ERROR 
NUMBER PRINTOUT. 



— ROUTINE 4- 



READ TRACK OF ADDRESS MARKS 



THIS ROUTINE IS DESIGNED TO EXERCISE THAT CIRCUITRY OF THE 
CONTROL UNIT WHICH DETECTS ADDRESS MARKS. A FULL TRACK 
OF SHORT RECORDS (DATA LENGTH * 1) ARE FORMATED BY FIRST 
WRITING A RECORD RO AND A RECORD Rl. THEN SEARCH ID TO RECORD 
Rl AND WRITE A RECORD R2 < SEARCH ID TO RECORD R2 AND WRITE A 
RECORD R3, ETC.. UNTIL AN OVER-RUN CONDITION IS FORCED. THfc 
LAST TWO RECORDS WRITTEN ARE THEN ERASED AND THE ID OF THE 
LAST RECORD ON THE TRACK IS STORED TO VERIFY CORRECT EXECUTION 
OF THE READ PORTION OF THE ROUTINE. 

A READ HOME ADDRESS COMMAND IS EXECUTED FOLLOWED IN ORDER BY 
A READ COUNT AND A TIC BACK TO READ COUNT. WHEN OVER-RUN 
CONDITION IS REACHED. THE FORCED UNIT CHECK BREAKS THE CCW 
CHAIN. THIS UNIT CHECK IS IGNORED BUT THE ID OF THE LAST 
RECORD READ MUST BE IDENTICAL TO THAT OF THE LAST RECORD 
PREVIOUSLY WRITTEN OR AN ERROR NUMBER WILL BE PRINTED. THIS 



— ROUTINE A — HEAD ADVANCE (M/T) 

THIS ROUTINE WILL CAUSE THE INITIATION OF A READ HOME ADDRESS 
MULTI-TRACK CCW (CHANNEL COMMAND WORD) FOR THE PURPOSE 



OF TESTING THE 2841/FILE INTERFACE HEAD ADVANCE LINES AND THE 
END OF CYLINDER LINES. THIS ROUTINE DOES NOT COMPARE HOME 
ADDRESS READ TO HOME ADDRESS EXPECTED TO SEE THAT THEY ARE 
IDENTICAL. 



SECTION 2 



-ROUTINE 1 — 



WRITE/READ RO 



THE FIRST PART OF THIS ROUTINE IS DESIGNED TO TEST THE 
SERIALIZER/DESERIALIZER BY WRITING AND READING A RECORD 
(00 CHARACTERS LONG) REPEATING THE TEST FOR ALL 256 BIT COMBINA- 
TIONS. 

IN THIS PART. ROUTINE 1 INITIATES A WRITE HOME ADDRESS AND 
FOLLOWS IT WITH TIO. SINCE THE CONTROL UNIT IS 
ERASING THE REST OF THE TRACK AFTER WRITE HOME ADDRESS, A 
CONTROL UNIT BUSY IS RECEIVED AS EXPECTED. THIS IS REPEATED 
50 TIMES. 



— ROUTINE 2- 



LONG RECORDS TEST 



TO DETERMINE THE MAXIMUM LENGTH RECORD WHICH CAN BE WRITTEN ON 

THE FILE UNDER TEST, THIS ROUTINE INITIATES A WRITE RO 

WHICH IS 10,000 BYTES LONG. A CHECK IS MADE AND WHEN 

AN OVERRUN CONDITION IS RECEIVED, THE RESIDUAL 

COUNT IN THE CSW (CHANNEL STATUS WORD) IS USED TO CALCULATE 

THE LENGTH RECORD WHICH CAN BE CORRECTLY WRITTEN. WITH 63/64 OF 

THIS LENGTH, RECORDS RO ARE WRITTEN AND READ BACK 

100 TIMES WHILE TESTING FOR ANY STATUS ERRORS. 

— ROUTINE 3 — WRITE/READ ADDRESS MARKS 

THIS ROUTINE IS DESIGNED TO VERIFY THAT ADDRESS MARKS CAN 
BE CORRECTLY WRITTEN AND READ. IN ORDER THAT THIS TEST MAY 



READ PORTION OF THE ROUTINE IS REPEATED ONE HUNDRED (100) 
TIMES. 



ROUTINE 5 — FALSE ADDRESS MARK TEST 

THE OBJECTIVE OF THIS ROUTINE IS TO TEST THAT CIRCUITRY IN 
THE CONTROL UNIT WHICH DETECTS ADDRESS MARKS BY GETTING IT 
TO READ FALSE MARKERS. THIS IS DONE BY FORMATING A FULL TRACK 
OF RECORDS, THE DATA PORTION OF WHICH APPROXIMATE AN ADDRESS 
MARK. THE RECORDS ARE WRITTEN (AS IN ROUTINE 4) UNTIL AN OVER 
RUN CONDITION IS FORCED. AGAIN THE LAST TWO RECORDS WRITTEN 
ARE ERASED. READ HOME ADDRESS AND READ COUNT COMMANDS ARE 
ISSUED FOR EXECUTION FOLLOWED BY A TIC BACK TO THL READ COUNT 
COMMAND AGAIN. THE TRACK IS SEARCHED BY THIS METHOD UNTIL 
OVER RUN CONDITION IS FORCED. IF A FALSE ADDRESS MARK IS 
READ, IT WILL BE SENSED BY SOME ERROR OTHER THAN THE EXPECTED 
(NO RECORD FOUND) AND AN ERROR NUMBER PRINTOUT WILL RESULT. 
THIS ROUTINE IS REPEATED ONE HUNDRED (100) TIMES AND THEN THE 
SECTION IS TERMINATED. 

SECTION 3 

— ROUTINE ONE — FORCES THE SETTING OF STATUS MODIFIER. CONTROL UNIT 
END, BUSY, CHANNEL END, AND DEVICE END BITS 

THEY ARE SET BY PERFORMING A WRITE HOME ADDRESS WITH COMMAND CHAIN BIT 
OFF, THEN ADDRESSING THE SAME FILE WITH A SEEK OPERATION. AS SOON AS 
HOME ADDRESS IS WRITTEN, AN INTERRUPT WILL BE INITIATED AND THE CHANNEL 
STATUS WORD SHOULD INDICATE CHANNEL END AND DEVICE END. AT THIS TIME 
THE SEEK IS ATTEMPTED ON THE SAME FILE AND THE STATUS MODIFIER AND BUSY 
BITS TURNED ON IN THE CHANNEL STATUS WORD. THE CHANNEL IS THEN ENABLED, 
AND THE PROGRAM WAITS FOR CONTROL UNIT END INTERRUPT. 



— ROUTINE TWO- 



FORCE UNIT EXCEPTION 



IT IS SET BY WRITING A COUNT — KEY--DATA WITH KEY LENGTH EQUAL DATA 
LENGTH EQUAL ZERO, AND THEN ATTEMPTING TO READ THE COUNT — KEY DATA. 
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— ROUTINE ONE — FORCES THE INVALID SEQUENCE BIT TO BE SET BY 
ATTEMPTING A LARGE NUMBER OF INVALID SEQUENCES. 



SECTION 2 



SPACE COUNT 



THIS ROUTINE WILL CHECK THE FOLLOWING FUNCTIONS 
THE -SPACE COUNT- COMMAND . 

1. SPACE COUNT SHOULD SET FILE PROTECT SO AS 
TO INHIBIT ANY WRITE COMMANDS. 

2. IF INDEX IS DETECTED WHILE SPACE COUNT IS 



SEARCHING FOR AN ADDRESS MARK, NO RECORD 
FOUND SHOULD BE SET. 

3. SPACE COUNT FOLLOWING A FORMAT WRITE SHOULD 
SET INVALID SEQUENCE. 

4. SPACE COUNT NOT CHAINED FROM A PREVIOUS 
COMMAND SHOULD SPACE OVER RECORD -0-. 

5. THREE CHAINED SPACE COUNTS NOT CHAINED FROM A 
PREVIOUS COMMAND SHOULD SPACE TO RECORD -2-. 

6. CHECK THAT SPACE COUNT WILL REQUEST -3- BYTES 
FROM CHANNEL AND USE THESE BYTES AS KL AND 

DL OF THE RECORD. (CORRECT LENGTHS) 

7. SAME AS NUMBER 6. EXCEPT KEY LENGTH AND DATA 
LENGTH THAT THE CHANNEL SENDS THE CONTROL 
UNIT ARE INCORRECT. 



START I/O 

THIS SUBROUTINE IS USED BY ALL ROUTINES TO START A CHAIN UF CCW-S 
(CHANNEL COMMAND WORDS). BEFORE THE START I/O IS EXECUTED. THE 
SUBROUTINE PERFORMS A TEST I/O TO CHECK THAT THE ACCESS IS 
AVAILABLE (COND CODE 0). PROGRAM THEN SETS UP THE CAW, DOES A 
START I/O AND CHECKS THAT THE COMMAND WAS ACCEPTED. THE -WAIT- 
SUBROUTINE IS USED TO WAIT FOR COMPLETION OF THE CHAIN OF 
COMMANDS BEFORE RETURNING TO THE CALLING ROUTINE. 

EROUT 

THIS SUBROUTINE IS USED BY ALL ROUTINES TO PRINT OUT AN ERROR 
NUMBER OR ERROR MESSAGE, THE CAW. CSW, AND /OR SENSE INFORMATION. 
THE ROUTINE ALSO PROVIDES FOR PRINTING A BLANK LINE AS A 
SEPARATOR, WILL GET THE SENSE BYTES. STOP AFTER PRINTING ERROR, 
RETURN TO PROGRAM VIA AN OPTIONAL REG, AND /OR EXIT TO NEXT 
ROUTINE. 

CHECK 

THIS SUBROUTINE IS USED BY MANY ROUTINES TO COMPARE THE CHANNEL 
STATUS WORD, SENSE BYTES AND DATA RESULTING FROM A START I/O 
WITH THE STATUS AND DATA EXPECTED BY THE ROUTINE. THE 'CHECK* 
SUBROUTINE PRINTS A COMPREHENSIVE ANALYSIS MESSAGE (SEE 'GENERAL 
ERROR MESSAGE" 4.1) AS A RESULT OF NON-EOUAL COMPARISONS. 



SECTION 3 



TEST OVER UNDER TRUNCATION OF COMMANDS 



THIS ROUTINE WILL CHECK THAT THE FOLLOWING COMMANDS 
CAN BE TRUNCATED. BOTH OVER-TRUNCATION (CHANNEL 
COUNT IS GREATER THAN 2841 COUNT) AND UNDER- 
TRUNCATION (CHANNEL COUNT IS LESS THAN 2841 
COUNT) ARE CHECKED. 



TRACK FORMAT 



HA.RO (K=2 D=4), RL (K=0 D =4 ) , R2 ( K=2 D=4 ) 



COMMAND 




RD HA 




RD RO 




RD CNT 




RD D 




RD K-D 




RD CKD 




WR HA 




WR RO 




WR D 




WR K-D 




WR CKD 




SRCH # 


HA 


SRCH * 


ID 


SRCH # 


KEY 


SRCH HI 


-ID 



NORMAL-CNT 


CHNL-CNT FOR TRUNC 


5 


3,9 


14 


6,8,9,10,11,12,13,15 


8 


5,10 


4 


3,5 


6 


1,2,3,8 


14 


2,5.8,9,10,11, 17 


5 


4,6 


14 


2,8,11,17 


4 


3,5 


6 


1,2,4,9 


14 


5,8,9, 10,13, 15 


4 


2,6 


5 


4,8 


2 


1 ,3 


5 


4,7 



5.2 DESCRIPTION OF SUBROUTINES 

1. GET SENSE 

THIS SUBROUTINE IS USED BY MOST ROUTINES TO GET FOUR -4- SENSE 
BYTES OF ACCESS STATUS. AFTER THE SUBROUTINE HAS DOEN THE START 
I/O AND CHECKED THE SENSE COMMAND HAS ACCEPTED, IT WILL WAIT 
IN A TEST I/O - BRANCH CONDITION CODE 2 LOOP FOR THE 4 BYTES 
TO TRANSFER. THE PROGRAM WILL HANG-UP IF IT FOREVER RECEIVES 
CONDITION CODE 2. 
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6.3 

THE FOLLOWING EDIT CAROS ARE REOUIREO BY THIS PROGRAM: 

1. CARD - MUST CONTAIN 2 EDITS. THE FIRST MUST DEFINE THE LOG DEVICE AND THE SECOND MUST DEFINE THE SELECTOR CHANNEL. 

2. END CARD - MUST HAVE FFFF IN COLUMNS 7"I0. 

3. SEE NOTE 2. 

THE DEVICE DEFINITION EDIT FIELD (DDEF) INCLUDES THE FOLLOWING. 

1. THE INTERRUPT LEVEL ASSOCIATED WITH THE DEVICE. 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE. 

3. THE CHANNEL ASSIGNED TO THIS DEVICE. 

NOTE 1 - THIS PROGRAM HAS ITS OWN LOG ROUTINE. THE FIRST ENTRY ON THE EDIT CARD IS ASSOCIATED WITH THE C.E. LOG DEVICE. 

NOTE 2 - THE SELECTOR CHANNEL EDIT ENTRY FOR THE DIAGNOSTIC MONITOR (DM) SHOULD NOT CONTAIN A UNIT ADDRESS FOR A 2311 DISK DRIVE OR A 28M CONTROL UNIT. (I.e. 9000) 



COLUMN 



CARD 



END CD 



DDEF 

LOG DEV. 

NOTE I 



DDEF 
SEL. 
CHAN. 
NOTE 2 
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K 
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l 
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204 1 DIAGNOSTIC - PHASE A 

1000 DIAGNOSTIC MAINTENANCE PROGRAM 



012C 





01?D 





012E 





012F 





0130 





9131 





0132 





0133 





0134 






OVFF 



07FF O 110 
Ob 00 00 1 

oeoi o oooo 



0008 




0009 




iOOA 




OOOA 




OOOU 




OOOC 




OOOU 




OOOE 




oo or o 




0802 


0000 


OB03 


000 


OBO'i 


FFOO 


oeo'. o 


OOOO 


01! OO 1 


0A8A 


0607 1 


OAAO 


Oil OB 1 


OABD 


Ob 09 




OH 09 


0000 


OfcOA 


00 00 


080B 


0000 


OOOC 


FFFF 


060D l 


1F6E 


OBOb 


0000 


obof o 


0000 


oaio o 


0000 


0811 


0000 


0812 


0000 


obi 3 o 


0000 


0814 


0000 


OH 1 b 


0000 



*************************************************** 

* 

***************** f* ********************* ************ 

* 

* 1800 MONITOR INTERFACE 

*************************************************** 
* 

********♦*************************************'**** 



BEGIN 

START 

END 

LOG 

ERROR 

RfcOO V 

RCLDV 

CRCK 

MATO 



* 

* ' 

* 

TP1D 

TS10 

TSAD 



EOU 

EOU 

too 

EOU 
FOU 
i OU 
EOU 
EOU 
EOU 

ORG 



300 

BFG'N+1 
STAWT-H 
cNO + 1 
LOG+1 
ERROR+1 
RE GO V+l 
HELD V+ 1 
CRCK+1 

* + '07FF 



ORIGIN OF PGM 



MONITOR INTERFACE TABLES 



DC 
DC 
DC 

t-QUATL-: 

I OU 

LOU 

LQU 

l-.QU 

EOU 

LOU 

F.OU 
EOU 
•'jll 



OLPST 
OSALC 
OPRRS 
OTTLE 

ORTRY 

01- Pt R 

OBYPR 

0H4LT 

ocm.v 

* 

TSWO 

TSW1 

TSW2 

TSW3 

I PA 

LP A 

EPA 

ML.SCF 

MLSCO 

MLSC1 

MLSC2 OC 

TERM OC 



DC 
DC 
DC 
OC 
OC 

DC 

DC: 

I OU 

DC 

DC 



TLGED 
TSCED 
TRU) 



DC 
DC 
OC 
DC 
OC 
DC 
DC 
DC 
DC 



/I 100 

1 



FOR TSW 

8 

o 

10 
1 
1 1 
12 
13 
14 
lb 





/FF 00 



21 PA 

7LPA 

ZL PA 

* 







/FFFF 

PLM> 



















SCOT ION ID 

SECTION PREFACE ADDRESS 
SWITCH OPTIONS 
LOOP SIO.TIO 
SEEK ALIGNMENT CYLINDtR 
PRINT RESULTS 
PRINT RTN TITLES 
RETRY SIO 
LOOP ERROR 

BYPASS ALL PRINTOUTS 
HALT ON EURO!' 
CLTAR fcRPOH t.ALT 

SELECT OPTIONS 
SILEC1 SECT WJ RTN 
UNIT ADD Hi. j 

It.' IT Pl.C-M AOTPCSS 
LOOP t'Kt !' AdOPS 

tro p.«"- adois 

MONITOR (.(KI'it'OL. FIELD 
LN1KY 21' HO 

ONE 

Tfc'U 

LAST AODRS 

WORDS FOrt MONITOR USE 

* 
* 
♦ 
LOG ED IT 

SEE CHANNEL EO 1 T 
ROUTINE ID 



*************** ********************** ************** 

**»*♦»»**♦********»**********»***< *************** * ; 

* 

* TABLE OF CONSTANTS 

M *» ******* ******** ************* **************** 



****-> 

* 

*************■»******>*************' 



**************** 



«*i' 


DATE 


14N0V69 


30JAN70 


15SEP71 




EC 


NO. 


431319 


431319A 


431326 


C; 












if 












f ' 












w 












z 













81100020 
01 100 30 
81100040 
81 lOOObO 
8 1 1 00060 
81 100070 
81 1 00080 
81 100090 
81 100100 
CI 1001 10 
61 100120 
81100130 
811 00140 
81 100 ISO 
OU 00160 
81 1001 70 
81 1001 BO 
81 100 1 90 
81 1 00200 
81 100210 
6 1 100220 
61 100230 
81 100240 
• il 100250 
81 10026U 
81 100270 
811 002 BO 
81 100290 
81100300 
81 100 310 
61 100320 
61 1C0330 
81100340 
81 100 350 
1 100 360 
81 100370 

811 oo3bo 

81 10039" 
81100400 
81 ICO 410 
61 1 00420 
61 100430 
811 00440 
81100 450 
8 1 1 004 60 
81 1004 70 
81100460 
81 1 00490 
81100S00 
81 1005! 
61100520 
81 100530 
611001)40 
81 100550 
611 00660 
81 100570 
8 1 100S80 
81 100590 
61 100600 
81 100610 
81 1 00620 

81 ioo'..;;o 

81100640 
61 100 650 
81100660 
61 100670 
61100600 
81 100690 
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087F 




0813 


000 1 


0817 


0002 


OK: 8 


0003 


0819 


0006 


081 A 


0008 


06 IB 


0009 


081C 


OOOA 


0B1D 


0014 


081E 


0032 


08 IF 


0064 


OB20 


0100 


0821 


03EB 


0822 


OOOA 


0823 


00 1 1 


0824 


00 13 


082b 


O020 


0826 


00 2 7 


0027 


00C6 


0828 


OOFF 


0829 


0100 


0U2A 


0200 


0B2O 


0400 


062C 


Ob 00 


082D 


0700 


082E 0707 


00 2F Of. 


Of.30 2000 


0B31 2 100 


0b: j .2 3C00 


01)33 4000 


0634 


1 SOQO 


08 3 b 


7FFI- 


0B36 


6000 


08 37 


CCI I 


0838 


r -F00 


OB 3 9 


OOOO 


083A 


OOOO 


08 3B 


OOOO 


083C 


OOOO 


063D 


OOOO 


0B3E 


OOOO 


08 3 F 


OoOO 


0B40 


OOOO 


064 2 


06 02 


084 4 


0002 


0B4 6 


0002 


84 8 


0002 


OF ft A 


0002 


0B4C 


0002 


08 4 E 


0001 


0B4F 


OOOO 


0B50 


OOOO 


OKb 1 


OOOO 


08S2 


0001 


06S3 


OOOO 


0BS< 


OOOO 


OBbb 


OOOO 



08b6 OOOO 
0657 OOOO 
OBbB OOOO 
0859 OOOO 
085A OOOO 
OBbB O OOOO 
08SC COOO 
OBbD OOOO 



oeu-A 
I 



& DAT* 

EC NO. 



14N0V69 
431319 



EOU 

DC 

DC 

DC 

DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 



* 

TB 
Kl 
K2 
K3 
K6 
KO 
K9 
K10 
K23 
KbO 
K100 
K2S6 
K1000 DC 
HOOOA DC 
H0011 DC 
H00 13 DC 
H0020 OC 
H0027 DC 
H00C6 DC 
HCOFF DC 
HO 100 DC 
H0200 OC 
H0400 DC 
H0500 OC 
H0700 DC 
HO 70 7 DC 
HCfcOO DC 
H2000 DC 
H2 100 DC 
H3000 DC 
H4000 DC 
HbOOO DC 
H7FFF DC 
HBOOO DC 
HCCFF DC 
HFFOO DC 
CRT ON DC. 
T5C I N DC 
1 R f NN C 
TCN5W DC 
TC.VSI DC 
TC.VS2 OC 
ERK5W DC 
CAWSV DC 
ERTSV B;> 
T YP2 
TYP3 
PC AW 
PCSW 

PONS 



PPN1 
PR NT 
PRUT 
PRN1 
PI,- NT 



SPACE PNNI 
DVADR OC 
S! OSW DC 
PASSW I. C 
PSCNT DC 
STKSW DC 
Tl OSW DC 
LGBSY DC 
T23LC DC 
T23LK OC 
LPCNT DC 
LFCT1 DC 
'EMPt DC 
TtMP2 DC 
CO DC 

T45SW DC 
* 



30JAN70 

431319A 



1SSEP71 
431326 



TPIO+128 

1 

2 

3 

6 

B 

9 

10 

20 

50 

100 

256 

1 000 

/OOOA 

/0011 

/0013 

/0020 

/002 7 

/OOCO 

/OOFF 

/0100 

/0200 
/04 00 

/osoo 

• 0700 

/0707 

/OEOO 

/2000 

/2100 

/3000 

/4 000 

/5000 

/7FFF 

/f'000 

/CCFF 

/FFOO 



»-* 

*-* 

o 
o 







. S 1 O . .- 
. S NS » « 
.CAW . 
• CSW . 
. SNS. 
. * 
*-* 
#-* 
*-* 

1 







*-* 
*-* 



/COOO 




SO TBL CAN REACH PST 

CONSTANT ONE 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 



CONSTANT 

CONSTANT 

CONSTANT 

LINE TEPMINATOR 

CONSTANT 

CONSTANT 

CONSTANT 

CONST AN1 

CONS! ANT 

THE THING 



FOR WRITE 10CC 
FOR SENSr OSW 10 
THAT LOOKS LIKE 



CONSTANT 

CONSTANT 



SI CT lil'i NUMBER 
ROUI 1NL NUMOER 
ERROR SWITCH FOR 



CCW 

SEN! 



ADDI<ES; 
K INFO 



S AV F 
5 AVE 



AREA 



SPACES IN 43 CODE 

DEVICE ADDRESS TO BE TE 

FOR SIO RTN 

USED TO TEST FOR ERROR 

PASS COUNTER 

SWITCH FOR RE-ENTRANCE 

TEST 10 SW 

LOG RTN BUSY SW 

LAST CYLINDER 

LAST HEAD 

LOOT» CNTR 

SPECIAL LYNN LOOP COUNTER 

TEMP STORAGE AREA 

TEMP SI OR AGE AREA 

SET F ILF MASK 

0= NOT CALLED 
1=1443 



B1100 fOO 
8 1 1 007 10 
81 100720 
81100730 
61 100740 
81100750 
81 100760 
81100770 
61 100-80 
81 100790 
81 100600 
81100810 
81100 62 
6 1 1 00830 
81 100840 
61100650 " 
61 100660 
8110 0670 
6 1 100 680 . 
6 1100890 
81 10090 
61100910 , 
81 1009 2 
81 100930 
8 1 1 0094 
; 6 1100950 
81 1 0091.0 
8 11 11 9 7 1> 
81 100980 
61 1 09 90 
8! 101000 
6 1 1 I 1 O 
81 101020 
O! 101030 
61 101040 
B 1 1 1 SO 
6110 1060 
8 1 10 1070 
8 1 10 10 80 
8 110 10 90 
61 10 1 i O 
81101110 
6110)120 
6 110 11 30 
B 1 Kl 1 1 4 
O 1 1 1 1 SO 
81 10 1 1 60 
61 101 1 70 
81101180 
8 1 10 1 1 90 
61 101200 
81101210 
J1EDB! 10 1 22 
110 12 30 
Rl 10124O 
81101 250 
61 101260 
8 1101270 
8 1 10 1260 
8 110 12 QO 
8! 10 1 30 
61101310 
81101 320 
ellOl 330 
61 101340 
81101350 
81 101360 
1101370 



PROG ID 
PAGE 



081 1 -A 
1A 
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0B5E OOOO 

06SF 1 4C00 OBOO 


CNTRL DC 

fciC 
* 
CVHA LC 

tsc 
• 

EROUT VC 

ESC 
* 
FREDV V- 

sSC 
# 
GETDV '>;. 

c>C 

* 


*-* 

L TCNTE 


0B61 0000 

0662 J 4C00 1F30 


*-* 
L CVHAE 


0864 0000 

086E I 4CO0 IB98 


*-* 
L ERTNE 


0867 0000 

0660 1 "COO 1968 


*-* 
L FRD'E 


086A 0000 

060B 1 4C00 1946 


*-* 
L GTDVE 


0«6O OOOJ 

086E I 'COO I ASS 


GETSN 1.1 

fcSC 

HABLC !>C 

fciC 
* 
SIO LC 

tf»C 

* 

ST MLS ^C 

r-SC 
* 
TCVBC if. 

£SC 
4 


*-* 
L GTSNS 


0B70 o oooo 

08V 1 J 4C00 1F43 


*-* 
L HACRT 


0873 0000 

0074 I *C00 1970 


*-* 
L S 1 ONT 


0876 0000 

0877 1 4C0O 1A95 


*-* 
L STMLE 


0879 0000 

087A I 4C00 J ESC 


*-* 
L TCVBN 


007C OOf'O 

0670 1 4C00 IE /A 


tcvuj :c 

&SC 

* 


L 1 HE XD 


087F 0000 

OOOO 1 4C0O l-Af-7 


THAL1 it 

2SC 

4 


*-* 
L THLTE 


08B2 0000 

0003 1 4C00 19EA 


T 1 .'/ C 

3SC 
•* 

tiom- ic 

cSC 
* 


*-» 
L 1'ONT 


OBi'.S 0000 

0006 > 1C00 11-13 


*-* 
L TIOSE 


OOPB 0000 

0809 1 4CC0 11! 12 


tlg"' i-c *-* 

l:,c l tlgme 



OHO Li 
OOOC 




1 


0000 
4C00 


I AD 6 


* 
TLI'U- 


iSC 


L 


*~* 
TLRLP 


086E 
086F 




1 


0000 
4C00 


1 AE3 


TLPST 


3SC 


L 


*-» 
TSTLP 


0891 
089? 




1 


oooo 

4C00 


1072 


SKTV 


fcSC 


L 


*-* 
SEEKX 


0694 
8 9b 




1 


oooo 

4C0C 


1EF5 


wait; 




L 


»-» 
TINTS 



81101300 
81 101390 
81101400 
81 101410 
81101 420 
81 101430 
81 101440 
81 10 1450 
81101460 
81 101470 
811014 80 
81 101490 
8 1 10 1'jOG 
8 1 1 1 & 1 
811 01S20 
81 10 1 '330 
Oil 01 64 
81 10 1060 
8110 1600 
81 101570 
8 1 10 1SB0 
8110 1690 
81 1 01600 
61101610 
31101620 
8110 1630 
81101640 
81 101660 
81 10 1660 
8110 1670 
0110 16 BO 
81 10 1690 
01101 700 
81101710 
011017*0 
81 101730 
8 11 1 74 
81 10 1750 
8 1101760 
81 10 177 
8 1 101760 
61 101790 
81101 BOO 
81 101010 
8 110 1820 
Bl If) 1030 
8 1 10104 
81 101050 
8 1 10 1060 
81 10 1070 
6 1 10 1000 

ei ion'90 

61 1 1900 
61 101910 
01 101920 
81 10 '930 
81101940 
81 10 1910 
8 110 1960 

a***,*******-:******************************** ****** 8110 1970 

* 81101960 

*****»*«********»*******•:-*************** *********** ,u ioj^o 

A 81102000 

» EGUATES AM) CONSTANTS FOR CC*«S 81102010 

^ 81102020 

***»*»««****♦**••***««*******•*♦*** ********* ******** 81 10 20 30 

* 81102040 

****»«»*****.********************«****************** 81 1020 'iO 



2=1063/10! r> 

CONTROL ROUTINE 
GO TO ROUTINE 

CONVERT HA TO 1443 CODE 
GO TO RTN 

ERROR PRINTOUT ROUTINE 
GO TO RTN 

RELEASE CHANNEL ROUTINE 
GO TO ROUT INE 

CHANNEL ROUTINE 
GO TO ROUTINE 

GET DEVICE SENSE INFO 
GO TO ROUT li.E 

COMPARE HA 
GO TO RTN 

START I/O ROUTINE 
GO TO RTN 

SET MLSCF ROUTINE 
GO TO RTN 

CONVERT HEX TO 1443 
GO TO RTN 

CONVERT HEX TO DEC 
GO TO RTN 

ENTRY POINT 
GO TO RTN 

TEST 1/0 
GO TO RTN 

SPECIAL TEST I/O 
GO TO RTN 

PRINT RTN 
GO TO WH 

TEST LOO!' ON ERROR 
1,0 TO RTN 

TEST LOCI" START 1/0 
GO 70 RTN 



GO TO ROU'I INK 



GO TO WAIT 10 RTN 



2841 DIAGNOSTIC - PHASE A 

1800 DIAGNOSTIC MAINTENANCE PROGRAM 



0060 

04 

0020 

0008 O 

0010 











o 






oooo 

0001 

00 2 
0003 

ooos 

0006 
0004 
0007 
00 11 
0006 
OOOO 
0013 
0012 
001A 
001E 
0029 
00 OE 
OOOD 
0016 
009A 
00 IB 
0039 
004C 
0061 
0069 
0071 l> 
00 31 
00 1F 
0010 
0019 
CO 16 








1 




OOOO 





0C01 





0002 





0003 





0004 





000b 





0006 





000') 





0006 






FLAGS 



* 




FLOCH EOU 


/OO 


FLCCH EOU 


/40 


FLSLI EOU 


/20 


FLSKP EOU 


/08 


FLPCI EOU 


/l 


* OP CODES 


OPT 10 EQU 


/CO 


OPWR EQU 


/Ol 


OPRO EOU 


/02 


OPNOP EOU 


/03 


WRDAT EOU 


/OS 


ROD AT EOU 


/06 


OPSNS EOU 


/04 


SEEKC EOU 


/07 


ERASE EOU 


/I 1 


OPTIC EOU 


/OO 


SEEKB EQU 


/OB 


RCAL EOU 


/I 3 


ROC NT EOU 


/12. 


RDHA EOU 


/I A 


PDCKD EOU 


/IE 


SRCKE LOU 


/29 


RDKD EOU 


/OE 


WRKD EGU 


/OO 


RORO E&U 


/I 6 


RDHMT EOU 


/9A 


SKHO EQU 


/It! 


SRCHA EOU 


/39 


SRCKH EOU 


/49 


S10H1 EOU 


/SI 


SKHK EOU 


/69 


S1DHE EOU 


/71 


SRC ID LOO 


/31 


SFILM EOU 


/IF 


WRCKO EOU 


/ID 


WRHA EOU 


/19 


WP.RO EOU 


/IS 



DATA CHAINING 
COMMA!*.) CHAINING 
SUPPRESS INCORRECT 
SK IP BIT 
PGM CC'Nl ROLLED 



LNG 

INTERRUPT 



TEST I/O 

WR.ITE OP CODE 

RE',0 OP Ctt'E 

NO-OP 

WRITE DATA 

READ DATA 

SENSE I/O 

SEEK CYI I'OER 

ERASE PS CORD 

TRANSFER IN CHANNEL 

SEEK biN 

RECALIBRATE 

RO COUNT 

READ HOME ADDRESS 

RO COUNT KEY DATA 

SEARCH KEY EOUAL 

RD KEY DATA 

WR KEY DATA 

READ RECORD 7ER0 

READ HA HOLT) TRACK 

SEEK HEAD 

SEARCH HA 

SEARCH K.E-Y HI 

SEARCH ID HI 

St ' '('.« KEY HI /I0 

SEARCH ID HI /CO 

SEARCH ID 

SET FILE MASK 

WRT CUT .KEY ,0 ATA 



WrflTE 
WRITE- 



HA 
RECORD 



* 

********** * ****** r, *« <: <, * * *»*(.** i :*»*♦****♦»** >J >;■*** * 



* EQUATES 

* 

SCUNO EOU 


f OU CHA> 





SCOSP EOU 


1 


SCPCI EOU 


2 


SCPCK EOU 


3 


SCDCK EOU 


4 


SC1CC EOU 


5 


SC1L6 EOU 


6 


SCAB2 »0U 


7 


SC.UOP EOU 


8 


* 




* * * * * ** * * r * * * ♦*#***** 



***** *#*«■« «*****#♦*•/* 
* « * * * * » * * * It' ********* * 



I********************* 



NEE STATUS D SW' S 

UNIT NOT OPERATIONAL 
UN II STATUS PENDING 
PGM CNTRL INT. 
PG(-« CHECK 
DATA CHECK 

INTERFACE CNTRL CHECK 

INCORRECT LENGTH INDICATOR 

ADAPTER BUSY 

UNIT OPERATIONAL 

********* <!****** ******** ****** 

* 
**********#******«***<******»* 
**«**lf*» ******* *************** 

* 
****************************** 



EOOATES FOR UNIT STATUS O SW 



t'ATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



1SSE571 
431 J26 



PROC, 10 
PAGE 



001 1-A 
2 



^^ DATE 

EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



1SSEP71 

431326 



8S 1D?06C- 
6 1 102& 'O 
81 102080 
81 1020"0 
81 10 210 
81 (021 10 
Bl 102120 
8 1 1021 30 
81 102140 
6 1 1 2 1 SO 
81 102160 
81102170 
83 1021 00 
81 102190 
61 102200 
61102210 
81 102220 
8 11022 30 
01 10 2240 
611 02260 
8 1 102260 
B II 022 70 
61 1022B0 
81! 02290 
6! 10230 
81 1 0231 
61 102 320 
8 I 102 330 
HI 102340 
8H023S0 
(it 102 360 
fill 23 70 
Bl 102 300 
81 102 390 
61 102400 
6 ! 1 024 10 
Bl 102'i20 
1 1024 30 
E.l 102440 
61 10?-'i'.n 
6 1 102*60 
1 1024 70 
81 10 ! 4 60 
i 6!i 02490 

t ol i ;,~EO(i 

: ... I', ) j (t? SIO 

o> )c ; '.2 

61 1 02S30 
01 102 SAO 
1 I O2SS0 
E 1 10 2*360 
O) 102'')70 
61 I02S60 
1 102690 
01102600 
110 2 6 1 
Bl 102620 
8 1 1 02630 
8! 1 02640 
1 102 6S0 
1 102660 
O 1 102670 
61 102600 
6 1 1 02690 
81 102700 
61102710 
01102720 
81102730 



PROG 10 
PAGE 



081 1-A 
2A 
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0008 





09 





000/'. 





ooob 





oooc 





000D 





OO0E 





O00F 






UNATN 
UNSMO 
UNCUE 
UNBZ Y 
UNOME 
UNI VE 
UNCHK 
UNEXC 



EQU 

ecu 
too 

ECU 
EOU 
EQU 

cou 
equ 

*04**** ****** 

* 

************* 



8 
9 
10 

11 

12 
13 

i 4 
IS 



UNIT STATUS-ATTENTION 
STATUS "CO I c lf« 
CONTROL UNIT END 
UNIT BUSY 
CHANNEL EIC 
DEVICE El« 
UNIT CHECK 
UNIT EXCEPTION 



tct«>« i *;***»*********»********' 



»******»*****» *******t*f*****4 



0004 



00b 




0007 




509 




00OA 




OOOC 




00 1 




1 2 




00 IS 




00)8 




00 1 9 o 




001 A 




00 10 




00 IF 




0U9? 


00 I 


06 9* 


2003 


08 99 1 


069A 


op-y. c 


0001 


03 9 B 


20 i 3 


0<<9C 1 


06» 



» 
* 

FBRST 

FOVRN 

FSKCK 

FTROV 

FEOCY 

FNORC 

FUNSF 

FSEPD 

F'JNSL 

FORD Y 

FONLN 

FUNS! 

FECYL 

FSKIN 

* 

* 

nopcc 



EQUATES FOR 2311 SENSE BYTES 



Ob:u Oi.' 01 

0H9i 2000 

ns9F t oa'.o 09", 

ObAO 0000 

0'; A 1 00 6 

0-M2 o o< ■'■; 

08A3 1 08»« 



08 A4 

Of-- A 4 

06 AS 

0OA6 

08A7 

08A8 

08A9 

OBAA 

OH A!'. 

OBAC 

fi'.S.D 

(.■ i I f- 

0KA1-' 

OH BO 

Ob til 

o(si>;: 

08 b "J 
0HB4 



00 1 



0B9O 
00 

oooo ■ 

0000 ' 

obai 
oooo 

00 

oooo 
o oooo 
o oooo 
o oooo 
oooo 
oooo 



EOU 

EOU 

EOU 

EOU 

E uu 

EQU 

EOU 

EOU 

EOU 

tcou 

EOU 
EOU 
EQU 
EOU 



D C 
DC 
DC 



* 
RECAL 



TSCCW 



TSKDS 



DC 

r>c 



DC 
DC 

DC 



DC 

oc 

DC 



* 

SNVOS 

SNI-..-J0 

SNtO 1 

i,wv.>2 

SNV.0 3 

T10XX. 



oss 

L OU 

EOU 

EOU 

EQU 

D C 

DC 

HIOXX DC 
DC 

SEI'SK DC 
OC 

STOXX DC 
DC 

SCGNO DC 
DC 

SCSNl DC 

DC. 

SC.SN2 DC 



4 

5 

7 

9 

10 

1? 

1 6 

18 

21 

2'* 

25 

26 

29 

3 1 



(BURS I ) DATA CK 
CHANNEL/284 1 OVERRUN 
SEEK CK 

EM) OF CYLINDER 

fltl RECORD FOUND 

SEFOES CHECK 

DRIVE REAOY 

UNSAFE 

EN3 OF CYLINDER 

SEEK INCOMPLETE 



1 BYTE C.OUUT 

/20*256+0PN0P FLAC.C AND OP CODE 
* ADO (<C SS 



1 BYTE CCJ'.l'.T 

/20*256+RCAL FLAGS AS*; 
* ADDRESS 



OP CO 



1 BN^E COUNT 

/20*256+0PT > O FLAGS Alii OP CODE 
TOW) 5 ADDRESS 



6 BYTE COUNT 

0*2S6 + DPSNS FLAGS / ■{/ OP CODE 

SNK.)S AODFt.SS 



SENSE BYT! 



SNWDS 
SNWJ5 + 1 
SNW0S+2 
SNttOS + 3 
TSCCW 
/t — * 

»_» <■? tl xt I 

SnCCW 



TIO CCW 

10 BE F It. LEO IN 



SENSE 10 SI/SUPPRESS POLL 

10 OF F ILLlD IN 

TO BE TILLED WITH CCW AD 

TO BE F ILLFD IN 



«= 09 



DM E 

EC NO. 



14 NOV 69 
'31319 



30.IAN70 
43 131VA 



15SEP71 

431 328 



Bl 102 74 
i 1 102700 
81102760 
81 102770 
8 11027B0 
81 102790 
8 1 102800 
81 10 2810 
811C2B20 
81 102830 
8 1 102840 
81 102650 
81 102860 
81 102870 
81 102880 
81 10 2B90 
8 1 102900 
81 10 2910 
81 102920 
81 10 29 30 
8 1 102940 
01 10 29 SO 
8 1 1 2960 
81 102970 
8 1 1 02980 
81 102 JVC) 
1 1 3000 
6110 3010 
8 1 103020 
Bl 10 30 30 
8 1 1 304 
81 1U 30 SO 
8 1 10 30 '.(l 
8110 30 i- O 
8 1 10 30 80 
81 103000 
B' 103100 
81103110 
811031 20 
81 1031 30 
8110 314 
81 I 31 SO 
8 1103! 60 
81 1031 70 
8 110 5 1 80 
81 10 31 90 
8 1 1 03200 
8 1 1 32 1 
B 1 10 3220 
81 10 32 30 
81103240 
81 10 32 SO 
8 1 10 32 60 
81 103270 
8 1 1 32 00 
81 10 3290 
8 1 10 •■ .00 
81 10 .110 
8 1 103320 
(>. I 10 3330 
8 110 3 3 4 
Bl 1 3300 
bl 1 33 60 
01 10 3370 
01 102 '.BO 
1 103390 
8 1 1 O 3 4 
8! 103410 



PROG I D 
PAGE 



2841 DIAGNOSTIC - PHASE 


A 










1800 DIAGNOSTIC MAINTENANCE 


PROGRAM 








0805 OOOO 




DC 


♦ -* 


= OA 


61 103420 
81 103430 


0606 OOOO 




SCSN3 DC 


* - *. 


= OD 


81 103440 


Oci87 OOOO 




OC 


♦ — ""* 


81 1 034S0 


08B8 OOOO 




SCSN4 DC 


*-* 

*-* 


= OC 


31 103460 


08B9 OOOO 




OC 


8 1 1 03470 


06 U A OOOO 




SCSNS DC 


*-* 

»-* 

4 
4 


= 06 

START I/O SAVE AREA 

START 1/0 SAVE AREA 2 


81103480 


06BB COOO 
08BC 0004 
08C0 004 




DC 
SCSXO BSS E 
SCSX4 faSS £ 


81 1 13490 
81 103SOO 


08C4 0004 
06C8 0004 
08CC 0004 




SCSX8 faSS E 
SCSXC BSS E 


4 

4 


TIO SAVE AREA 

SENSE I/O SAVE AREA 


6 110 3510 
81 10 3S2 




SCSVS bSS F. 


4 
3 


SAVE ARFA FOR SENSF TNFO 


811 03530 
81 103540 


1 --• 06D0 0003 




MA bSS F. 




81 103550 


08D4 OOOO 
»OBD4 ) 1E26 . 




BSS E 
TLGWR DC 



TLCBA 


IOARLA ADDRESS 


Bl 103560 


C605 OOOO 
08D6 OOOO 
08D6 




DC 
TLC.SP OC 
TLGSN EOU 


*-* 
/OOOO 

1LGSP 


TO BE 1 ILL ED IN 
SPACE IN 1443 CODE 
SENSE DSW 10CC 


8 1 103570 
01 1035B0 
dl 1C3590 


0807 OOOO 
0606 000'. 
0SD9 OOOO 




DC 
Tl.GCT OC 
T L OS -w C 


*-* 






TO BE F 11 LED IN 

LOOP COUNT FOR PRNTR * NT 

1ST/2NO CI'AR SW (10S31 


81 10 360 
8 1 1 03610 
1 10 362 


OEDA OOOO 
080B OOOO 




TLGSH DC 
OC 
* 
STSER PftNT 

PI- NT 
DC 





1ST/2N0 CHAR SW (1LCC.H) 
SENSE/RESET DSW 


li 1 1 03630 
31 10 364 
8 1 10 3600 


08DC OOOB 

I OtSt'i 0007 

OBEfcS FFFK 




•XX ERROR ON XXX . 
.SECT X.RTI4 X . 
/FFFF 


81 10 366 
8 11 03670 
81 10 3680 


i OBEC 0009 
1 08FS FFIF 




UNAOR PR NT 
DC 


. ON IT XX 
/FFFF 


»A0R5 XXXX, 


8 1 10 3690 
61 103700 
8110 3 710 






* SELECTOR CHAKI.EL INT ROUTINE 


61 10 3720 






4 






01103730 


08F6 OOOO 




W10SW OC 


*-«r 


WAIT FOR USER 1NTERUPT 


8 1 10 3740 


0fcF7 OOOO 

0BF8 OOOO 

* — - 0B1-9 OOOO 




fcATSU OC 
SCISW L ' 
TSCAC OC 


*-* 
« ■-* 


WAIT FOR SYST 110 INT. 
INTERRUPT SWITCH 
SEE .CHAN APi A COOL 


fl 1 1 03750 
ftl 10 3760 
6 1 1 03 770 


1* .08FA OOOO 

~" 08FB f.i'.FA 




SC t NT OC 

i: T / 


*-* 

W I OS * 


IN.. RTK ENTRY 
SET 1HTERUPT SWITCH 


6110 3780 
8 1 I 37-.'.; 
Ill 10 3000 

v i to:-. i»i o 

l. j ! 6 302 


OBEC 0/-OD 
OfiFO 696' 




SI X 
STX 


2 SCiri7<l 
1 SC 197*3 


SAVE' REG 


OBI-E 1 6600 


007I-' 


LO X. 


2 "IB 


St.T UP POINTER TO TBL 


0900 C.279 

0901 1 4C1B 


09SS 


LD 
02 
* 

XI'i 
St. A 
BNN 

w xl n 

? /.CI 


2 SCISK-TH 
SC iN* 


GET INT SWITCH 
BR 11 l!OT SET 


1 1 C. 3 030 
81 10 364 
6 1 1 03650 


M .:>-> ^ 09 03 OA.il 
0704 l 00 1 
09 00 1 4 CO 

9 07 0A.S6 
0908 180 


Mil 

4% 


2 !-.C. t.' -Ill 
1 

SCI!. ■.' 

_2 SC5.N2- \H 


FETCH C I'.AIir.Ll. STATUS 

11 ..I Fo-i us:» 

BRANCH IF NUT US.P 

C.I T UNIT STATUS 
SAVE S('A1US 


8 1 10 3860 
6 1 1 3 870 
Bl 10 3880 

P. ■■ 1 3 890 
81 1 03900 
1 1 3910 


0909 10 10 
090 A 10 88 
0900 1- t-0 




51 T 

to*-. 


16 

li 
2 U VADR-TI 


CLEAR A HIT, 

61 T 01 V ICE AODHS 

TEST 1 OR MY Dl V 1CI 


81 1 1; 3 20 
8 1 10 39 30 
8 1 10 3940 


090C 1 4C1 


09 14 B2 


SC. II.' 


BRANCH IF MINE 


Bl 1 3950 


09 OC 109 2 
090F 1 4L10 


09' 


SIT 

j B!.M 


SC I ',4 


Tl ST FOR LONTHOL ON 1 T 
BRANCH IF NOT CO EtlO 


fii!) 8 110 3960 
8 1 1 3970 
8 1 10 3980 


09 11 C20S 
0912 1 4C18 




U) 


2 TIOSo-TB COT TIO SW 


8 1 1 3990 


09-= 


5 H7 

if 


SCI 1.4 


EiR IF INT NOT DOE TO TIO (.1104000 

81 i 04010 


i --" 0C14 C20 r 




SC1NC LD 


2 TIOSW-T 


. FETCH T IO SW 


81 104020 


| 0915 1 «CI8 


09 If" B2 


SCIu'i 


BRANCH IF USER TIO 


6 1 1 0-i0 30 
81 10404 


i : 




* OFT HERE IF If.IERRUPT FROM TIO AFTER SHI 


01 1 04050 


1 




* IF STATUS IS HON 


BUSY THEN PLACE: IN SCSXO 


81 ! 04060 


1 ■- 




* AfC scsya 




6 1 1 04 70 


' 




» 

X I 






81 104080 


1 ,0917 0A3 


j 


2 SCSN2-T0 FETCH UNIT STATUS 


6 1 1 04090 



08 1 1 - A 
3 



DATE 
EC NO. 



14N0V69 
431319 



30JAN7 
431319A 



15SFP71 
431328 
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ID 



0811-A 
3A 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



0918 1003 

0919 1 4C28 0929 

091B 0A3S 
09 1C EA3E 
09 ID D23E 

091E 700A 



091l C22B 

0920 1 4C20 0949 

0922 0A39 

0923 D2^:i 

0924 C229 
092b O 8299 

0926 F239 

0927 1 4C20 0920 



092 ;> 1 6700 0f-.C4 
092B 68CB 
092C O 702E 



0920 C220 
092E 6299 
092F f 239 
C930 1 4C20 0935 
093? 1 6700 0HCI5 
0934 7026 



SLA 

BN 

>;io 

OR 
STO 



UNBZY TEST FOR UNIT OR CU BUSY 81104100 
SCINX BR TO SET POINTER TO SCSX8 81104110 

811041 20 

2 SCSN2-TB FETCH UNIT STATUS 

2 SCSXO+l-TB MFRGE WITH OUT STATUS 

2 SCSXO+l-TB * 



SCINX 



BR SET POINTER TO SCSXO 



* 
* 

* 

SCI NO LD 
BNZ 

* 

XIO 

STO 

LD 

A 

EOR 

BNZ 



GET HERE IF TIOSW WAS NOT ON AND TEST 
FOR USER TIO IF SO PLACE STATUS IN SCSX8. 
ELSE GO TEST FOR SENSE OPERATION 1NTERUPT 



2 H10..X-TB 
SC1N3 



SCSN4-TB 

SCSN4-TB 

TIOXX-TB 

K3-TB 

SCSN4-TB 

SC1N1 



GET HIO SW 
BR IF SET 

ELSE GET CCW ADDRS REG 

SAVE FOR LATER USE 

GET TEST I/O ADDRESS 

.'00 THREE 

COMPARE WITH CCW ADKS REG 

BR IF NOT THE SAME 



GET HERE IF USER TIO OR SYSTEM TIC) 
FOUND THAT THE UN!' OR CU WAS BUSY 
AFTER A TEST 1/0. 



SCINX LDX 
STX 
ML X 



L3 SCSXO 

WATSW 
SC1N5 



ELSE POINT TO SAVE AREA 
SET TIO INTERRUPT SW 
GO TO COMMON RTN 



* 
* 
* 
* 
SCI HI 



* 

* 
* 
* 



GET HERE IF NO TEST I/O WAS INDICATED 
BY THE PRIOR ROUTINES 



LD 
A 

E OR 

ii.MZ 

ox 

MDX 



2 SENSE-TB 

2 K3-TB 

2 SCSN4-TB 

*+3 
L3 SCSXC 

SC1N5 



GET CO ADDRESS FOR 

POINT TO I Ot.LOWlNG 

COMPARE 

HR IF not 

POINT TO SAVE AREA 

GO TO COMMON RTN 



GET HERE IE SENSE "AS FOUND NOT TO 
BE ;'HE CAUSE OF THE INTERRUPT AMI TEST 
FOR START I/O TO BE THE CAUSE, IE NOT 
THEN SET THE INTERRUPT TO lilt UNEXPECTED. 



0935 C22E 

0936 1 6780 08AE 

0938 8299 

0939 022 1 
09 3 A F239 
093B 1 4C18 0949 

C30 1 
18 0E 

4C20 0946 
C301 
F29B 
1008 

4C20 095!) 
7303 
C221 
7 0EI- 



* 
SC1N2 



0930 
093E 
093F 
094 1 
0942 
0943 
0944 
094 6 
094 7 
094 8 





1 




1 



0949 1010 

094A D22B 

094B 1 6700 OBBC 

094D C30 1 



LD 
LDX 

A 

STO 

EOR 

BZ 

LD 

SRA 

BNZ 

LD 

EOR 

SLA 

BNZ 

MDX 

LD 

MDX 



SC1N3 SLA 
STO 
LDX 
LD 



2 SIOXX-'!B 
13 SIOXX 

? K3-TB 

2 TSWDS-TB 

2 SCSN4-TB 
SCIN3 

3 1 
14 

» + 5 

1 

K8-TB 

8 

SC 1 N4 

3 

TSWDS-TB 

SCIN2 



GET START 
SFT IN REG 



I/O CCW ADDRESS 
TOO 



3 
2 



POINT TO NEXT ADR5 AFTER 
SAVE IN TEMP STORAGE 
COMPARE 
BR IF SAME 
GET OPCODE/FLAGS 
SAVE CXO CHAIN/DATA CHAIN 
BR IF 'El 
GET IT AGAIN 
TEST FOR TIC 
SAVE OPCODE ONLY 
BR IF NOT TIC 



61 104 1 30 
8 1 104140 
81 104150 
8 1104160 
81 104170 
611041 80 
81 104190 
8 1 104200 
81 1042 1 
81 iO4220 
81104230 
81104240 
81 104250 
8 1 10 42 60 
81 104270 
81 104200 
81 104290 
8 1104300 
8 1 104310 
8) 104320 
81 104330 
81104340 
81 104350 
81 104 360 
81 104370 
8 1104380 
81 104 390 
81 1 04400 
81 1044 10 
81 104420 
81 1044 30 
81104440 
81 10441,0 
811 04460 
81 104470 
8) 1044 80 
81 104490 
81 104500 
81 10 4 510 
81104520 
til 104530 
8 1 I 04540 
HI 104550 
81 104 560 
81 104570 
1 104580 
81 104590 
81 1 04600 
6110 4 610 
8 1 104 620 
61 104630 
Oil 04640 
ei 104650 
81 1 04660 
81 104670 
8 1 1046H0 
61 104690 



POINT TO NEXT CCW IN CHAIN 61104700 



16 

2 HIOXX- TB 
L3 SCSXO 

3 1 



GET ADDRESS 
LOOP 

CLEAR HIO SW 

* 

POINT TO SIO SAVE AREA 

GET LAST UNIT STATUS 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 

094E 100D 

094 F 1 4C2 09 SB 

0951 1001 

0953 1 4C28 095b 

0954 7008 



81 1047 10 
81104 720 
81 104730 
61104 74 
8 1 104 750 
81104760 
81104770 



PRCG ID 08 11 "A 
PAGE 4 



SLA 

BN 
SLA 
BN 
MDX 



Ut-OVE TEST FOR DEVICE END 

SON.. BR IF SE1 

UNCHK-UIDVE 1EST FOR UCHK 



SC I N5 
SCIN6 



095S 1 6700 097 1 
0957 1 6FC0 0809 
0959 1 6700 08C0 

095B 10 10 
095C 030 1 

0950 0A33 

095E D300 

095F 100 1. 

0960 1 4C10 i.96F 

0962 0A37 

0963 EB01, 

0964 D301 

0965 0A39 

0966 0302 

0967 OAJB 

0968 D303 

0969 6600 0060 
096B 6500 0000 

096D 1 4C80 08EA 



096F O 1010 
0970 70F3 



097 1 1 6600 087F 

0973 610C 

0974 1 6700 08C3 



SCIN4 LDX L3 SCIN8 
STX L3 MLSCO 
LDX. L3 SCSX4 



SONS SLA 
STO 

* 

SC1N6 XIO 
STO 
SLA 

BNN 



16 
3 1 

2 SCSNl-Tfl 

3 
1 
SCINA 



XIO 
OR 
SCINB STO 
XIO 
SIO 
XIO 
STO 
* 

S~lN7 LDX L2 *-* 
LDX LI *-* 



2 SCSN3-TB 

3 1 
3 1 

2 SCSN4-TB 

3 2 

2 SCSN5-TB 

3 3 



BSC 1 SCINT 



BR IF SET 

ELSE 'OR' IN STATUS 

SET MI.SCF ENTRY FOR RETURN 

*»* 

POINT U SAVE AREA 

CLEAR WORD TO ZERO 
FOR OR' ING IN STAT S 

GET CHAN. STATUS 

SAVE 

TEST FOR USP 

BRANCH IF NOT ON 

-,ET UNIT STATUS 

COMBINE WITH EXISTING 

SAVE 

GET CCW ADDRESS REG. 

SAVE 

GET BYTE COUNTER 

SAVE 

RELOAD REG 2 
REG 1 

EXT INT. RTN 



GET HERE IF U.iP WAS NOT THE CAUSE OF 
THE INTERRUPT AND SET U3 TO 0000 



SOMA SLA 16 CLEAR ACC 

MDX SCINB RETURN 

» RETURN HERE AEIER UNEXPECTED INT 



SCI NO LDX 12 TB 
LB X 112 

LDX L3 SCSX443 



0976 
0977 
0978 
097A 
097B 
0970 
097E 
097F 



C300 
4 21 A 
D500 
IbDO 
0500 
73FF 
7 1 ED 
VOI-6 



SCIN9 LD 
US I 



0993 



0994 



SET UP TABLE POINTER 

SET UP POINTER 

SET UP CSW POINTER 

GET CHNL STATUS 
CGNVf RT TO 1443 CODE 
PUT IN MESSAGE 



0980 4209 

098 1 1 0'.'B4 

0962 4CU0 012D 

0984 0015 

0993 FFOO 

0994 0013 
09A1 FFFF 



3 

2 TCVItt-TB 
STO Ll SC.1M2-1 
ACM * 

STO Ll SC1M2 * 

W>>. 3-1 

MD X 1-3 

K)X SC1N9 

* 

US I 2 1LGMS-TU 

DC SCIM5 

BSC I START 

SC1MS PRNT .** ER 00 UNEXPECTED INTERRUPT. 

DC /FFOO 

SCIM2 PRNT .CSV.' XXXX, XXXX, XXXX , XXXX. 

DC /FFEF 



09A2 0000 



*************** ,•.«**»*****«»******* ****** ********* 

t, *********************************************** 

» WAIT FOR INTERRUPT 

******* v ************************ ***************** 

********************* ********************** ****** 
TINTW DC. *-* ENTRY POINT 



81 104 7 60 
8 1 I 0* -'90 
81 10*B!>0 
81 104SS0 
81 104820 
81 104830 
81 104 840 
8 1 104 850 

81 104860 

81 1O4E70 

81 104800 

811O4SJ0 

81 104900 

81104910 

81 104920 

81104930 

81 104940 

61 104950 

81 104960 

PS 1 C-.970 
6! 104980 
8 1 104990 
<:■ i 1 5000 
-(■it -*■ 50 ! 

.- i so :.o ?- o 

I, i 10 50 30 
8 1 10 50 4 
8 11050! I) 
81 105060 
8 1 105070 
81 105060 
8! 10 50 90 
81 105100 
8 1 1651 10 
61 105120 
61 105130 
81 105) 40 
6 11051 50 
81105160 
611051 70 
611051 60 
61 105! 90 
61 105200 
81105210 
HI 105220 
6 11052 30 
81 105240 
1.1 I 05250 
61 10 52 60 
8 1 10 52 70 
81 10 52 80 
6 1105290 
81 105300 
81105310 
61 105320 
B1105330 
81 10 534 
81 105350 
el 105360 
81 105370 
61 105380 
8 1 105390 
61 105400 
81105410 
81 105420 
811054 30 
81 105440 
8 11054 50 



* * 

* 

** 

** 

* 

** 
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09«3 C28D 
09A4 D233 



09A5 C278 

09A6 1 4C20 09B6 

09A8 42F7 

09A9 I 74F6 08B2 

09AB 7.0F9 



09AC 
09AD 
C9AE 
09AF 
09B0 
09 B'. 
09B2 



0A33 
D2 49 
0A37 
D2«A 
0A29 
D24B 
0A3B 



09B3 D24C 

09B4 I 4C60 09 A2 

09B6 1 7401 09 A2 

09b!; 1010 

09B9 D278 

09B*. 1 4C80 09A2 





LD 


2 term-TB FETCH TIME OUT CONbl 




STO 


2 SCSN1-TB 




# 
T1NT2 


LD 

BNZ 

BS1 


2 WATSW-TB 

TINT3 
2 STML;-TB 


GO VISIT MONITOR 




MD X 


L SCSN1.-10 






MDX 


TINT2 




* 


XIO 
STO 
XIO 


2 SCSN1-TB 
2 SCSXC-TB 
2 SCSN3-TB 


GET CHANNEL STATUS 

* AND SAVE FOR ERR 

* MESSAGE 




STO 


2 SCSXC+1-TB 


* 




XIO 


2 SCSN.-TB 


* 




STO 


2 SCSXC+2-TH 






XIO 


2 SQSN5-TH 






STO 


2 SCSXC+3-TB 





use 

* 

TINT3 H>X 
SLA 
STO 
BSC 

# 



I INTW 

TINTW.l 
16 

WATSW-TB 
T1NTW 



EXIT RTN 



EXIT RTN 



'ART 
PAGE 



81 105460 
01 10 5470 
81105480 
81 106490 
811051)00 
01 105510 
81 105520 
81 105530 
81106540 
81 105550 
81 105560 
81 105570 
81106580 
81 105590 
8 1 105600 
81 105610 
8 1 105620 
81 105630 
el 105640 
81 105650 
8 1 1 06660 
81 106670 
8 1 105680 
81 10 5690 
R1 105700 



:****.********,***»*******************************: iwitVzi 
t*******,**************************************' 1 -** twiiiit 

81 105750 
81105760 



READ/WRIIE AREA FOR ALL ROUTINES 



OCBC 0064 

0A20 FFFF 

0A22 0064 

0/.86 FFFF 



0A87 4480 012C 
0A09 1 07FF 



0A8A 0000 

OABB COFt 

0A8C 0013 

0A8D 1 6600 08YF 



RAHEA BSS <z 100 R.:SERVb 200 BYTLb B , ,05810 

WAREABSS r "^ RESERVE 200 BYTES 8 1106820 

„^/;':.„„««"...«««««*«««"«' ****** •*:r. l .«us 

:;*»**»*»,***»********»*^**********'>*************; iwitm 
;,*******.************ **********,*****»******<***** ui^oS 

„G,N BS, I BEGIN CO TO MONITOR BEGIN RTN 8M0£10 
l>r TP1D ADDRESS OF P 10 el '",„," 

:***.***»*»*********♦****************************** r,i^,o6o 



0ABF 

0A90 1 

0A92 

0A93 

0A94 

0A95 

0A96 

0A97 

0A9S 

0A99 

0A9B 

0A9C 

0A9D 



1010 

D400 IE 07 

D2D6 

D277 

020 5 

D27H 

D263 

028 4 

D2G6 

D400 

C2B9 
0205 
C297 



I ACS 



ZIPA DC 
LD 
STO 
LDX 

* 

SLA 

sro 

STO 

STO 

STO 

STO 

STO 

STO 

STO 

STO 

LD 

STO 

LD 



*-* 
ZIPA 
ZLPA 
L2 TB 

16 

L FHESW 
2 L6BSY-TB 
2 WI0SW--1B 
2 TIOSW-TB 
2 WATSW-TB 
2 TSWO-TB 
2 TSW1-TH 
;; TSW3-TB 
L ST MPT 

HFFOO-TB 

TSW2-TB 

Kt-TB 



ENTRY POINT 

MOVE RETURN ADORS 

* 

SEI UP POINTER 

RESET- 
RESET CONTROL SWS 



2 
2 
2 



* 

* SW 

* SW 1 

* S W 3 

RESET STMLS POINTER 
FETCH CONSTANT 
PLACE IN SW 2 
FETCH CONSTANT OF 1 



DATE 

EC NO. 



14N0V69 
•♦31319 



30JAN70 
431319A 



15SEP71 
431328 



81106960 
81 105970 
81106980 
81 105990 
81 106000 
81 1060 10 
81106026 
81 106030 
8 11 06040 
01 10 60 60 
8 1 1 06060 
81 106070 
81106080 
01 10 6090 
61106100 
61 1061 10 
81 1061 20 
81 106130 
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1800 



DIAGNOSTIC - PHASE A 
DIAGNOSTIC MAINTENAtvCE PROGRAM 



0A9E D2D3 
0A9F 7 00) 



STO 2 PSCNT-TB SET PASS COUNT* 1 

(OX ZLPA.'. r.l.».TJNU17 

♦*»♦******»**♦»*-» ***«*»*•***** ********** 



8110 614 

011061 50 

* ******* 81106160 

* 8 1106170 



*****«******»*»***********••***************'******** 

LODP PGM RTN 
GET MLSCF ADDRESS 
SFf IN 1BL 
SET UP TBL. POINTER 
LOOK AT LOG EDIT 
BSt IF RELEASEO 
ELSE RELEASE DEVICE 
»3R OF EDIT WORD 
TERMINATOR _ 

SEL. CHAN. EDIT 

FELEASC DEVICE 



RESET- 

* STACK SW 
» SIO SW 

* LOG BUSY SW 
FETCH CONSTANT OF ! 
St •"» SECTION ID = 1 

exit 



OAAO 0000 


ZLPA 


DC 




*-* 


0AA1 1 6700 OADCS 




LDX 


L3 


TCNPR 


0AA3 1 6FO0 080» 




STX 


L3 


M.LSC2 


0AA5 1 6600 087F 
0AA7 C294 




LDX 
LD 


L2 
2 


TB 
TLGED-TB 


0AA8 1 4C10 OAAE 




BNN 




ZLPA1 


OAAA 4480 0132 




BS1 


1 


RELOV 


OAAC 1 0813 




DC 




TLGEO 


OAAD 1 080C 




DC 




TERM 


OAAF. C295 


ZLPA1 


LD 


2 TSCED-TH 


OAAF 1 4C10 O-HS 




BNN 




ZLPA2 


0AB1 4480 0ii2 




BSI 


I 


RELDV 


0AB3 1 08 14 
0AB4 1 OHOC 




DC 
DC 




TSCF-D 
TERM 


OmBS 


ZLPA2 EQU 




* 


0AB5 10 10 
0AB6 D2D4 




SLA 
STO 




16 

2 STKSW-TB 


0AB7 D2D1 




STO 




2 SIOSW-TB 


0AB8 020 6 




STO 




2 LGBSY-TB 


0AB9 C297 




LD 




2 Kl-TB 


OABA 0281 




STO 




2 TSID-TB 


OABB 1 4C00 OAAS, 




BSC 


1 


ZLPA 



8 1 106180 
81106190 
81 106200 
81106210 
81 106220 
8 11062 30 
81 106240 
8 1 106260 
81 106260 
81106270 
81 106280 
81 106290 
81 106300 
81106310 
81 106320 
81106330 
81 10634 
81106360 
81 106360 
81106370 
01 106^80 
81 106390 
81 106400 
811064 10 
01 106420 
8 1 10 64 30 
81 106440 



OABD 0000 

OAUE < 6600 067? 

OACO C294 

0AC1 1 4C1C 0AC7 

0AC3 4480 0132 

0AC6 1 0813 

0AC6 ? 080C 

0AC7 C296 
OACO 1 4C10 OAC? 

OACA 4480 0132 

OACC 1 08 14 

OACO 1 080C 

OACE 1 4C00 Ot» 



************** ,***♦*************♦****************** 

:********».**»^*****— ************************ iwittii 

ZEPA 



* 
ZEPA1 



DC 

LDX 

LD 

BNN 

BSI 

DC 

DC 

l.D 

BNN 



L2 
2 



TB 

ILGcD-Tt- 

ZEPA1 

lihLDV 
T L GfTJ 
TERM 



END PGM R1 N 
SET UP TBL POINTER 
LOOK AT LOG EDIT 
BR '.F RELEASED 
ELSE RELEASE DEVICE 
ADDR OF EDIT WORD 
TERMINATOR 



TSCED-TB SEL CHANNEL EDIT 
ZFPA2 fcR >F RELEASED 



81 106460 
81 1 064 70 
81 106480 
81 106490 
81 106600 
81106510 
81 106620 
1106530 
81 106540 
8 1106660 
81 10 6560 
81106570 
81 106680 
81106590 
81 10 660 
. 81106610 
t 81 10 662 
8 1 10 66 30 
81 10 664 
8 1106660 
81 106660 

:********»»»**»*********"************************: """lo 



ZEPAR 



BSI 

DC 
DC 
BSC 



RELEASE DEVICE 
ADDRS OF (HIT WORD 



RF.LDV 

Tsr.ro 

2[ ^A EXIT BACK TO MONITOR 

**»***»********,***»**»**************************** 



PHE-CONTROL ROUTINE 



* 



*********************** «■*****************■'********** 



OADO 
0AD2 
0AD3 
OADb 



1 66C0 0»57F 




C2DE 

4C20 0*E7 



08 1 1 - A 
5 






■"■■>> 



W DATE 
EC NC 



42F7 

0AD6 4480 OJ'il 
OADO 1 OADb 
0AD9 1 0813 
OADA 1 1DC3 
OADB 1 08 OC 
OADC 4480 0132 
OADE 1 08 13 
OADF 1 080C 



TCNPR LDX 
LD 
BNZ 
TCNRO BSI 
BSI 
DC 
DC 
DC 
DC 
BSI 
DC 
DC 



L2 Tfc 

2 T4 5SW-TB 
TCN01 

2 STMLS-TB 
fit 00 V 
TCNRU 
TLGEO 
TLGDA 
TERM 
PELDV 
TLGED 
TERM 



I 



1 



SET UP TABLE POINTER 
GET 43/53 SWITCH 



PE QUEST DEVICE 
BUS* RETURN 
ED IT FOR PRINTER 
AREA CUDE GIVEN BACK 
"ERMINATOR 
RELEASE DEVICE 
ED IT FOR PRINTER 
TERMINATOR 



14N0V69 
431319 



30J1AN70 
4313 19A 



15SEP71 
431328 



81 106680 
81106690 
81 106700 
81 106710 
81 106720 
81106730 
81 106740 
8 1 106750 
81 106760 
81106770 
81 106780 
81106790 
81 106800 
81106810 
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284 1 DIAGNOSTIC - PHASE A 



1600 



DIAGNOSTIC MAINTENANCE PROGRAM 



OAEO 1 C400 1DC3, 
0AE2 F2b3 
0AE3 4820 
0AE4 O C2 97 
0AE5 O 629 < 
0AE6 D2DE 



0AE7 

0AE7 O 

0AE8 

0AE9 

OAEA 



* 
TCN0 1 



42EB 

42E8 

C285 

1808 

0AE3 1 4C18 OAF4 
OAEO 4209 
OAEE 1 0B5 7 

OALF 42f 7 
OAFO O C2BS 
OAF 1 O 1006 
0AF2 4820 
OAFS 70FD 

0AF4 C265 
OAFS D2D0 
0AF6 4CT-A 
OAF 7 109 
OAFB O D046 

OAF 9 C2D3 

OAFA 42(0 

OAFB 42F/ 

OAFC O l'«0 

OAFD DC-46 

CAFE 4 2 0'-/ 

OAFF 1 0B30 



LD I 

EOR 

SKP 

LD 

A 

STO 

EO.U 

BSI 

BSI 

LD 

SRA 

BZ 

bSI 

DC 

bSI 

ld 

SRA 
SKP 
MDX 



TLGDA 

H3000-TB 

Z 

Kl-TB 

Kl-TB 

14'jSW-TB 



GET PRINTER AREA CODE 



ADD ONE 

SET SW 



FOR 4 3 OR S3 



GKTDV-TU 

FRED V-TB 

TSW2-TB 

8 

TCNJ2 

TLGMS-TB 

TCME2 

STMLS-TB 
: TSW2-TB 
8 
Z 
*-5 



TCN02 



LD 

STO 

BSI 

SLT 

STO 

LD 

BSI 

BSI 

XCH 

STO 

BS! 

DC 



TSW2-TB 
D VADR-TB 
TCVDE-TB 
16 
CUU11 

PSCNT-TB 
TCVHD-TB 
TCVBE-TB 

TTL01+3 
• TLGMS-Ui 
IT LOO 



GET DEVICE FOR USE 

RELEASE DEVICE 

GET SW FNC 2 (DEV AODR 

SAVE BITS 0-7 

BR IF ZERO 

PRINT MESSAGE 
•ENTER DEV ADD RE SO' 

GO TO MONITOR 
GET SW FNC 2 
bAVE BUS 0-7 
SKIP IF ZERO 
LOOP UNTIL OK 

GET SW FNC 2 
SET FOR S10/T10/SNS 
C0NVUR1 ADDR TO tUC 
O TO A 
STORE FOR PRINT 

GET PASS COUNT 
CVT TO DECIMAL 
CONVERT TO 1443 CODE 
O TO A 
PUT IN HSG 
FiJIMT PROGRAM TITLE 
MS 6 ADDRESS 



************************ 



;.»«***» ************ ******* 



******************** ******** ****** 
THIS ROUTINE CONTROLS ALL TESTS 



:<** *■****■* 



ObOO 

OBOO 

0B02 

Ob03 

0HO4 

OBOb 

0B06 



TCNTE 



6600 067E 
C264 
100C 

; poc 

D2HC 
C2B4 



0BO7 E2A9 



0B08 

OB09 

OBOA 1 

OBOC 

OBOD 

OBOE 1 



It Hit 
D2BB 

4C?0 0B1D 
1090 
18 0C. 
4C20 0B21 



0U10 1 6SB0 OBOO 
OBI 2 1 C500 0B2A 
OBI* D262 
Oblb 1010 
OB 16 D2B0 
0B17 D296 

0B18 O C261 
0B19 8297 

OBI A O 0281 

0B1B 1 4C80 0801 



TCN03 



EOU 
LDX 

LD 

SLA 

SRA 

STO 

LD 

AND 

SRT 

STO 

BNZ 

SLT 

SRA 

BNZ 

LD X 

LD 

STO 

SLA 

STO 

STO 

LD 

A 

STO 

bSC 



L? 
2 



TB 

TSW1-TB 

1' 

12 

TRTNN-TB 

TSW1-TB 

HOOFF- 

4 

TSCTN- 

TCN04 

16 

12 

TCNER 



ENTRY POINT 
SET TABLE ADDRESS 



GET i>W 
SAVE 

** 
** 
GET 



FNC 1 
BITS 12-1! 



FNC 1 
T1 DROP BAD BITS 

SAVE BITS 8-11 

SAVE SECTION NUMBER 

BR IF NOT ZERO 
GET BACK BITS 12-15 
SAVE THEM 
ERRt NO SECTION SPECIFIED 



IB 



II 

LI 
2 

2 
2 
2 
2 
2 



TSID 

TCN1 A 

I SAD- IB 

16 

TCNSW-TB 

TR10-TB 

TSID-TB 

Kl-TB 

TSID-TB 

TSAD 



GET 
GET 

STORE 



0B1D O D281 



* 
TCN04 



STO 2 TSID-TB 



SECT ION NUMBER 
SECT. PREFACE AOOR! 
IN SEC AODRS 
CLEAR ERROR COUNTER 
*** 

CLEAR RTN ID TO ZERO 
INCREMENT SECTION 
* 
* 

GO TO SECTION PREFACE 

STORE SECT. NUMBER 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SF.P71 
431328 



81106820 
81 106830 
81) 0684 
81 106850 
81106860 
81 106870 
81 10CB80 
81 106890 
8 1 106900 
81 1 69 1 
81 106920 
81 106930 
81106940 
81 106950 
81 106960 
8 1 106970 
811069BO 
81 10 6990 
61107000 
81 1070 10 
61107020 
81 107030 
8 11 07040 
81 107060 
6 1 ' 70 60 
81 107070 
811 70 80 
81 107090 
81107100 
HI 107110 
6 1107120 
61 107130 
81 107) 40 
61 1071 SC 
611 07160 
8 110 717 
El 1071 80 
81107190 
81107200 
81 107210 
61107220 
61 10 72 30 
81107240 
81 107250 
6 1107260 
Bl 107270 
8 11072 80 
81107290 
81107300 
61 107310 
61107320 
61 107330 
611073«0 
81 107350 
C 1107360 
81 107370 
HI 107360 
81 107390 
rfl 107400 
81 107410 
81 107420 
61 107430 
81107440 
61 10 74 00 
8 1 10 74 60 
81 107470 
8 1107460 
81107490 
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2841 DIAGNOSTIC - PHASE A 



1800 



DIAGNOSTIC MAINTENANCE PROGRAM 



0B1E 





900B 


OblF 


1 


4C28 OBI 


0B21 





C284 


0Bi:2 





42FA 


0B23 





DC2F 


0B24 





1090 


0B25 





D0 2E 


0B26 





4209 


0B27 


1 


0B48 


0B28 





4200 


0b29 





42DF 


0B2A 





0006 


0B2B 


1 


0067 


0B2C 


1 


OFBD 


0B2D 


1 


1 463 


0B2E 


1 


1662 


OBi'F 


1 


19 28 


0B30 


c 





* 
TCNER 



S 
BN 

LD 
BSI 
STO 
SLT 
STO 
BSI 
DC 
BSI 
BSI 



TCNT6. 
TCN03 

TSW1-TB 
TCVBE-TB 
TTLERt 11 
16 

TTLER+12 
! TLGMS-TE- 

TTLER 
? THALT-TB 
! CNTRL-TB 



SUB. 
BR 



NUMBER 
IF OK 



OF SECTIONS 



GET SW FNC 1 
CONVERT HEX TO PRNT CODE 
PUT INVALID SWITCH 
* SETTING INTO MESSAGE 



GO TO RETRY RTN SELCT 



TCNTA DC TCNTZ-TCNTA LENGTH 

OC T10NT SECTION 

OC T2 0NT SECTION 

OC T30NT SECTION 

DC T4 0NT SECTION 

OC T60NT SECTION 

t0U * EIO OF 
i ************ 



0B30 




001 b 


0B3F 




0001 


0B4O 





FFOO 


0B4 1 




000b 


0B4 6 





FFOO 


064 7 





FFFF 


0B48 




0013 


OBbb 





OOFF 


0Bb6 





FFFF 


0Bb7 




0012 


0B63 





FFOO 


0B64 





FFFF 



TCNTZ 

******* 
* 

*************** 
TTLOO PRNT . 

CUU11 PPET 

DC 
TTL0 1 PRNT 

DC 

OC 
TTLER PRNT 

DC 

DC 
TCNE2 PRNT 

DC 

DC 



OF TBL 

ADDRESS 
ADDRESS 
ADD RE SS 
ADD RE SS 

ADDRESS 
TABLE 



************* 



v****** *********** 

* 

a,*****.******************** ******** 



2841 DIAGNOSTIC TEST ON UNIT 



/FFOO 

.PASS- 

/FFOO 

/FFFF 

. * * E R 

/OOFF 

/FFFF 

. *** SELECT OPTIONS ***. 
/FFOO 

/FFFF 



TERMINATOR 



INVLD SWS FNC 1 XXXX. 



a******,.******************- *********************** 
t*«***«*»*«. **************************************** 



0B6b 000 1 
OUOb OOOA 

0B67 C2BC 
0B68 1 4C18 
0B6A 9 CMS 
0B6B 1 4C30 
0B6D HOE 8 
ObtiE 7 000 



* 
* 
TIOW 

* 
T10N1 



SECT ION PRE! ACE 



0B6F 



01)21 



DC 

DC 

LD 

BZ 
S 

BP 
A 
MD X 



/O001 
10 



SECT ION NUMBER 



TRTNIJ 

I 1 101 

II OI'R+ 1 
TCNER 
Tl OPR+ 1 

r 1 1 o l 



TB 



SW 
BR 
IE 
BR 



12-15 
RTNS 



FNC 1 BITS 

IF RUN ALL 
,T FOR VALID 

IF INVALID RTN NUMBER 



RESTORE RTN 
GO TO FIRST 



NUMBER 
RTN 



***»r»» ******************** ************' 



********* 



*************** 



l.*******************************"'*** 



***»*.***«*«**»****»************ ******************** 

* ROUTINE —I— TEST CHANNEL 

***************** ********************************** 

* 

* 

* THIS ROUTINE WILL EXECUTE THE 

* INSTRUCTION TO CHECK THAT THE 
» FREE AN) AVAILABLE BEFORE ANY 

* COMMANDS ARE EXECUTED. 



TEST CHANNEL 
CHANNEL IS 
OTHER I/O 



11-A 
6 



DA .E 
EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



16SEP7 1 
431328 



81 10750 
81 107M0 
81 107520 
61107530 
81 107540 
8 1 10 7550 
81107560 
61107570 
81 107580 
8 1 107590 
81 107600 
81107610 
61 107620 
81107630 
81 10 764 
81107650 
81 10 7660 
81107670 
81 107680 
8 1 1076 90 
61107700 
81107710 
81 10 772 
611O7730 
81 107740 
8 1 107750 
81107760 
8 1107770 
61 107780 
6 1107790 
81 107800 
8 1 10781 
81 107620 
81107830 
61 10784 
6 1 10 7650 
61 1071.60 
81 107670 
81 107880 
81107690 
81 107900 
81107910 
01 107920 
ft J i 79.V- 
Ci '»:; /'"-■ 
H '■ 1 OY'.-'-.O 
6 1 16 7960 
6 1 ! 7970 
81 10 79 60 
81 1O7990 
81 10 80 
6 1 10 HO 10 
6 110 BO 2 O 
811060 ;>o 
61 1 60 4 
8 1 108050 
81 10 BO 60 
811080 70 
81 10 60 HO 
81 I 06090 
81 106100 
6110B110 
81 108120 
8 1 1 O 8 1 30 
8110 814 
81 loei 50 
81 108160 
8 I 108170 
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PART NO. 3279171 I 



IBM MAINTENANCE DIAGNOSTIC PROGR 
2841 DIAGNOSTIC - PHASE A 
1800 DIAGNOSTIC MAINTENANCE PROGRAM 



AM FOR THE 1800 SYSTEM 



,*.,***. *»,***. *»*********************'**"" B ******t 

L*. *********** ************** ********************* 
;** ...» **************r**:!:*::i::: J r" v ****** 



0B6F 

0B6F 1 7401 081S 

0b7! 1 4C18 0B76 

0b73 9297 

0B74 1 4C20 0BB9 

0B76 O C283 
0B77 100A 
0876 1 AC10 0B7C 
0B7A 4209 
0B7B 1 0B92 

OB7C 42EB 

0B7D 1 6500 0BB6 



T110 1 EOU 
MDX 

uz 
S 

BNZ 
t 

T 1 1 2 LD 
,-SLA 
bNN 
dSl 
DC 



T RID . 1 
Tl 102 
Kl-TB 
T1201 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 



GET OPTION SWS 
PRINT TITLES 

DH IF NOT SET 

TLGMS-TB GO TO PRINT ROUTIt 

TTLU 



TSWO-TB 

OTTLE 

T1103 



T1103 BSI 2 GETDV-TB 



MESSAGE ADDRESS 

GET CHANNEL FOR RTN 



f 





0U7F 1 
OBOl 


6O00 
10 10 




0082 


D20 2 


K 


0BB3 


0A31 


0B84""~ 


02 31 




0U8.) 


420F 




01106 1 


0B8 3 



.& 



'<\ 



0B»7 (.2 31 

OBfl« I8na 

0B69 1 4C20 OrlAO 



T 1 104 



T1I05 



LD X 
STX 

SLA 
STO 

X! O 
STO 
BSI 
OC 



LI 
LI 



Tllll 

ERADR 

16 
PASSW- TB 

5CSN0-TB 

SCSNO-TB 

! TLP5T-TB 

Til 



SET ERROR RETURN 
FOR EROUT RTN 

CLEAR PASS SW 
* * 

GET CHAN STATUS 
STORi FOR LATER 
TEST I OOP MO 
LOOP ADORS 



ADORE: 



CHECK CHAN: 



STATUS 



0B8B O 420E 
0IJ8C 1 0B83 



OBrtD 42E8 

OBOE ') :2»C 

OBBF 1 4C.10 0BB9 

0H9 1 4 20F 

(,HQ2 000 7 

0B99 0006 

0B9F Mll- 

OBAO 1088 
0BA1 1 4C28 0BB3 
0BA3 1001 
0BA4 1 4C10 OBBO 
0BA6 C20 2 
0BA7 1 4C20 OBAO 
0BA9 0A37 
OBAA C28D 
OBAB 020 ~ 
OtJAC 7 00 6 

OBAD 42E5 
OBAE 0302 
ObAF O 1101 

OBBO 42E5 
OBOl 0300 
0BB2. O 1102 



* 
T1106 



LO 

SRT 

BNZ 

LSI 
C 



■lO-TB 



sc: 

8 
T1107 

TLPST-TB 
Til 05 



GET CHAN- STATUS 
SAVE BUS 0-7 
BR IF NON ZERO 

TEST LOOP SIO 
LOOP ADORS 



GO TO NEXT ROUTINE IN SEQUENCE 



1 i 1EN 



TTL1 1 



OS) 
LO 
B2 
BSI 

PRNT 

prnt 

DC 



T1107 SLT 
BN 
SLA 

bun 

LO 
BNZ 
XIO 
LD 
STO 
MOX 
* 

T1100 BSI 
OC 
OC 
* 

T1109 es I 
DC 
DC 



FRED V- Til 

TRTNN-TB 

T1201 

CNThL-TIl 

. SECT 1.H1 



FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SIO 
GO TO CONTROL RTN 
1- . 



.TEST 
/FFFF 



CHANNEL^ 



8 
T1U0 

SC.U5P 
T1109 
PASSW-TB 
Tl 108 
SCSN3- fO 
T 1. R K- T H 
PAS5W- TB 
Tl 105 

EROUT-TB 

/0302 

/1I01 

2 EKOUT-TE 
/0300 
/1102 



t: wi 



REPOS IT ION STATUS 
BR IF NOT OPERATIONAL 
TEST FOR UNIT STATUS P 
BR IE NOT SET -ERR~ 

GET PASS SWITCH 

BR IF SET 

CLEAR STATUS 

SET SW TO NONZERO 

** 

LOOP 



KETUtJN TO AORS ru ERADR 
ERR NUMBER 



RETURN TO AOr,S IN ERA 
ERR NUMBER 



PART NO. 
PAGE 



81108180 
Bl 103190 
81 108200 
81 1082 10 
81 10R220 
81 108230 
81 1 08240 
81 100250 
8 11 08260 
81 1082 70 
8 1 1 002 80 
81 108290 
81108300 
81 108310 
81108320 
81 108330 
81108340 
81 108350 
81108360 
81 10 83"i 
8 1100380 
01 108390 
8 1 10 84 00 
81 10 84 10 
81 108420 
61 108430 

1 10 04'. 

01 10 84 SO- 
ft 1 1 84 60 
81 108470 
1111084 80 
01 108490 
1 10 0000 , 
8 110 OS 1 
81108520 
81 108530 
81108540 
81 108550 
81 1 08560 
81 10 857 
81108580 
81 108590 
81 108600 
81 108610 
1 108620 
81 I (.8630 
O 1 1 8640 
81 108650 
81100660 
81 10 867 

anoiM.ao 

81 108690 
1 108700 
61 108710 
81108720 
81103730 
8 1 1 08740 
81 10O7E0 
81 108760 
61 108770 
8 1 1 87 00 
81 10 8790 
e! 1 Of'BOO 
81 16 0010 
8 1 10 8"20 
81 106030 
ORZ 110084 
81 10BH50 



DATE 
£C NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 

PAGE 



'"*' 



r* 



,J 2841 D 
,-. 1800 D 



1AGN0STIC 



PHASE A 



1AGN0ST1C MAINTENANCE PROGRAM 









0BB3 O 42E5 
0BB4 0300 
0BB5 1103 

0BB6 420C 
0667 1 0B81 
Obb8 70D4 



2 EROJT-TB 
/0300 
/I 103 

2 TLPER-TB 
T1104 
THEN 



TAGS AtC OPTIONS 
ERR' NUt-'OER 

TEST LOOP ERROR 
LOOP AJ9RS 
EM3 RTN 



i 1 ^ 



Til 10 BSI 
DC 

DC 
» 
Tllll BSI 

DC 
(■OX 

* 
* 
* 

***,**»*♦**»**************************»********** 

* 

* ROUTINE —2— HALT 1/0 

************** ,*,****»*.************************** 



THIS BOUT INI WILL EXECUTE THE HALT I / IN- 
STRUCTION AhO CHECK FOR DEVICE AVAIL-. L.E. 
INTERRUPTION PILING. DEVICE BUSY , Oh-/ C t. 
NOT OPERATIONAL. OR INVALID CHANNEL AND 
UNIT STATUS. 



* 



»**..<* **.*<.***********************» 4 **********"'*** 



******************************* ********** 
***«***.*« ************** ***************** 



0BB9 

0BB9 1 740 1 

OBUB I AC 18 

OBBO 9297 

OBOE 1 4C20 

ObCO C263 
0BC1 100 A 
0HC2 1 4C10 
0BC4 4209 
0BC5 1 0BE2 

OBCO 4 2F.O 
OUC 7 I 6500 
01>C9 1 60 00 

OBCU 1010 

OBCC 0231 

OBCD O OAflf 

OHCt i 6C00 



001 5 
OBCO 

01 O 



0BC& 



oor e 

1C7 1 



v * * * * * * ti 

* * * * * * * * 

* 

TEST ft.TR" POINI 
BOMP RTN 10 

OR IF TEST NUMBER ZERO 
D I'.i. RE Mi: NT BY ONE 
BR IF 60T THIS II ST 



T1201 EOU 
MO X 
Wl 
S 
BNZ 



T R ID . 1 

112 2 

2 Kl-TB 

T1.501 



T1202 LD 

SLA 
BNN 

BSl 

OC 

* 



2 TSWO-TB GET OPTION SWS 

QY 1, ( PR INT T ITLES 

T1203 0" IF NOT SET 

2 TIGMS-TB CO TO' PRINT ROUTINE 
rl , 1 a MESSAGE AiWRt-SS 



GIT CHANNEL rOR KIN 
SET UP EFPOM RETURN 






oh Aft 



T) 20 3 BSI 2 GETDV-TB 

LDX tl 11 21 P. 

51 X t. 1 ERAOR * 

11204 SLA 16 Rr c ,L! ACCUMOIMOM 

STO 2 SCSXO+1-TB CLE AH U'ilT S i A I OS 

XIO 2 I 10 X-TB ISSUE HALT 1/0 _ 

SIX I HI'OXX SET H10 SW 



OBOO 421!.. 

OBOl 1 0BF3 

0BO2 420F 

0BD3 1 OBCB 

0BD4 C230 
OBD5 1 F400 



o'P ( > 



v. 

OBFC. 



ft" 



0BD7 1 4C20 0BF6 

0B09 C2 3E 
OBDA 1000 
OBDB 1 4C20 OHf 9 



bSl 

DC 

BSI 

DC 

LD 

eor 

BNZ 

LD 

SLA 

bNZ 



2 WA1T5-TB 

T 1 2 E 3 
2 TLP5T-IB 

T1204 



CALL WAIT I/O ROUTINE 
NO INTERRUPT ADDRESS 
GO TEST LOOP SIO . 



2 SCSXO-TB FE'ICH CHANNEL STATUS 
L •, ,j-06 TEST WITH MASK 



T12E1 



PRINT ERROR 01 



2 S'SXO+l-lB GET 0»tl STATUS 
(, DROP UNIT ADDRESS 

T12E2 PRINT ERROR 02 



08 11-A 
7 






o 

o 



DATE 
EC NO. 



14N0V69 
431319 



30JAN7 
431 31 '.'A 



1SSEP7 1 
431 328 



81 10E860 
81108870 
81 108880 
81 108890 
81 10 8900 
8 1 1 O 69 1 C 
81 108920 
81108930 
81 108940 
81108950 
81 108960 

61 108970 

81 108980 

81100990 

81 10900 

81 1 090 10 

81 '.0902 

811 090 30 

ai 1090 4 

8 1 1 09 50 
HI 1 09060 
8 I 1 09070 
61 1090 00 
81109090 
81 109 100 
811 091 10 
01 109120 
81 1 091 30 
B110914 
HI ) 09 1 50 
81 1091 60 
811091 70 
81 109 160 
81109190 
81 109200 
811092 10 
8 1 1092 2 
811 09 2 30 
81 109240 
61 1 09 2 60 
81 1092 60 
8 1 1 092 ro 
el 1092 60 
8 1 1 09290 
81 109 50 
81109310 
81 109 32 
81109330 
ftl 109,14 
8 1 1 09 360 
61 109360 
81 1 09370 
81 109300 
8 1 1 09390 
81 109400 
8 1 1 094 1 
81 109 42 
811094 30 
61 109440 
81 1094 60 
81109460 
611094 70 
81109480 
61 109490 
61 109600 
81109610 
81109620 
81109530 



PROG ID 
PAGE 



7 



O/^-- & 2' 






:<? 






(/ C 2/1 



0811-A 

7A 



oooooooooooooooo 



NANCE DIAGNOSTIC PROGRAM FOR THE 1800 



IBM MAINTE 
284 1 DIAGNOSTIC - PHASE A 
1600 DIAGNOSTIC MAINTENANCE 



SYSTEM 



PROGRAM 



GO TO NEXT ROUTINE IN SEQUENCE 



ObDO 42E8 
OBOE C2HC 
OODF 1 4Clb OBFD 
ObEl 42DF 
0BE2 0007 

Ob.19 0004 

OOED FFFF 



OBt.E C263 

OOEF O 101C 

OOFO J 4C28 OBCB 

0BE2 70EA 

CbF'3 42E5 
0BF4 0302 
OBF'J 1203 

~ 0BF6 42uS 
0UF7 30 2 
Of" 6 120 1 

OW'9 4 2E5 

OIliA 0302 

OBFL' 1202 

OBFC 4000 



2 FPEDV-TB FREE CHANNEL 

2 TI-NN-TB GET RTN SWS 

T1301 00 TO NEXT RTN IN SF.O 

2 CNTRL-TB GO TO CONTROL PT,J 

, SECT 1 ,HT 2- . 



T12EN bSI ■ 
LO 
bZ 
bSI 
TTL12 PPUT 
* 

Pf NT 
DC 

* 

* TEST OPTION SWITCHES 



.HALT 1/0. 
/FFFF 



T12ER LD 
SLA 
bU 
MDX 

* 

T12C3 bSI 

DC 
* 

T12E1 b',I 
DC 
DC 
* 

T1212 bSI 
DC. 
DC 
T120S DC 



2 TSWO-TB 
OLPER 
T1204 
T12EN 

2 EROUT-TB 
/0302 
/1203 

2 EROUT-TB 
/03 02 
/1201 

2 EROUT-TB 
/03 0>' 
/1202 
/4 000 



FETCH OPTION SWITCHES 
TEST FOR SW OLPER 
BRANCH IF S* 01 PE« IS ON 
El. PL- ENS ROUTINE 

CALL ERROR OUT ROUTINE 
FLAG BITS 
MS-.C. NO OP ADDRESS 

CALL ERPOP OUT ROUTINE 
F L AG BIT '■, 
MSG NO OR ADOPf SS 

CALL ERPO'< OUT ROUTINE 
FLAG BITS 
MSO NO Of ADDRESS 



» ROUTINE —3" I''-' 1 !/0 



tvi-. 



* 

* 



* 

* 



THIS ROUTINE WILL EXlCUlE * TFVI /O 10 
DETERMINE THE STATUS Of TH> ACCE^. II- 
THF CSw l.UICATEJ. UNIT CHECK . THL ROU 1 I 
tXAMIIMS THE SENSE BYTES FOP ADDITIONAL 
INF OPM AT ION. 



COND ITIOi.'S CHECKED . 
CHANNEL BUSY 
CHANNEL UNAVA 1 LABEL 
CHANNLL DATA CHECK 
OTHER CHANNEL STATUS 
CONTROL UNIT BUSY 
DEVICE END 
UNSELICTLO FILE STATUS 

ONLINE OR OPE RAT IVL 

UNSAI- E 

BUS OUT PARITY 

NOT READY 



<•»***»«* ***»*«*«****■»*•***-'***♦" 



DATE 
EC NO. 



OBFO 



14N0V69 
431319 



T1301 tOO * TtST UNTK/ P0IHT 



PART NO. 2279471 
PAGE 8 



81 109 54 
81 109550 
81 1 09560 
8'. 109S70 
811 09580 
01 109590 
8 1 1 09600 
81 109610 
81 1 09620 
61 109630 
61 109640 
01 109 66 
HI 1 09660 
81 109670 
1 109680 
81 109690 
8 1 1 09700 
011097 10 
81109720 
Rl 109730 
6 110974 
HI 109750 
81 109760 
81 10977 
81 1 09780 
81 109790 
6 i 1 09800 
Bl 109 Hi 
81 109820 
Bl 109830 
8 1 1 09840 
81 109 850 
8! 109860 
81 109870 
8 1 109 880 
81 109890 
81 1 09 r '00 
61109910 
81 1 09920 
Bl 1099 3 
8110994 ' 
81 109900 
I: 8 1109960 
81 1099 7 
8 1 1 09980 
81 109990 
8111 0000 
01 1 10010 
81 1 10020 
01 1 100 30 
8111 0040 
81 1 100 50 
811 ICO 60 
81 1 10070 
Bill 0.1 BO 
01 1 10090 
Oil 10100 
811101 10 
Oil 10120 
81110 130 
8 11 10140 
01 110 150 
1110 160 
81 110 170 
811 10 1 80 
81 1 10190 
811 10200 
81 110210 



4 



ft * * * * * 

V> ¥ * ■ * * * 

Vit * * * 
* 



OOOOOOOOOOOO -O O 00 

'«„ maTnTenancTdiagnoTtic prXram fTtheTKo sv^TfM V WW W pA ^T< W W V ^ 
2641 diagnostic - phaSf. a 



1800 



diagnostic maintenance program 



30JAN70 
431319A 



1SSEP71 
431328 



PROG ID 
PAGE, 



0811-A 

a 



OOFO 1 7401 0615 

OBFF I 4C18 0CO4 

0C01 O 9297 

0C02 1 4C20 0C99 

0C04 C283 

0C06 100 A 

0C06 1 4C10 OCOA 

OCOe 4209 

0C09 1 0C26 

OCOA O 42IB 

OCOB 1 6500 0C7C 
OCOO 1 60 OC 1C7 1 

ocor o icao 

0C10 0A4 5 
0C11 0A47 
0C12 D278 

0C13 0A29 

0C14 1 4400 09A2 

0C16 7 068 

0C17 420F 
0C1B I OCOF 

CC19 O C245 
OC I A F2B4 
0C1B 1 4CK0 0C32 
GOD O C2 4G 

ocit; o loos 

0C1F 1 4C20 0C32 



0C21 42E8 

0C22 C2BC 

0C2 3 1 4flf! 0C99 

0C25 CI 42DF 

0C2 6 00 7 

0C2D 0004 

0C31 FFFF 

0C32- C245 
0C33 1 4C26 0C3B 
0C35 O 100 1 
0C36 1 4C26 0C3E 
OCJ't 42E5 
0C39 2302 
0C3A 1302 

0C3B 4 2ES 
0C3C 2302 
0C3D 130 3 

0C3E C.246 
0C3F 1 OOL 
OC40 1 4C28 0C54 

0C4 2 C2 4 5 
0C43 O 1808 
0C44 1 4C18 0C49 

0C46 42E5 



T1302 



MDX 

BZ 

s 

BNZ 

U) 

SLA 

BNN 

BSI 

DC 



TRID .1 
T1302 
Kl-TB 
T1401 

, TSWO-TB 

OTTLL 

T1303 

! TLGMS-TB 

TTL13 



BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 

BR IF NOT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRESS 



T1303 BSI 

* 

LDX 
STX 



LI 
LI 



C-ETDV-TB GET CHANNEL FOR RTN 

ERADR FOR RETURN 



30 4 



SLT 
STO 
STD 
STO 

XIO 
BSI 
MDX 

BSI 
DC 

LD 

EOR 

BNZ 

LO 

SLA 

BNZ 



T 1 3 1 7 

ERADR 

3? 

SCSX8-T0 

SCSX8+2-TB 

WA1SW-TB 



SET 



AO 
SAVE 



Cl: AR 

CLEAR 
it y # 

CLEAR 



ARE A 



INT. SWITCH 



TB 



T IOXX- 
TINTW 
T1318 

TIPST-TB 
T 1 3 4 

> SCSX8-TB 

> H4 000-TB 
T1306 

J SCSXB-t 1-11- 
8 
11306 



TEST 
WA IT 
COME 

TEST 

LOOP 



I/O 

FOR INTERRUPT 

HERE IF NUN: 



LOOP 
AI)I)R£ 



510 



GET CHAN STATUS WORD 
TEST FOR UNIT STATUS 
BR IF NONZERO STATUS 

GET UNIT STATUS 
CLEAR UNIT ADDRESS 
BR IF NON ZERO STATU; 



PEND 



* 
* 
* 
T13EN 



Till 3 

* 



T 1 306 



GO 



TO NEXT ROUTINE IN SEQUENCE 



BSI 
ID 
BZ 
BSI 

PR NT 

PR NT 
DC 

LD 

HN 

SLA 

ON 

BSI 

DC 

DC 



FRI'D V-.1IT 
TRTNN--TB 
T 1 4 1 
CNTRL-TB 
. SECT 1 . 



.TEST 
/FFFF 



1/0. 



scsxa-TB 

T1307 

SCUSP 

T1308 

EliOUT-TB 

/2302 

/I 302 



FRCC CHANNEL 
f,rt RTN SWS 

GO TO NEXT RTN IN 
GO TO CONTROL RTN 
T 3- . 



(,fl STATUS 

Is H IF NOT CITPATIONA! 
tEST FOR UNIT STATUS 
2R IF SET 



TAG 
EPS 



i AND OPTIONS 
NUMBER 



* 

T 1307 



T1308 



** DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



BSI 
DC 

DC 

LD 
SLA 
BN 
UNI T 
LD 

SRA 

BZ 

GET 

BSI 



15SEP71 
431328 



EROUT- 
/2302 
/1303 



TB 



2 SC1XB+I-TB 
UNCHK 
T 1311 
CHECK IS 01 F 
2 SCSX8-TB 
8 

T1309 
HERE IF SOME 
2 EROUT-TB 



TAGS AM) OPTIONS 
FPR NUMBER 

GET UNIT STATUS 
TEST FOR UNIT CHECK 
PR IF YES 

GET CHAN STATUS 
SAVE BITS 0-7 
C,P IFNONE 
CHAN. STATUS BITS ON 



Oil 10220 
81 1 10230 
81 1 10240 
81 1 10250 
01 1 10260 
Oil 10270 
61 110280 
811 10290 

e 1 1 ) o 30 o 

811 10310 
B1110320 
81110330 
81 1 10340 
8 11 10 350 
61 I 10360 
Oil 10 370 
81 1 10 380 
811 10390 
81 1 10400 
811 10410 
81 110 4 2 
Oil 10430 
61 ' 10440 
61 1 104 6m 
81 1 10460 
Oil 104 70 
Bl 1 104 80 
81 I 10490 
81 1 10500 
81 1 10510 
81 1 10 520 
8 1 1 10530 
81 1 10540 
811 10 550 
8 1 1 10560 
811 10 570 
6 1 1 10 580 
1 1 10590 
81 1 10600 
81 1 10610 
) 811 10 620 
81 1 10630 
61 1 J 64 
Oil HU-50 
8 1 1 10 660 
611 10670 
81 i 10680 
6111 06 90 
01110 7 
PEND 811 10710 
61 1 10720 
611 10730 
Bl 1 10740 
81110750 
61 1 10760 
811 10770 
01 1 10780 
Oil 10790 
81 11OBO0 
611 10610 
81 1 1C620 
81110830 
fil 1 10840 
8 1 1 10 650 
81 1 10860 
611 10H70 
81 1 10880 
811 10690 



PROG ID 

PAGE 



081 1- A 
8A 



Q 



oooooooooooooooo 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 
284 1 DIAGNOSTIC - PHASE A 



SYSTEM 



1800 



DIAGNOSTIC MAINTENANCE PROGRAM 



0C47 
CC48 



0C49 
OCAA 
0C4B 
0C«C 1 



2302 
1301 

C2''6 
100(5 
F2B5 
4C20 0CS1 



DC 
DC. 



/2302 
/1301 



TAGS AND OPTIONS 
ERR NUMBER 



CHECK FOR CNTRL UNIT BUSY 



T1309 LD 
SLA 

EOR 
bNZ 



2 SCSXE+1-1B GET UNIT STATUS 

B SAVE BITS 8-15 

2 H5000-TB TEST EOR CNlL BUSY AND 

T ,3)0 BR IF NOT 



0C4E 42E5 
0C4F 2302 
GC50 O 1311 

0C51 4 2ES 
0C52 2302 
0C53 1309 

0C5* 1 4400 0860 
0C>6 O CA25 
0C57 O I 09 A 
(1CW 1 AC 10 0C5O 
OCbA 4 2E5 
0C5B O 2303 
OCSC O 130 4 

0C5D CA2 5 
0C5E 1099 
Of. BP 1 4C10 0C64 
0C61 421 S 
0C62 2303 
0C63 1306 

0C64 CA25 
0C65 109 8 
0C)6 1 4C 10 0C6B 
OCfad O 4 2E5 
0C69 2 303 
0C6A 130 5 

0C6B CA2 5 
0C6C 1095 
0C6D 1 "CIO 0C72 
0C6F 4 2t6 
OC70 2303 
0C71 1307 

0C72 CA25 
0C73 109D 
0C74 1 4C10 0C79 
0C76 42!. 5 
0C77 2303 
0C7B 1310 

0C79 4 2F5 
0C7A 2 303 
0C7B 1308 

0C7C 4 20C 
0C7D I OCOF 
OCVB O 70 A2 

0C7F A2E5 
OCHO 130t: 

ocftl i oc.a2 

0CB2 0016 

0C92 0006 

0C9B FFFF 



* 
T1310 



bsi 

DC 
DC 

UNIT 

BSI 

DC 
DC 



2 EROUT-TB 
/2302 
/131 1 
CHECK AND NO 
2 EROUl-TB 
• 2302 
/1309 



TAGS AND OPTIONS 
ERR NUMBER 
CHANNFL STATUS 

TAGS AND OPTIONS 
ERR NUMBER 



* 
11311 



BSI L 
LOO 
SLT 
BUN 
BSI 
DC 
DC 
* CHECK 

T1312 LDO 
SLT 
BNN 
BSI 
DC 
DC 
« CHECK 

T1313 1.00 

. SLT 

*BIIN 

bsi 

DC 
(;'' 
* . -XK 

T131* UDO 
SLT 
BNN 

bSl 

DC 

DC 
♦CHECK FOR 



GETSN 
2 SNWOS-1B 
FUNS I 
T1312 
2 EROUT-TB 
/2303 
/1304 
FOR ONLINE 
2 SNMDS-TB 
FONLN 
T1313 
2 EROUT-TB 

/2303 TAG' 

/1306 ERH 

FOR FILE READY 
2 SNWDS-TB 

FDKDY TEST 

T1314 BR 

2 EROUT-TB 

/2303 

/1305 

FOR UNStLECTED 

2 SNWOS-TB 

FUNSL 

T1315 

2 EROUT-TB 

.2303 

/1307 



GET StNSE INFO 
GET BYTES TO A REG 
ii-ST FOR FILE UNSAFE 
bR IF NOT UNSAFE 



TAGS AM) OPTIONS 
ERR NUMBER 

GET SENSE INFO 
TEST FOR ONLINE 
BR IF NOT 



, AND OPTIONS 
NUMBER 



FOR RFADY 
IF NOT SET 



TAGS AND OPTIONS". 
ERR KUKRER 

FILE STATUS 



BR IF NOT 

TAGS AND OPTIONS 
ERR NUMBER 



END OF CYLINDER 



T1315 



T1316 



* 
T1317 



LDO 

SLT 

BNN 

BS! 

DC 

DC 

DT HE R 

BSI 

DC 

DC 

BSI 

DC 
MDX 



* 

T 1 31 ft 



* 
T13K2 



BSI 

DC 

DC 

PR NT 
PR NT 
DC 



> SNWDo-TB 

I ECYL 

TI316 
2 EROUT-TB 

/2303 

/1310 

SENSE INFO 

2 EROUT-TB 

/2303 

/1308 

2 TLPEK-TB 
T1304 
T13EN 

2 EROUT-TB 
/130E 
T13M2 

. 06 C>> 
.SECT 1 
/FFFF 



FETCH SENSE WORDS 
EM) OF CYLINDER 
bR IF NOT 

TAGS AND OPTIONS 
ERR NUMBER 



TAGS AND OPTIONS 
FRR NUMBER 

TEST LOOP ON ERROR 
LOOP ADDRESS 
END ROUTINE 

ERROR MSG RTN 
OPT IONS AND TAGS 
ERROR MSG ADDRESi 



ANN EL 
,R1 3 



KUNG AFTER TEST 1/0 



-■ DATE 

EC NO. 

v.. 

r 



14N0V69 30JAN70 15SEP71 
431319 431319A 431326 



PART NO. 2279471 
PAGE 9 



81! 10900 
81 1 10910 
81 1 10920 
81 1 109 30 
81 1 10940 
61 I 10950 
81110960 
81 110970 
81110980 
81 1 10990 
8111 1000 
1 1 1 1 1 
811 1 1020 
61111030 
8111 1040 
81 1 1 1050 
8111 1060 
81 111070 
8111 10B0 
81 111090 
81 1 11 100 
H 1 1 1 1 1 1 
Sll 1 1120 

e. • 1 1 1 1 30 

8111 1 1*0 
81 1 1 1 150 
811 1 1 160 
81111170 
8 1 I 1 1 1 80 
81 1 11190 
t'l 1 11200 
81 111210 
fill 1 1220 
81 111230 
Bill 1240 
61 1 11250 
8111 1260 
81111270 
611 11280 
811 11290 
81111 300 
81111310 
1 1 11320 
F, 1 1 1 1 330 
Bill 1340 
8111 1350 
Bit 11360 
61 1 11370 
81111380 
61 111390 
81111400 
61111*10 
81111*20 
811 11*30 
81il 1**0 
HI 1 11450 
1111*60 
81111*70 
0111 1*«0 
81 1 1 1*90 
Bill 1500 
81111510 
8111 1520 
81 1 11530 
811 1 154 
81111550 
811 11560 
81111570 
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■ J 1B M MAINTENANCE DIAGNOST.C PROGRAM FOR THE 1600 SYSTEM^ 



2641 DIAGNOSTIC - PHASE A 

1800 DIAGNOSTIC MAINTENANCE PROGRAM 






061 1-A 
9 






****************** 



****»*»»** ****»*»***♦********'** 



» ROUTINE --*-- NO OPERATION 



THIS ROUTINE WILL EXECUTE A NO-OP COMMAND. 
THIS IS THE FIRST I/O INSTRUCTION TH«T IS 
EXECUTED AM) WILL USE A NOP CCW. THIS 
COMMAS SHOULD CO THROUGH THE 2841 «' 
SELECTION SEQUENCE. THE INITIAL STATUS ; PRE 
SEN1ATI0N AM, THE EM.ING PROCEDURE. -•ODD, 
SELEC1 AND HEAD SELECT ARE THE ONLY FILE 
LINES / CI IVATED. 



* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



COND 1 T I ONS CHECKED . 

START I/O COMMAND SEQUENCE 
2641 INITIAL SELECTION AND (!. 



PAGE 



61 1 1 IStv.) 
8111 1590 
b 1 111600 
61111610 
Bl I 1 162 
Bill 1630 
81 1 1 1640 
8111 1650 
81 111660 
61111670 
Bill 1680 
8111 1690 
- 81111700 
E B 1 ! 1 1 I 1 o 
81111 7?<> 
Bill l 730 
8111 17ft0 
B 1 1 1 V ' 
» 11! 






0C99 

0C99 1 7*01 081S 

0C9B 1 *C18 OCAO 

0C9D 9297 

0C9E 1 AC20 ODOE 

OCAO C2B3 
0CA1 100A 
0CA2 1 4C10 0CA6 
OCA* A209 
0CA5 1 0CD8 

0CA6 42CB 

0CA7 1 6500 OCED 
0CA9 1 tO 00 1CM 

OCAB C2B4 
OCAC 020 1 

OCAD A2F4 
OCAt 1 0897 

OCAF 1010 
OCBO D2D1 

0CB1 C23D 

0CB2 t *C20 OCBF 



T1401 E«U * 

MDX L TR1D.1 
BZ T1402 



S 
BNZ 



2 Kl-TB 
T1S01 



TEST ENTRY POINT 

RUMP RTN ID 

HR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

OR IF NOT THIS TEST 



GET OPTION SWS 
PRINT TliLI S 
BR IF NO! SET 
2 TLGMS-TB GO TO PRINT ROUTINE 
TTL14 MESSAGE ADDRESS 



2 TSWO-TB 

OTTLE 

T1403 



T140? LD 

SLA 
BNN 
BSI 
DC 

^1403 BSI 2 GETDV-TB GET CHANNEL FOR RTN 

* 

LDX LI T1409 
STX 1.1 ERADR 



SF.T RETURN ADORCSS 



OCbA 
0CB5 
0CB6 
0CB7 
0CB8 
OCBO 
OCBA 
OCBB 
OCBC 
OCBD 



0A33 

D2*9 

0A37 

D24A 

0A39 

02 4 11 

0A3B 

02 4C 

42E5 

130A 



Tl 404 


LD 


2 H4000-TB 


SET SW TO EXI r blU 




STO 


2 S1USW-TB 


* RTN ON ERROR 


* 


BSI 


2 SIO-TB 


GO TO START 10 RTN 




DC 


NOPCC 


NOP CCW 


* 


SLA 


16 


CLEAR SW 




STO 


2 S10SW-1B 




* 


LD 


2 SCSXO-TB 


GET CHAN STATUS 


' 


BNZ 


T140K 


bR IF NOT 


* 


X10 


2 SCSN1-TB 


ELSE GET CSW AND PUT 




STO 


2 SCSXC-TB 


» SAVE AREA 




XIO 


2 SCSN3-TB 


* 




STO 


2 SCSXC+1- 


IB * 




XIO 


2 SCSN4-TB 


* 




STO 


2 SCSXC+2- 


TB * 




XIO 


2 SCSN5-TB 


* 




STO 


2 SCSXC+3- 


TB * 




BSI 


2 EROUT-TB 






DC 


/130A 





o 






DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



1SSEP71 
431328 



1 1 i«2 
6 1111 «30 
Bill 1840 
8111 1850 
81 ! 1 1 86 
8111 1670 
8111 1660 
Bill 1B90 
61 1 1 1900 
B1111910 
811119 2 
8 11119 30 
811119 4 
8111 1950 
Bill I960 
Bill 1970 
81 1 1 I960 
81 1 t 1990 
81 1 12000 
fill 1 20 10 
61 1 1 20 2 
B 1 1 1 20 30 
61 1 12040 
Bill 20 50 
Bl 1 12060 
611 12070 
61 1 120 BO 
611 12090 
8111210 
81112110 
01112120 
811 12130 
61 1 121*0 
61 1 12150 
IN 81112160 

81112170 
61112160 
8 1112190 
81 1 12200 
61112210 
81 1 12220 
81112230 
81 1122*0 
611 12250 



PROG ID 
PAGE 



081 1-A 
9A 



o 



oooooooooooooooo 



lfoK »» 
2fc*l 
1600 



MNT ENANCE DIAGNOSTIC «OGP 

,,,,(■ - OHASE *■ 
DIAGNOSTIC 






„^Tir MAINTENANCE 
OlAGNOSTIC "»' 

OCOf 1 ° tFC 



PROGRAM 



DC 



1 1 A HZ 



OCBF 
OCCO 1 
OCC2 O 
0CC3 O 
0CC4 1 
0CC6 
OCCV 
0CC8 1 
OCCA 
OCCB 

occc 

OCCi 



1001 

AC 10 OCE.A 

C230 

FEB" 

aC20 oca* 

C23E 

iooe 

«C28 0C£4 

C23E 

1O0C 

4C10 0CE7 



TI40" - SLA 
BNN 



1001 



OCCF 1 



ftC-10 0CE7 



UD 

E0« 

BNZ 

UD 

SUA 

BN 

LO 

SUA 

fc)NN 

SUA 

bNN 



SCUSP 
T1A0B 

2 scs*o-ts 

2 H4000-TB 

T1406 
2 SCSX0-1-T 11 
UNCHK 
Tl 406 
2 SCSX0+1-TB 
ONCHE 

T 1 * °7 

Ul-D VE-UNCHE 

11407 



TEBT FOR STATUS PENDING 



0CO1 A20F 

ocuz i ° c * 3 



0CO3 «2Ee 
OCD* C2»iC 
OCOb 1 *C1B 000, 

0C0 7 *2DF 

0CO9 0« 07 

OCOF OOOA 

0C.E3 O FFFF 

0Ct4 "2EG 

acub o o3a7 

0CU6 140 1 

ccf.7 o «£6 

0CE8 0306 
0CE9 '. *02 

OCC.A O *2ES 
OCED 0306 

ocec o 1*03 

OCED 420C 
OCtE 1 OCAB 
OCfcf 70i l 

OCFO 00 18 

0002 con 
000 FFFF 



6ET CHAN STATUS p£N0 

TE ST FOR UNIT STA1U 
B« V *NV STATUS 
«1 UNIT STATUS 
TES T rO« UNIT CHECK 
U IF UNIT CHECK 
, E? UN IT STATUS 
Tt " FOB CHANNEL END 

B»„r T r T « DEVICE END 

Gt T HERE IF NO P AP Pt ,_ 00P Sl0 

T140S 6SI 2 \\Zl «- OOP W ° RS 

C 



* 
* 



■*,*. IN SEQUENCE 
&0 TO NEXT ROUT IN. »N 



T14EM BSI 

LD : 

«Z 
BSI 
TTUJ4 P RN T 
* 

PR NT 

DC 
» 
T1406 BSI 

DC 
DC 

• 

T1407 BSI 
DC 

DC 

* 

DC 
DC 



FREOV-TB 
TRTNN-TB 
T1501 
. CNTRU-TB 



fljrt CHANNEL 

To '« ix? »TN IN SEO 

GO TO CONTROL RTN 



SECT i.RT fc ~ 

.NOP TEST. 
/f-FFF 



LROUT-Tr< 
/0327 
/J 401 

» fcROUT-TB 
/0306 
/1402 



EROUT- 
/0306 
/ 1 4 03 



TB 



TIA09 BSI 

DC 
l*)X 

* 

Tl**? PR" 7 
p'lNT 

DC 



2 TLPER-TB 
T1404 

T 1 4 S 



EKS CUMBER 



E RR.».-JMBER 



1U c,t LOOP ERROR 

■ r»* »odRS 

«*S IF NOT 



PART NO. 2279471 
PAGE l 



6 1112?f'° 

81112270 

811 12280 

61112290 

81112300 

81112310 

8111232° 
81112330 

81112340 

81H23S0 

811 12360 

8111Z3 70 
81112360 
81112390 

81112* 00 
61112" !0 
81112*20 
61112*30 

81112**° 
61112*60 
61112*60 
81112*70 

61112* 80 

81U2* 90 

31112500 

61112610 

81112&20 

61.1253C 

811 126*0 

61112660 

81112' j6 ° 
81 112670 
811 1250° 
81112690 
81112600 
61112610 

811126?° 

8111263'.; 

811126*0 

61112650 

81112660 

61112670 

61112660 

61112690 

61112700 



61112710 

„..., BU5V. NO INTERRUPT. ^M^ 
. 06 CHANNEL H ... BO 
. OCCURRED* i.'-C.l.«' 
/FFFF 



* . * **.********** 

ROUTINE —5 



SE N' 



e I/O 



************* 



******* ** 



* 
* 



* 
* 



t/ATE 
tr NO. 



14N0V69 
431319 



30JAN70 
(.31319A 



,*»********** 



1S6F.P71 
431328 



6111273° 

611127*0 

61112760 

61112760 

61112770 

81112-780 

81152790 

81112B00 

6111=8'° 
6111232° 
81112830 

81112 8 * 
8! 11285° 
61112860 
81 112870 
61112360 
el 112890 
61112900 
61112910 
81112920 
..♦*••♦•»«**• 61H2930 

,.»**.******«"* 



this routine x L c r E ;:r:«^s^. 

C -r T ^RASr F RO. 2841 TO PROCESSOR 



IBM M 
2e4t 
1600 



o o o 

MN TENANCE OlAGN^T 
D J AGNOSTIC - PHASE A 
OI AGNOST,C MAINTENANCE PROGRAM 



PART NO. 227^ 



ie iL. o o» oooooooooc 



v^' 



v*^' 



:*.,*^*--- : :;;;;::::;;;::::-- ::::::::::::: ; 
****************** ,„*».**«********* 

;mM«M«**** WM ' M * M T«tTn1« POINT 



T1S0! F.OU 
W>X 

uz 
s 

BNZ 

* 

T1502 UD 

SUA 

UtJN 
US1 

DC 



ToE 1 7401 0816 

0012 9297 

0013 1 *«° °° 6 '- 

0015 C283 

0016 100A 
0D17 ! 4C10 0D1B 
0019 4209 

001 A 1 00*9 

0D1B 42E» 

001 C 1 6S00 00 SF 
ODlfc » <« 00 ,C " 

0020 C?.6» 

0021 D22S 

0022 0226 

0023 O 0227 

0024 10AO 
0D25 DA49 
0026 DA4B f 

0D 27 42F* 
0D2e 1 08/.1 

0029 C C249 
P02A F2B4 
0D2B 1 *«0 0OS6 

0020 C2-4A 
002E O lOOfc 
00 2F 1 *C28 0OS6 

0D31 C24A 

0032 100C 

0D33 1 4C10 OJ-,9 

CD3S 1001 

0036 1 *C10 00 69 

0038 C225 

00 39 1 *C2° W>JV - 

003B C226 

003C E2A8 

003D 1 *C2° 0DhC 

»03F "2 7 

0040 1 *«° °° f ' C 

0042 4?0F 

0043 1 t»2° 



044 *2E8 
004b C20C 
0046 1 *C18 0062 

004 8 *20 F 

0049 0007 

ODbO °° 05 

0D6S FTFf- 



u TRIO .1 
T1S02 
2 Kl-TB 
T1601 



TFST ENTRY POINT 
iT% R TEST D NUMBER Z^«0 
DtC REMENT 
BR IF NOT THIS 



GE T OPTION SWS 
PRINT T1TUES 
"■ •-- ,,r IF NOT SET ^_ 

T1603 ,-,o!NT ROUTINE 

2 TLGMS-TB ^^EADDRESS 
TTL1S 



2 TSWO-TH 

OTTLE 

T1603 



T1603 BSI 



2 GETDV-TB 



L0X L , T1609 
S TX Ll ERADR 



Mfcf .SAGE ADDRESS 
GeT CHANNEU FOR RTN 
« <ET RETURN ADDRESS 



T1504 UO 

STO 
STO 
STO 
SUT 
STO 
STO 



2 TEHM-TB 

g SN\OS-TB 

2 SNWOS+1-TH ** 

2 SNW0S+2-TB *» 

32 
2 SCSXC-TB 
2 SCSXC+2-TB 



SF .T BYTES TO /FFFE INlT. 



BSI 
DC 

10 

EOR 

HNZ 

UD 
SUA 

ON 

UD 

SUA 

11NN 

SUA 

'JNN 



..TART I/O FOR SENSE 



2 SIO-TB 
SNCCW 

2 SCS.C-TB OET CHAN ^\^ pEND 

2 H4000-TB TfcbT fQ ^^^ S TATOS 

T1006 

.t 1IU1T STATUS 
2 SCSXC4 1-™ fJ^oR UNIT CHECK 

UNCHK OR IF «S 

T1S06 

iicIT STATUS 
2 SCSXC+1-T3 ^T^^^ CHANHE U END 

UNCHE Bf| ,p U( ,T 

ut .DV.:-uNCHi noT 0EWlte ,,N0 T 

T1S07 



UD 

BUZ 

\J> 

EOR 

BNZ 

U> 

BNZ 

« 

T1505 BSI 
DC 



, , CF T BYTES AND 1 

? SHWJS-TB N0T zrR() 

Tl ° 08 , T» GtT BYTES 2 AND 3 

2 HO.CB-TB TfcS. ^^ 

Tl'-'OB a F1YTFS 4 ANO 

e SNV.OS + 2-fB GET nYTF ^^ 

TlbOO BR 

,,pc. T -T'-> TEST LOOP &IOS 

2 TUPST-f^ HOURS 

T1004 UUU 



00 TO NEXT ROUTINE IN SEOUENCE 



•J1&KN BSI 
UO 
BZ 
BSI 
TTU1& PRNT 



FREE CHANNEU 
2 tX'-TB OUT ^^S rtn im £t0 

2 CNT°RU-TB GO_TO CONTROU RTN 



SECT l.RT 6- • 






?*■■> 



PROG 10 
PAGE 



0611-A 
10 



** DAT- 
EC NO. 



<^**fc 



14N0V69 
431319 



30JAN70 
431319A 



PRNT 
DC 



15SEP71 
431328 



.SENSE 1/0. 
/FHFF 



011119*0 

ell 12950 

81112960 

61112970 

81112980 

81112990 

81113000 

81113010 

81113020 

81113030 

811130*0 

81113050 

61113060 

81113070 

e i 113080 

81113090 

8lil3l00 

81113110 

81113120 

BUI 31 30 

811131*0 

61113160 

61113160 

61113170 

81113180 

61113190 

B1H3200 

81113210 

81113220 

61113230 

81113240 

81113250 

61113260 

81113270 

81113280 

611132 90 

6111330', 

6111 3310 

8111332° 

61113330 

61113340 

61113350 

81113360 

81113370 

81113300 

til 11 3390 

an 13*00 

81113*10 

61113*?° 

61113*30 

61113**0 

81113*60 

61113*60 

8 1113470 

81113*80 

81113*90 

61113500 

81113510 

61113620 

81113630 

81113540 

81113560 

61113560 

81113570 

81113580 

81113590 

61113600 

81113610 



PROG 10 
PAGE 



00 



0B11-A 
1 OA 



r 
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284 1 DIAGNOSTIC 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 









» 






811 13620, 


0D56 


42E5 




TI506 OS I 


2 EROUT-TB 




81 1 13630* 


0DS7 


1303 




DC 


/1303 


TAGS AND OPTIONS 


8 1 1 1364 


0U6M 


1501 




DC 

* 


/1S01 




81 1 13650 
8111 3660 


0D59 


42ES 




T1507 BSI 


2 EROUT-TB 




Bl I 1367 


0D5A 


1303 




DC 


/1303 


TAGS AND OPTIONS 


611 13680 


0D5B 


1603 




DC 

» 


/ISO 3 


ERR NUMBER 


81 1 13690 
811 13700 


0D5C 


42E5 




T1508 BSI 


2 EROUT-TB 




01 1 13710 


00 6D 


134 7 




DC 


/1347 


TAGS AND OPTIONS 


811 13720 


0D6E 


1504 




DC 

* 


/1S04 


ERR NUMBER 


81 1 13730 
811 13740 


ODSC 


«toc 




T1S09 OS I 


2 TlPlR-TB 


TEST LOOP ERROn 


81 1 13750 


006 1 


00 KO 




DC 


T1504 


LOOP ADDRS 


8 111 3760 


0D61 


70E0 




md x 

* 
* 

* 


T1S0S 


ELSE HERE 


61 1 13770 
8111 3780 
81 1 13790 
8111 31100 








***********»***********•; 


* V **************** ****:■,**** 


(11 1 1 3010 








* 






r. 1 1 1 3B20 








* ROUT INF — 6 — 


STAND ALONE CONTROL SEEK 


81 1 13U30 








* 






8111 3840 








t«t*«*»«*t»t»*»t*»***t»»**«*»t»*t*»H*<*tt»**S««t« 81 ] 1 Jfli'-O 








* 






3111 3860 








* 






8 1 ' 1 3 H 7 








* THI 


S ROUT INK PERFORMS A SEEK 10 CYL 198 


6111 3660 








* MD 


0. CHAINED TO 


A SEEK TO CYL COO HO Oi 


61 1 13090 








* AND 


WAITS FOR DEVICE END. If- NO DEVICE 


8111 3900 








* END 


IS RECEIVED . 


ERROR MESSAGECS; WILL 


1 1 1 39 I 








* HE 


PRINTED . 




8 1 1 13920 








* 






81 ) 139 30 








* 






8 111 3940 








* CONDITIONS CHECK ED . 


81 1 139S0 








* 


GATED ATIENTI 


JN 


6111 3960 








* 


POLLED CNABLf 




81 1 13970 








» 


SUPPRESS OUT 




8111 3980 








* 


REOUEST IN 




81 1 1399; 








* 






8 111 4000 








n«vB»tt*tt»»««tn*«t*«»*«t»**»*** , 5*«<*«»»»t»t*t 


f 811140 10 








* 






* 8111 4020 








******V*****i»** ******** 


*********** »e? v *********** 


* 811140 30 








»tUtS*l>«»»*H<-t»»»*t*»t**»*»t«*t»it!S»»f«tttt»»«« 6 1 1 1 40«0 








* 






« Bill 1050 








*************»******».******* 4******4 **<*** ********* 0)114060 


006;.- 







T1601 FQU 


* 


TEST ENTRY POINT 


8111 4070 


0062 


1 7401 


oa i s 


va x 


L TR,L>,1 


BUMP R1N ID 


811 1 4 80 


0D64 


1 AC 18 


00 69 


uz 


11 602 


BR IF TEST MUMi'lER /EP.O 


81 1 1 4090 


0D66 


9297 




c^ 


2 Kl-TH 


DECREMENT BY ONE 


8 1 1 1 4100 


00 67 


1 *C20 


00 113 


HNZ 

* 


117 01 


BR IF NOT THIS TEST 


81114 110 
Oil 1 41 20 


0D69 


C203 




1160? LD 


2 TSWO-TB 


GET OPT ION SWS 


81 1 14130 


006A 


100 A 




SLA 


OTTLE 


PRINT TITLES 


611141 «0 


0D6B 


1 AC 1 


00 6F 


BNN 


T1603 


BR IF not ::et 


81 1 14150 


00 6D 


4209 




US1 


2 TLCKS-TB 


GO TO PRINT ROUTINE 


8 1114 16 


0D6E 


I 0D96 




DC 

# 


TTL16 


MESSAGE ADDRESS 


81 1 14 1 70 
81 1 1 4180 


00 6F 


o 4 zee 




T1603 BSI 

* 


2 GETDV-TB 


GET CHANNEL FOR RTN 


81 1 14190 
8 1 1 14200 


0070 


1010 




SLA 


16 


CLEAR ACC 


31 1 14;: 1 


0D7t 


02C0 




STO 

* 


2 ERRSW-TB 


RESET ERROR SWITCH 


811 14220 
81 114230 


0D72 


1 6!, 00 


00 A 4 


LOX 


LI T16T1 




811 14240 


00 74 


1 CO 00 


19E9 


SIX 

* 


1.1 W1ADR 


ESI . T 1ME0UT AODR. 


81 1 14250 
81 1 14260 


0076 


1 6000 


00 89 


LD X 


LI T 1 6F. 1 




81 1 14270 


0078 


1 6000 


1C71 


STX 

* 


LI ERAOR 


EST. ERROR RETURN 


8 111 4280 
81 114290 



2641 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



0D7A 42F4 
0U7B 1 0DA7 



00 7C C23D 

00 70 1 4C10 00*42 

0D7F O 42ES 

0D80 8306 

0081 1601 



0D82 C23E 
0083 100E 
0D84 1 4C10 ";^8B 

0086 42E5 

0087 832 7 
0D68 1602 

0D89 O COOO 
ODBA 02C0 
OOdB 420C 
0U8C 1 00 ME 
0D8D 7003 

OOBF C2C0 

0001 1 4C20 0O7A 



0D91 4 2E8 

0DV2 C2BC 

0093 1 4C1» 00 B 3 

0D9b 420F 

0096 CI007 



009D 




0006 


0DA3 





f FPF 


0DA4 





421:5 


0DA6 





6. -.0 6 


00A6 





160 4 



i .... 



0DA7 0006 
0OA8 4007 
00 A 9 1 ODAO 



ODAA 0006 
ODAB 0007 
00 *C 1 00 BO 



ODAO O 0000 
ODAE 00C6 
ODAF 00 MO 

ODBO 0000 
0DB1 OOOv 
0DB2 0000 



T1604 


BSI 


2 S10--TB 


CALL S 10 ROUT INF 


81 11 4 30 




oc 


T16C6 


CCW ADDRESS 


ft 1 1 1 4 1 1 


* 






1. SEEK CYL 198 HO 


81 1 1 4320 


* 






2. SEEK CYL 000 HD 


8111 4330 


* 








81 1 14340 




LO 


2 SCSXO-TB 


CHAN STATUS 


8111 4350 




BNN 


T1605 


BR. IF OPERATIONAL 


81 1 14360 


* 








81i 14370 




BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


81 1 14380 




DC 


/83 06 


FLAG BITS 


61 1 14 390 




DC 


/1601 


WSG NO OR ADDRESS 


61 1 1 4400 


* 


PRINT CHAN NOT OPERATIONAL 


81 1 14410 


* 








61 1 14420 


T160S 


LD 


2 SCSXO+l-TB UNIT STATUS 


8111 4430 




SLA 


UNCHK 


LOOK AT UNIT CHECK 


8 1114 4 4 




BNN 


Tl 6E2 


BR. IF NO UNIT CHK. 


8 111 4450 


* 








81 1 14460 




BSI 


2 f ROUT- IB 


CALL ERROR OUT ROUTINE 


81 1 1 44 70 




DC 


/0327 


FLAG BITS 


81 1 14480 




OC 


/1602 


KSG NO OR ADDRESS 


81 1 1 4490 


* 


PRINT UNIT CHE 


CK 


81 1 14 500 


T16H1 


LD 


* 


GET A VALUE 


811 14510 




STO 


2 ERRSW-TB 


SET ERROR SWITCH 


81 1 14520 


T 1 6E 2 


BSI 


2 TLPER-TB 


TEST LOOP ON ERROR 


611 14 530 




DC 


* * 1 


TEST ERROR SW 


61 1 1464 




MDX 


Tl 6EN 


NORMAL EXIT 


6 1 1 14550 


* 








81 1 14 660 




LD 


2 F.'<RSW-TB 


FETCH ERROR SWI TCH 


81 1 14570 




BNZ 


T1604 




81 1 14580 


* 








81 1 14 590 


>* 








81 1 1460 


* 


GO TO NEXT ROUTINE IN SEOUFNCE 


8 1 1 14 610 


* 








01 1 14 620 


T16EN US) 


2 PREDV-TH 


FREE CHANNEL 


6 1 1 14630 




LD 


2 TK1NN-TB 


GET RTN SWS 


61 1 14640 




uz 


T 1 7 1 


GO TO NEXT RTN IN PF.O 


6111 4 650 




BSI 


2 CNTRL-TO 


GO .'0 CONTROL RTN 


Hill 4 660 


T1L16 PRNT 


. SECT 1 


.RT 6- . 


(Sill 46 /O 


» 








I 5 1 14660 




PRNT 


•CONTROL 


SEEK. ROUTINE TITLE 


0111 4690 




OC 


-1 




61114/0 


* 








B 1 ) 1 4 7 1 C 


T ). 6T 1 BS 1 


2 ER0U1-TB 


CALL ERKOf: OUT ROUTINE 


81 1 14??0 




OC 


/8306 


FLAG BITS 


6! 1 14 730 




OC 


/1604 


F',0 NO OR ADDRESS 


81114 7 4 


* 








8 i ) 14 760 


». 








81 1 14 760 


* 








3 1114 7 7 


* 








01 1 14 760 


TI600 DC 


6 


BYTE COUNT 


1114 7 90 




DC 


/40*266+ 


SCEKC FLAGS AM) OP CODE 


8 1 1 14 600 




OC 


11 OOF 


ADDRESS 


8 11 14 010 


» 








81 1 14820 


* 








6 1 1 14030 




DC 


6 


BYTE COUNT 


81 1 14 640 




DC 


0*256+SEEKC FLAGS AND OP CODE 


81 1 14 660 




DC 


1160G 


ADDRESS 


61 1 14 860 


* 








8 1 1 14870 


* 








81 1 1 4860 


T160F DC 





CYL 198 HD 


8 11 14090 




DC 


196 




81 1 14900 




DC 







811 14910 


* 








81 1 14920 


T160G DC 





CYL 000 HD 


611 14930 




DC 







81 1 14940 




DC 







8 111 4950 


* 








81 1 14960 


* 








611 14970 
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* ' 

* ROUTINE — 7 — READ HOME ADDRESS 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



THIS ROUTINE PERFORMS A SEEK (CYL 000 HO 0) 
CHAINED TO A KEAD HOME ADDRESS FOLLOWED BY 
A READ HOME ADDRESS. II CHECKS THE 

ABILITY OF THE DEVICE TO SEEK AND READ 
CORRECTLY AND THE ABILITY OF THE CHANNEL 
TO TRANSFER DATA CORRECTLY. THE TEST 
SEQUENCE I- REPEATED 10 TIMES, ALTER- 
NATING BETWEEN HEADS AND I. 



C0H>1T10NS CHECKED. 
CHANNEL STATUS 
DATA TRANSFER 



« * 

»*»»****»»*»***»**»****».* *Xl*J>»**** *»<-»«: ******* * * * * 



0ub3 

0DB3 1 740 1 OS 1 !> 

ODbS 1 AC IS ODD A 

0DU7 9297 

0UU8 1 4C20 0E4F 

OL.BA C283 

ODbb 100A 

ODBC 1 AC 10 CD CO 

00 BE 4? 09 

OD!H : 1 OF. 11- 

ODCO 42EB 

0DC1 C29? 
0DC2 D07R 

0DC3 61 u A 
0DC4 697A 

ODCS 1010 
CDC6 D2C0 

0DC7 C076 
0DC8 F297 
0DC9 0074 

COCA C2B4 
ODCB D2D1 

ODCC 1 6500 0E30 

ODCE 1 6000 19E9 

ODDO 42F4 

ODD) 1 01:40 

0DD2 1 6500 OEOF 
0DD4 1 60 00 1C7 1 

0DD6 1 6500 0E36 
ODDS 1 60 00 I9E9 



T1701 EQU 
MDX 
BZ 
S 
BNZ 

» 

11702 ld 

SLA 

BUM 
BS1 

DC 

* 

* 

LD 
STO 
* 

LDX 
STX 
» 

T1704 SEA 
STO 
f- 

LD 
EOR 
STO 
* 

LD 
STO 



* TEST ENTRY POINT 

TRIO .1 HUMP RTN ID 

T1702 BR IF TEST NUM!<ER ZERO 

2 Kt-TB DECREMENT BY ONE 

T1601 BR IE NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T1703 BR IF NOT SET 

2 TLGM5-TB GO TO PRINT ROUTINE 

TTL17 MESSAGE ADDRESS 

2 GETDV-TU 



GEI CHANNEL FOR RTN 



2 Kl-TH 
T170A+2 



1 10 

1 T170B 



2 ERREK-TU 

T170A+2 
2 K1--TB 
T170A+2 

2 H4000-TB 
2 S10SW-TB 



LDX LI T17T1 

STX LI WTAOR 

BSI 2 SIO-TB 

DC T 1 7 OC 

* 

T170S LDX LI T1701 

STX LI ERADR 

* 

LDX LI T17T2 

STX LI WTADR 

* 

* 

* 



INI'l HEAD NO. 

LOOP COUNT 
IN IT COUNTER 

CLEAR ACC 

RESET ERROR SWITCH 

HEAD NO 

COMPLEMENT 
ALTERNATE lit AD NO (0/1) 



SET RETURN ON ERROR 



EST. TIMEOUT ADDR 
CALL SIO ROUTINE 
CCW ADDRESS 



EST. ERROR RETURN 



EST. TIMEOUT ADDRESS 



8111 4900 
tl 114990 
811 15000 
81 1 15C10 
8111 5020 
61 1 15030 
8111 50 40 
(il 1 1 60 5 
811 1 50 00 
81 1 15070 
8 111 50 80 
81 1 15090 
811 J 51 00 
01115110 
81 1 1 51 20 
811151 30 
811 I 5140 
81 1 15150 
81 1 1 51 60 
81 1 15170 
811 1S1H0 
81 1 15190 
Bill 5200 
81 1 1521 
8)11 5220 
81 1 152 31 
81 1 1 52 4 
81 1 152 50 
81 I 1 52 60 
81 1 15270 
811 152 HO 
81)1 52 90 
8111 5300 
81 1 15310 
811 1532 
8111 5330 
811 1534 
81 1 15350 
Bill 5360 
81 1 15370 
fill 15380 
81 1 15390 
8111 5400 
811154)0 
811 15420 
8111 54 30 
Bl 1 15440 
81 1 154 50 
Bill 54 60 
81 1 15470 
8 11154 00 
8111 54 90 
Bill 5500 
81 1 15510 
811 15520 
81 1 15530 
6111 5540 
81 1 15550 
01 1 15560 
81 1 15570 
8) 1 15580 
81 1 15590 
Bill 560 
81 1 1561 
Bill 562.0 
81 I 15630 
811 15640 
81115650 



ODDA 42F4 




BSI 


2 


SIO-TB 


CALL SIO POUTINE 


ODDB 1 01:4 9 


* 
* 


OC 




T170E 


CCW ADDRESS 




GET 


HERE ONLY IF 


INT. RECEIVED 


ODDC C2 3D 


LD 


2 


SCSXO-TB 


EXAMINE CHAN STATUS 


ODDD E06E 




AND 




T170E 


ZERO LENGTH INDICATOR 


ODDE 4820 


* 


BSC 




Z 


SKIP IF NO OTHER BITS St 


ODDK 702C 


tcx 




T170K 


PRINT CHAN ERROR 


ODLO C23E 




LD 


2 


SCSXO+1-TB 


UNIT STATUS 


0DE1 100E 




SLA 




UNCHK 


LOOK AT UNIT CHECK 


0DE2 1 4C10 0DF9 




BNN 




<+5 


CONT INUE 


0DE4 42E5 




BSI 


2 


EROUT-TB 


CALL' ERROR OUT ROUTINE 


ODES 8 106 




DC 




/B106 


FLAG BITS 


ODE 6 170 4 




DC 




/1704 


MSG NO OR ADDRESS 




* 


PRINT 


UNIT CHECK 


ERROR 


0DE7 COOO 




LD 




fc 


GET A VALUE 


0DL8 D2C0 


* 
* 


STO 


2 


TRRSW-TO 


I'ET ERROR SWITCH 


0EE9 42EE 


OS I 


2 


GETSN-TB 


GET SENS r BYTES 


ODEA C225 


LD 


2 


SNWDO-TH 




OUEB 1000 




SLA 




a 


LOOK AT SENSE BYTE 1 


ODEC F060 




EOR 




T 170G 


CHECK NO-0 ATA-ON-TRACK 


ODED 1 4C20 0DF2 


* 


UNZ 




T1706 




ODEF 42E5 


BSI 


2 


ERCUT-TB 


CALL ERROR OUT ROUTINE 


ODFO 8307 




OC 




/8307 


FLAG BITS 


0DF1 1702 




DC 




• 1702 


MSG NO OR ADDRESS 



00F2 C225 

ODE 3 IB 08 

0DF4 F29B 

0DF5 1 4C20 ODEA 

0DF7 4 2E5 
0DF8 8307 
0DE9 17C3 

ODFA C225 
ODt B 100C 
ODEC 1 4C10 OEO) 

ODFL 42E5 
ODTF 8307 
OEOO 1705 

0E01 C225 
0E02 1003 
OEO'J 1 4C10 0E08 

0E05 4 2E5 
CE06 0307 
0EO7 1706 

OEOf C23D 
0E09 1006 
OEOA 1 4C10 0E11 

OEOC 42E5 
OEOD 8306 
OEOE; 1701 

oEor o cooo 

0E.10 D2C0 
0E11 420C 



* PRINT NO DATA TRANSFER 
T1706 LD 2 SNV.O0-TB 

SRA O LOOK AT SENSE BYTE 

EOR 2 K8-TB CHECK DATA-CHECK 

BNZ T1707 

BSI 2 EROUT-T'J CALL I RROR OUT ROUTINE 

DC /8307 FLAG BITS 

OC /1703 MSG NO OR ADDRLSS 

* PRINT DATA CHECK 
T1707 LD 2 SNWDO-TB 

SLA 12 CHECK NO-RE CORD -FOUND 

BNN TI708 

A 

BSl 2 EROUT-TB CALL ERROR OUT ROUTINE 

DC /03 07 FLAG BITS 

DC /1705 MSG NO OR ADDRESS 

* PRINT NO RI C ORD FOUND 
T1708 LD 2 SNWDO-TU 

SLA 3 CHECK EOUIPMFNT-C.HECK 

BNN T1709 

* 

BSI 2 EROUT-TB CALL ERROR OUT ROUTINE 

DC /8307 FLAG BITS 

DC /\7Vt> MSG NO OR ADDRESS 

* PRINT EQUIPMENT CHECK 

T1709 LD 2 SCSXO-TB LOOK AT CHAN STATUS 

SLA 6 CHCCK INCORRECT LENGTH 

BNN 11 70 J BRANCH NOT ON 

T170K BSI 2 ERUUT-TB CALL. ERROR OUT ROUTINE 

DC •8306 FLAG BITS 

OC •1701 MSG NO OR ADDRESS 

* PRINT CATCH-ALL ERROR MESSAGE 

11701 LD * GET A VALUE 

SIO 2 ERRSW-TB SET ERROR SWITCH 



T170J BSI 



2 TLPER-TB 



TEST LOOP ON ERROR 



81 1 ISuiStl 

8 11) ■'• 'l- 'it 
81 1 1568 3 
8 1 1 156 90 
81 1 15 700 
81 1 15710 
81 1 157 20 
811 15730 
01 1 15740 
1 1 15750 
81 1 a 5760 
8) 1 15770 
81 1 JS7B0 
6111 5790 
61 1 I 5 £-.0 O 
8 1 1 15610 
81 1 1502 
8 111 :.a«30 
81 1 I5B4 
Bill 5850 
61 1 15660 
8 1 1S5B'0 
8 1 1 15600 
61 I 15S90 
1 1 15 00 
O 1 1 1 59 1 O 
61 1 15920 
6111 59 3 C 
81 1 15940 
8113 '.950 
81 1 15960 
8111 597 
81 1 1590.0 
O 1 1 1 5990 
8111 6000 
8 111 60 1 
8) 1 5 60 2 
0111 60 30 
01 1 ! 60 <i 
611 5«iO50 
1 1 160 60 
01 S 1 60 70 
8)1) 6000 
6 1 i 1 60 90 
81 1 16100 
8 1 S 1 6 1 1 O 
0) 1 16120 
Oi 1 5 61 30 
111614 
113 61 50 
01 1 16160 
01 1 161 70 
81 J 16180 
811 16190 
8) 1 1 6200 
811 1 62 10 
01 J 16220 
81 » 162 30 
8) I 16240 
CI 1 16250 
81 1 16260 
61 1 162 70 
81 1 162 80 
8111 6290 
61 1 16300 
8! 1 16310 
81 1 16320 
611 16330 
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0E12 1 0E14 
0E13 7003 



0E1A C2C0 
0E15 1 4C20 0DD2 



0E17 1 74FF 0E3F 
0E19 70AB 



0E1* 42E8 

0L1U C2BC 

OtlC 1 4C18 0E4F 

0E1E 42DF 

CtlF 0007 



0E26 0009 
0t2F FFFF 

0E30 42E5 
0E31 106 
0E32 O 1707 

oe;v o cooo 

0E34 D2C0 
0E3& 70DB 

0E36 42E5 
0E37 O 6106 
0E3H 1708 

0E39 COOO 
CE3A D2C0 
0E3B 70D5 

0L3C O 0000 
0E3D 0000 
0E3S- 0000 

0E3F 0000 



0E40 0006 
0E41 4007 
0E42 1 0E3C 



0E43 0006 
0L44 001A 
0E.45 1 0E46 



0F4 9 0005 
0E4A 001A 
0E4B 1 0F.46 



0E4C BDOO 
0E4D OAOO 
0E4L OB 00 



DC 


*+l 


TEST ERROR SWITCH 


311 16340 


MDX 

* 


T1710 


CONTINUE TEST LOOP 


81 1 1 6353 
811 16360 


LD 


2 ERRSW-TU 


FETCH ERROR SWITCH 


81 116370 


BNZ 


T1705 




81116360 


* 






81 116390 


T1710 MDX L T170B.-1 


OECREMENT LUOP COUNT 


8111 6400 


MDX 


T1704 


CONTINUE TEST LOOP 


81 1 ! 64 10 


» 






8 1 1 16420 


* 






81 116430 


» GO TO 


NEXT ROUTINE IN SEQUENCE 


81 1 16440 


* 






Bl 1 16450 


T17EN BSI 


2 FRET '-TB 


FREE CHANNEL 


811 16460 


LD 


2 TRTNN-TB 


GET RTN SWS 


81 1 164 70 


bz 


T1601 


GO TO NEXT RTN IN SEQ 


811 1 64 60 


BSI 


2 CNTRL-TB 


GO TO CONlROL RTN 


81 1 16490 


TTL17 1-RNT 


. SECT 1 . 


RT 7- . 


8 1 1 16S00 


* 






81 1 16510 


* 






8 1 1 16520 


PRNT 


• READ HOME ADDRESS. 


81 116530 


DC 


-•1 




6 1 1 16540 


* 






81 116S50 


T17T1 BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


811 16560 


DC 


/8106 


FLAG BITS 


8! 1 16570 


DC 


/1707 


MSG NO 0« ADDRESS 


ol 1 1 6580 


* PRINT SIO TIMEOUT ERROR 


81 1 1659 


LD 


* 


GET A VALUE 


811 16600 


STO 


2 ERRSW-TB 


SET ERROR SWITCH 


81 1 »6610 


MDX 


T170J 




8111 662 


* 






81 1 16630 


T17T2 BSI 


2 ErtOUT-TB 


CALL ERROR OUT ROUTINE 


8111 664 


DC 


/8106 


FLAG PITS 


81 I 16650 


DC 


/l 708 


MSG NO OR AO DRESS 


8111 6660 


» PRINT TIMEOUT. 


2ND SIO 


8111 66 7 


LD 


* 


GET A VALUE 


8 111 6660 


STO 


2 ERRSW-TB 


SET ERROR SWITCH 


8111 6690 


K.X 


T170J 


CHFCK LOOP ON ERROR 


811 16700 


«• 






81 1 16710 


T17,.A L C 





SEEK CYL 000 HD 0/1 


811 16720 


DC 







8111 67 30 


DC 







81! 1674 


* 






81 1 16760 - 


T170B DC 


*-* 


LOOP COUNTER 


811 16 760 


* 






81 ! 16770 


* 






811 16780 


T170C DC 


6 


BYTE CC//NT 


61 1 lc.790 


DC 


/40*2S6+SEEKC FLAGS AND OP CODE 


fell 16U00 


DC 


T170A 


ADDRESS 


81 1 16810 


* 






811 168?0 


» 






81 1 16>s30 


DC 


5 


BYTE COUNT 


81 1 16840 


DC 


0*256+RDHA FLAGS AW) OP CODE 


61 1 16650 


DC 


T170D 


ADD RLSS 


8111 6860 


* 






81 I 16870 


* 






811 16860 


T170D BSS 


3 


INPUT AREA FOR HOME ADDR 


61 1 1 6390 


* 






811 16900 


• 






81116910 


Tl 70E DC 


5 


BYTE COUNT 


8111 6920 


OC 


0»256+HDHA FLAGS AMD OP CODE 


HI I 169 30 


DC 


T170D 


AOJRESS 


611 16940 


6 






61 I 16950 


» 






8 1 1 16960 


T170F DC 


/BDOO 




8111 69 76 


T170G DC 


/OAOO 




811 16980 


T170H DC 


/0800 




6111 6990 


» 






8111 7000 


* 






81 1 17010 



* 

« 

* ROUTINE 8~ READ RO 

* 



THIS ROUTINE PERFORMS A READ PECORD 
COMMAND AND CHECKS DEVICE AND CmANNFL 
STATUS FOR PROPER EXECUTION OF THE COM- 
MAND . 



* * 

» * 

TEST ENTRY POINT 

BUMP RTN ID 

BH IF TEST NUW9£R ZERO 

DECREMENT BY 0<iE 

BR IF NOT THIS TEST 

GET OPTION 5*5 
PRINT TITLES 

BR IF NOT SET 
O TO PRINT ROUTINE 
MESSAGE- ADDRESS , 



6E.4F 









TISS-I 


eou 




» 


0E4F 


1 


7401 


0815 




MD X 


L 


TRIO ,1 


Obbl 


1 


4C1 8 


0K56 




BZ 




T1802 


0E53 





9297 






s 


2 


Kl-TU 


0E54 


1 


4C20 


0EA2 


£ 


BNZ 




T1901 


0E56 





C283 




T1M2 


in 


2 


TSKO-TE' 


0E57 





100A 






SLA 




OTTLE 


0E5B 


1 


4C10 


0E5C 




BNN 




T1803 


OESA 





4 2 09 






BSI 


2 


TLGMS-TB 


OESB 


1 


0E8B 




* 

Tit j 3 

* 


DC 




TTL18 


0E5C 





42EB 




3SI 


2 


GETD V-TB 


OESD 





1010 




SLA 




16 


0E5E 





D2C0 




* 

T 1 6* 4 


STO 


2 


ERRSW-TB 


OESF 





C2B7 




LD 


2 


H8000-TK 


Of. 60 





D2D 1 




* 


STO 


2 


S I OS W- T.R 


0E61 





4?F4 




BSI 


2 


SIO-TB 


0E62 


1 


OC 9Fi 






DC 




T18R0 



GET CHANNEL FOR RTN 



CLi. AR ACC 

RESE" ERROR SWITCH 



FETCH SIO S» /Al.UE 
PLACE IN SI'J SwI TCH 



CALL SIO BOVINE 
CCW ADORE'-! 



TEST OPTION SWITCHES 



0E63 





C?83 






LD 


2 


TSWO-Tb 


0E64 





1 008 






SLA 




OLPST 


0E6S 


1 


4C10 


0F.6B 




BNN 




Tl 806 


0E67 





4206 




Tl>:<55 


BSI 


2 


TIOSN-TB 


CE66 


1 


4C26 


0E67 




BN 




T1805 


0E6A 





70F4 






B 




T1604 


0E6B 





4215 




Tl%<56 


BSI 


2 


WAITS- TB 


0E6C 


1 


OF 61- 






DC 




*+l 


0E6D 





7 00 A 






MDX 




T18IN 


0E6E 





42E5 






BSI 


2 


EROUT-TB 


0E6F 





0106 






DC 




/0106 


OE70 





1602 






DC 




/1802 



FETCH OPTION SWITCHES 
TEST FOR 5* OLI'ST 
BRANCH IF 5* OLPST IS OFF 

CALL TIO ROUTINE 
BR IF BUSY 
CONTINUE 

CALL WAIT I/O ROUTINE 

ISO INTERRUPT A6 5RESS 

CALL ERROR WJT ROUTINE 
FLAG Bill 
MSG NO 6" ADDRESS 



0E71 C283 
0E72 100C 
0E;73 1 4C10 0E86 



* TEST, OPT I ON SWITCHES 

* 

T2*07 LD 2 TSWO-TB FETCH OPTI^X SWITCHES 

SLA OLPER TEST FOR 5W OLPER 

BNN T18EN BRANCH IF S* OLPER IS OFF 



8 1 1 1 70 2 
8111 7030 
81 1 1 7040 
611 17050 
81 1 17060 
81 1 1 70 70 
81 1 17080 
8111 7090 
81 1 17100 
81117110 
81 1 17120 
811 17130 
81 1 17140 
81117150 
81 1 17160 
811 17170 
81 1 17180 
811 17190 
81 1 17200 
811 17210 
81 1 17220 
Sll 172 30 
81 1 17240 
811 1 72 50 
81 1 17260 
8111 7270 
61 1 17280 
8111 7290 
81 1 17300 
811 17310 
81 1 17320 
6111 7330 
81 1 1 7340 
8111 7350 
8111 7360 
811 17370 
81 117380 
8 1 1 17390 
81 1 17400 
81 1 17410 
81 1 1742 
8111 74 30 
81 117440 
81117450 
81 1 17460 
8111 7470 
61 1 1 7480 
811 1 74 90 
81 1 1 7500 
611 1 7510 
01 I 175;?0 
8111 7530 
61 117540 
8111 7650 
81 117560 
8111 7570 
61 117580 
8111 7590 
81 117600 
81 1 17610 
Bill 762 
811 17630 
81 117640 
6111 7650 
81 1 17660 
8 111 76 70 
81 1 17680 
811 17690 



DATE 
EC NO. 



I"' 

f 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431326 



PROG 
PAGE 



ID 



081 1 -A 
13 



DATF 
EC NO. 









14N0V69 
431319 



30 JAN70 
431319A 



l'.SEP71 
421328 



PROG 
PAGE 



ID 



08 1 1 - A 
I3A 
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2841 DIAGNOSTIC - PHASE A 



2841 DIAGNOSTIC 



PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



0E75 





cooo 




LD 


* 


0E76 





D2C0 


* 

* 
* 
* 

TieiN 


STO 


2 ERRSW-TB 


0E77 





70E7 


b 


T1804 








COME 


HERE ON INTER 


0E76 





C23E 


LD 


2 SCSX0+-TB 


0E7 9 





looe 




SLA 


8 


IE 7A 





1809 




SRA 


9 


0E7B 





1001 




SLA 


1 



GET A VALUE 

SET ERROR SWITCH 



CONT INUE 



UNIT STATUS 
REMOVE ADDRESS 
REMOVE BIT 



0E7," F024 
0E7D 1 4C20 0E9A 



o:-.7F o C233 

OcBO 100C 

CE81 1 4C10 0E86 

oe: 83 o caco 

0EB4 1 4C20 0E5F 



01 86 42EB 

0EO7 C2BC 

0EB6 1 4C1M 0EA2 

01 8 A O 4 20F 

0L8B 0007 

0G92 0007 

0E99 PEK- 



OE 9 A 4 2E r . 

01-.9B 81 27 

0L9C O 1«0 1 

OE90 7 Oil 3 



01-9E 0008 

0E9F 20 16 

OEAO 1 09BC 

0EA1 OOOC 



REMOVE UNIT EXCEPTION 
EOR' T18I . TEST FOR CE AND OE 

BNZ T1808" BRANCH IF WRONG 



* 
* 

* 
* 



TEi>T OPTION SWITCHES 



LD 
SLA 

BNN 

LD 
BNZ 



2 TSWO-TB 
OLPER 
Tl 8EN 

2 ERRSW-TB 
T1804 



FETCH OPTION SWITCHES 
TEST FOR SW OLPER 
BRANCH IF SW OLPER IS OFF 

FETCH ERROR SWITCH 



GO *0 NEXT ROUTINE IN SEQUENCE 



* 

* 
* 
T1HEN BSI 

LO 

BZ 

BSI 
TTL16 PRNT 
* 

PRNT 

DC 
4 
* • )ME HERf IF ERROK IN CSW 



2 FREDV-TB 
2 TRTNN-TB 

T1901 
2 CNTHL-TB 



FREE CHANNEL 
GET RTN RW5 

GO TO NEXT RTN IN SEQ 
C-0 TO CONTROL RTN 



SECT I .RT 8- . 



.READ RECORD 0. 
/rFFF 



T1808 BSI 
DC 
DC 
B 



2 EROUT-TB 
/B127 
• 1801 
T1807 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OH ADDRESS 
RETURN 



CONSTANTS 



T18R0 DC 
DC 
DC 

* 

T18MK DC 



8 BYTE COUNT 

/20*2S6* HDRO FLAGS AMD OP CODE 

RARE A ADDRESS 

/OOOC' 



************** *********************************** 

* 

* ROUTINE — 9 — SEEK 

* 

************************************************* 

* 
* 
* 
* 

* 
* 

* 

* 

* 



THIS ROUTINE WILL EXECUTE A SERIES OF 
CCW'S USING EIGHT DIFFERENT SEEK \RGUMENT 
FROM A TABLE. THE PROGRAM CYCLES THROUGH 
THIS TABLE TEN TIMES. 



CONDITIONS CHECKED. 



Vfc. 


DATE 


14N0V69 


30JAN70 


1SSEP71 


<<■"'■ 


EC NO. 


431319 


431319A 


431328 











31117700 
81 117710 
811 17720 
61 1 17730 
8111 7740 
81 1 177S0 
811 17760 
81 1 17770 
811 177 80 
81 117790 
Sill 78C0 
81 1 17810 
811 17H20 
81 1 17 830 
8111 784 
8i 1 17860 
8 1 1 17860 
81 1 17870 
811 17880 
81 117890 
8 1 I 17900 
81 1 17910 
8 111 7920 
8) 1 1 79 30 
Cll 17940 
81 1 179t>0 
6 111 7960 
61 1 »7970 
6111 7980 
81 1 17990 
8111 8000 
61 1 18010 
8 1 1 18020 
81 118030 
811 18040 
Bl 11 60 SO 
6 1 1 180<0 
8111 6070 
611180 80 
81 1 18090 
61 1 1 6100 
81 1 18110 
81 1 181 20 
811181 30 
811 18140 
81 1 It; 150 
8 1 1 1 8160 
81 11817 
811 18160 
81 1 16190 
3111 8X00 
01 1 1821 
6 111 6220 
81 1 16230 
81 1 1 82 4 
61 1 1C2E0 
61 1 1 62 60 
81 1 18270 
8111 62 80 
81 1 182 90 
8 111 6300 
61 1 18310 
3 6111632 
81 1 1ft .'3 
8 11 16340 
6 1 1183S0 
6111 6360 
81 118370 



PROG ID 
PAGE 



081 1-A 
14 



BUS LINES 
DATA LINES 
FILE/CHANNEL INTERFACE 



*************************************************** 

* * 
****** *** ********************************* ********* 
******************************* \- ******************* 

* * 
**************************************************** 



0EA2 

0EA2 1 7401 0815 

0EA4 1 4C18 0EA9 

0EA6 O 9297 

0EA7 1 4C20 <"t- 4 B 



0EA9 

OEAA 
OEAB 



C283 
100A 
4C10 OFAF 



OK AD O 4 209 

OEAE 1 OEEA 

OLAF 42EB 

OEBO 6931 

OEBl 6B32 

0EB2 1010 

0EB3 02CO 

0EB4 O 610A 

0EB6 6959 

0EB6 63F0 

0F.B7 1 CEOO OF 20 

0EB9 DBG A 



OEBA 
OEBB 1 
OEBD 1 
OEBF 
OECO 1 
0EC2 O 
0EC3 



42FA 

DCOO 0F46 

C700 0F21 

42FA 

DCOO 0F48 

C264 

020 1 






\^ 



~. 






'«** DATE 

EC NO. 



0EC4 42F4 
OECS 1 OF 2 6 

OECG C23E 

0EC7 1008 

0EC8 18 08 

0EC9 1 F400 OTOE 

OECB 1 4C20 0EF4 

OECD 42F1 

OECE 1 09BC 

OECF 1 OF 23 

OEDO 1 4C20 01-00 



0E02 C283 
0ED3 100C 
0ED4 1 4C10 0ED9 

0ED6 O C2C0 
0EO7 1 4C20 0EC2 



T1901 EQU 

MDX 
BZ 
S 

BNZ 
* 
T1902 LD 

SLA 
BNN 
BSI 
DC 
* 

T1903 BSI 
* 

STX 
STX 
* 

SLA 
STO 
* 

LOX 
STX 
T1905 LOX 
LOD 
STi) 
* 

BSI 
STO 
LD 
BSI 
STO 
T1906 LD 
STO 
BSI 
DC 
* 

LD 
SLA 
SKA 
EOR 
BNZ 
* 

BSI 
DC 
DC 
BNZ 



* TEST ENTRY POINT 

L TRID .1 BUMP RTN ID 

T1902 BR <F TEST NUMBER ZERO 

2 Kl-TB DECREl'EST BY OME 

TIA01 BR IF S.OT THIS TEST 



2 TCWO-TB 
OTTLE 
T1903 



GET OPTION SWS 
PRINT 1 1TLES 

BR IF NOT SET 
2 TLGMS-TB GO TO PPI'.T ROUTINE 
TTL19 MESSAGE ADDRESS 

2 GETDV-TB 



GET CHJU.fiEL FOR RTN 



1 T19X1+1 
3 T19X1+3 



16 

2 ERRSW-TB 



SAVE xpi 
SAVE XR3 



CLEAR ACC 

RESET ERROR SWITCH 



1 4 10 SET LOOP COUNTER 

1 T19EC SET EP.KDR COUNTER = 10 
3 -16 SET SCI*" ARG POINTER 

L3 T19ST+16 FETCH SEEK ARG 

T19SA+1 PL AC" l'l SEEK ARG SI OR AGE 



2 TCVBE-TB 

L T 1 9t 1 + & 

L3 T19ST+17 

2 TCVBE-TB 

L T 1911+7 

2 H4000-TB 

2 SIOSW-TB 

2 SU'J-TH 
T 1 9SK 



CALL CONVERT RTN 



CALL CONVERT RTN 

Ft TCH tslT 1 
PLACE !•■ SIOSW 
CALL ' 10 ROUTINE 
CCW «0.jftfcSS 



2 SCSXO+i-TB ("ETCH UNIT ST/'iu'S 



6 
8 
L T19SI 
T19EA 

2 HABLC-TB 
RAREA 
T 1 9SA 
T19EB 



CLE AH UNIT ADDRESS 
RESTQI-l POSITION 
TEST KITH H',",K 
BRANCH IF ERROR 

GO TO COMPARE RTN 
WAS ', ATA ADDRESS 
S/b O ATA ADDRESS 
BRANCH IF ERROR 



TEST OPTION SWITCHES 



14N0V69 
431319 



30 JAN7 
431319A 



LD 

SLA 

BNN 

* 

T19LP LD 
BNZ 

* 



15SEP71 
431326 



2 TSWO-TB 
OLPER 
T1907 

2 ERRSW-TB 
T1906 



FETCH OPTION SWITCHES 
TEST FOR SW OLPER 
BRANCH IF SW OLPER IS OFF 

FETCH ERROR SWITCH 



61 I 18380 
81) 163?0 
81 1 18400 
81 ! 16410 
61 I I 8420 
811 1 84 30 
81 1 16440 
81 1 164 SO 
61 1 16460 
6 1118470 
81116480 
811 1O490 
81 I 18E00 

einssio 

81 I 1S52 
8 1 1 18530 
81 1 1SS640 
81 I S JiSSO 
81 1 lSt.68 
1 1 18670 
81 I J»t>80 
81 1 S 8690 
6111 660 
8 11 1 66 1 
81 ! U«62 
8 1 I 18630 
81 11664 
811 lfi<t>*>0 
81 I 3 6660 
811 18t>70 
81 I 18680 
8111 8690 
61 > 187 
811 18710 
81 1 1 87 2 
8111 8730 
8 1 1 1 8 74 
811! 8760 
8 1 1 l»7Mi 
81 118770 
61 1 18760 
6 1 1 18790 
81 1 16800 
81 ! 1 681 
Bill 8820 
6 1 1 16630 
8111 864 
8)11 68^0 
8 1 1 16660 

811 168 70 
81 5 16860 
615 1 66VO 
8 1 S 18900 
8 1 1 1 89 1 O 

81 1 169 20 

en 189 se- 
en 16940 
8 1 1 169S0 
81 1 18960 

81 1 189 70 
81 1 16980 
81! 18990 

a 1 1 19000 

8 S 1 19010 
81 1 19020 

811 190 30 
Bll 19040 
83119050 



PROG ID 
PAGE 



08 1 1 - A 
14A 



ij 



•«£ 
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2841 DIAGNOSTIC - PHASE A 



2841 DIAGNOSTIC 



PHASE A 



1600 DIAGNOSTIC MAINTENANCE PROGRAM 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



0ED9 


1 


74FF 


OFOF 


T1907 


MDX 


L 


T19EC- 


OEDB 





4838 






BSC 




+ -Z 


OEOC 





7008 




* 


MDX 




T19EN 


OEDD 





7302 




MDX 


3 


+ 2 


OEDE 





7 0D6 




* 


MDX 




T1905+1 


OEDF 





7 IFF 




MDX 


1 


-1 


oteo 





70O5 






MDX 




T1905 



T19EC.-1 DECREMENT ERROR COUNTER 
SKIP TO CONTINUE 
ELSE END RTN 



ADV SEEK ARG POINTER 
GO DO NEXT CYLINDER 



DEC LOOP COUNTER 

LOOP ALL SEEKS AGAIN 



0EE1 6500 0000 
0EE3 0700 0000 



0EE5 42E8 

0EL6 O C2BC 

0EE7 1 4C>J 0F4B 

0F.E9 42DF 

OEEA 0007 

0EF1 0002 

0EI-3 FFFF 



0LF4 42E5 

0LF5 0167 

0EF6 1901 

0EF7 4209 

Ob KB 1 OF 4 I 



0EF9 C203 
OtFA 100C 
OLFB t 4C10 0ED9 

OEFD COOO 
OfcFE O D2C0 
OEFF -0 70C2 



OFOO 42E2 
OF0 1 O 0000 
0F02 O D039 



OF 03 





'2E2 


OF 04 





0001 


OF 05 





DB30 


OF 06 





42E5 


Of-07 





8142 


OF 08 





1902 


OF 09 





4209 


OFOA 


1 


01=3 7 


OF OB 





420« 


OK OC 


1 


OF 4 1 


OFOD 





70LB 



RESTORE XR1 
RESTORE XR3 



T19XI LDX LI *-* 
LDX L3 *-* 
* 

* GO TO NEXT ROUTINE IN SEQUENCE 
* 

2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SwS 

T1A01 GO TO NEXT RTN IN aEU 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT l.itT 9- . 



T19EN US I 

U> 

BZ 

BSI 
TTL19 PRNT 
* 

PRNT .SEEK. 

DC /FFFF 
* 

* GET HER!: IF UNIT ..l-.ECK 

* 
T19EA BSI 2 EROUT-TB CALL ERROR OUT ROUTINE 

DC /8167 FLAG BITS 

DC /1901 MSG NO OR ADDRESS 

BSI 2 TLGMS-TB CALL LOG ROUTINE 

DC T19E1 



TEST OPTION SWITCHES 



* 

T1908 LD 
SLA 
BNN 

« 

.0 

STO 

B 

* 

T19EU BSI 
DC 
STD 

* 

BSI 

DC 

STD 

* 

BSI 

DC 

DC 

BSI 

DC 

BSI 

DC 

MDX 



2 TSW0--TB 
OLPEH 
T1907 



2 ERRSW-TB 
T1906 



FETCH OPTION SWITCHES 
TEST FOR SW ULMFR 
BRANCH IF SW OLPER IS UFr 

GET A VALUF 
SET ERROR SWITCH 
GO LOOP ON ERROR 



GET HEf.E IF READ WRONG HOME ADDRESS 



2 CVHA-TB 

T19E2+S 

2 CVHA-TU 
1 
T19E2+7 

2 EROUT-TB 

/8142 

/1902 
2 TLGMS-TB 

T19E2 
2 TLGMS-TB 

T19E1 

T1908 



GO TO CONVERT 

PARMsCYL 1NDER 

PLACE IN MESSAGE 

GO TO CONVERT 
PAWM--HEAO 
PLACE IN MESSAGE 

CALL ERROR OUT ROUTINE 
FLAG ?. ITS 
MSG NO OR AO DRESS 
CALL LOG ROUTINE 

CALL LOG ROUTINE 

CONTINUE 



********************************** ****** ******** 

* 

************************************************ 

* DATA CONSTANT., AND MESSAGES FOR RTN09 

****************************** *********** * ****** 
* 



*** 
* 



*:.*' 


DATE 


14N0V69 


30JAN70 


15SEP71 


/ 


EC NO. 


431319 


431319A 


431328 


•** 











811 19060 
81 1 19070 
811 19000 
81 1 19090 
81119 100 
81119110 
81 1 19120 
81 119130 
8 11 1914 
81 1 19150 
811 19160 
81 1 19170 
8 1 1 1 9 1 80 
81 119190 
811 19200 
11119 210 
81 1 19220 
81 1 19230 
811 192 4 C 
61 1 192 £0 
8111 9260 
81 1 19270 
81 1 19280 
81 1 19290 
3 1 1 19 300 
81 1 19310 
811 19320 
81 ) 19330 
8 11 19340 
81 1 19350 
8 1 1 19360 
81119370 
81 1 19380 
81 1 19390 
811 19400 
SI 1 19410 
8 1 1 19420 
81 1 19430 
81 1 19440 
81 1 19450 
8 11 194 60 
81 1 19470 
811 19480 
81 1 19490 
811 19500 
81 119510 
811 19520 
81 1 19530 
8 1 1 19 540 
61 1 19550 
8 11 19560 
81 1 19570 
81 1 19560 
81 1 19590 
8 1 1 19600 
til 1 19610 
8 1 1 19620 
81 1 19630 
81 I 19640 
81 1 19650 
8 1 1 19660 
81 1 19670 

* 811 1961)0 

* 81 1 19690 

* 8 11 19700 
61 1 19710 
81 1 19720 
81 1 19730 



PROG ID 
PAGE 






0811-A 
15 






CFOE 





oooc 


OFOF 





0000 


OF 10 




0000 


OF 10 





0000 


0F1 1 





0000 


OF 12 





0040 


OF 13 





0001 


OF 14 





0020 


OF I 5 





0002 


OF 16 





00 10 


OF 17 





0003 


OF 18 





0008 


OF 19 





0004 


0F1 A 





0006 


OF IB 





0005 


0F1C 





0006 


OF 10 





0006 


OF It 





000 1 


OF IF 





0007 


OF 20 





0000 


OF 21 





0000 


OF 22 





0000 


OF 2 3 





0000 


OF 24 





0000 


OF 25 





0000 



0F26 0001 
OF 2 7 60 13 
OF 21'. 1 OF 29 



0F29 0006 
0F2A 4007 
0F2B 1 OF20 



0F2C O 0006 
0F2D 4007 
0F2E 1 0F23 



0F2F 000 6 
OF30 4007 
OF 31 1 0F23 



0F32 0005 
OF 33 00 1 A 
0F34 1 09BC 



0F36 0001 

0F37 0009 

0F4 FFFF 

0F41 0009 

0F4A FFFF 



T19S1 
T19EC 



T19ST 



**************************** ****** ***************** 
* 

MASK CONSTANT 

ERROR COUNTER 

ALIGN TO EVEN WORD 

CYL 128 

HFAD 

CYL 

HEAD 

CYL 

HEAD 

CYL 

HEAO 



* 
T19S0 



DATE 

EC NO. 



•J 






o 



DC 

DC 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 



/OOOC 

*-* 


/0080 

/oooo 

/004 

/0001 

/0020 

/0002 

/0010 

/0003 

/0008 

/0004 

/0006 

/0005 

/0006 

/0006 

/0001 

/0007 








CYL 

HFAD 

CYL 

HEAD 

CYL 

HE AO 

CYL 

HEAD 



64 
1 
32 
02 
16 
03 
08 
04 
06 
05 
06 
6 
01 
07 



SEEK ARG FOR CYL 00 HO 00 



* 
SEEK 



ARG FROM TABLE 



* 
* 
T19SK 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



DC. 
DC 
DC 



1 BYTE COUNT 




/60*256+RCAL FLAGS AND 


OP CODE 


* ADDRESS 





6 BYT' COUNT 

/40*266+SF.EKC ei.AGS AND OP CODE 
T19S0 ADDRESS 



6 BYTE COUNT 

/4 0*256+SFF.KC FLAGS AND OP CODE 

T19SA ADDRESS 



6 BYTE COUNT 

/40*256+SEEKC FLAGS AND 
T19SA ADDRESS 



5 BYTE COUNT 

/00*256+MDHA FLAGS AND OP CODE 



RAPEA 



T19E2 



BSS 

PRNT 
DC 
PRNT 
DC 



. HA 
/FFFF 
. HA 
/FFFF 



ALIGN TO COD 
XXXXXXXX. 



ADDRESS 



EXP XXXXXXXX. 



14N0V69 
4 3 1 3 1 9 



30.IAN7 
431319A 



T19C1 

* 

* 

* 

********* **************** ************************* 

* 

* ROUTINE — A HEAD ADVANCE (M/T) 

* 
************************************************** 



15SCP71 
431328 



31 I 19740 
811 19/50 
81 1 19760 
811 19770 
81 1 19780 
81 1 19790 
81 I 19600 
811 19810 
01 1 19820 
81119830 
81 1 19840 
81 ! 19850 
81 1 19860 
811 19870 
81 1 19080 
811 19890 
61 1 19900 
811 19910 
81 1 19920 
81 1 19930 
8 1 1 1994 
811 19950 
31 1 19960 
811 19970 
81 1 1,980 
81 1 19990 
81 120000 
81120010 
81 120020 
811 20030 
81 120040 
81120050 
81 120060 
811 20070 
81 1200 80 
81 120090 
01 120 100 
31120 1 10 
81 120)20 
81120 130 
81 1201 4 
81120150 
61 1 20 160 
Oil 20170 
81 120 1 HO 
81 120190 
fil 1 20200 
81 1 2021 
81 1 20220 
81 1 202 M) 
81 1202'tO 
6 1120250 
81 120260 
01120270 
81 120280 
81 120290 
81 120 300 
81120310 
81120320 
81120 330 
81 120340 
81120350 
81 120360 
Bll 20370 
81120360 
81120390 
81120400 
81120410 



PROG ID 
PAGE 



0811-A 
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2841 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 





* 








81120,420 




* 








61120430 




• 


THIS 


ROUTINE WILL 


EXECUTE THE READ HOME 


81120440 




* 


ADDRESS MULTI-TRACK CCW TO CHECK THE 2841 


81 1 20450 




* 


F ILE 


INTERFACE HEAD AO VANCE LINES AND THE 


81 120460 




* 


END 


OF CYLINDER LINES. 


81 120470 




* 








8U204F0 




» 








81 120490 




♦ tit*******************************************-**** 


81120500 




* 






* 


81 120510 




********************************************** :.""*** 


8 1 1 20520 




**********#*******************************<********* 


81 1 20 530 




* 






* 


01120540 




****************** #** ********************** ******** 


81 120 550 


0F4B 


Tl A01 


EOU 


* 


TEST ENTRY POINT 


81120560 


0F4B 1 7 4 01 0815 




MD X 


L TR1D.1 


BUMP RTtl ID 


el 120570 


l"-«0 1 4C18 0FS2 




>i.Z 


T1A02 


BR IF TEST NUMBER Z'rRO 


8 11 20580 


0F4F 929< 




S 


2 Kl-TB 


DECR C MENT BY ONE 


81 1 20590 


OFSO 1 4C20 OFBA 


* 


BNZ 


T1B0! 


BR IF NOT THIS TEST 


811 20600 
81 1 20610 


GF52 C283 


TIA02 


LD 


2 TSWO-TB 


GET OPTION SWS 


81120620 


0FS3 100A 




SLA 


OTTLE 


PRINT TITLES 


81 120630 


0F04 1 4C10 0F56 




BNN 


T1A03 


BR IF NOT SET 


8 1 1 20640 


0F56 1209 




BSI 


2 TLGMS-Tb GO TO PRINT ROUTINE 


81 120650 


0F57 I 0F78 


* 


DC 


TTL1A 


.-■ESS AGE ADDRESS 


•-,1120660 
81 1 20070 


0F58 42EB 


TJA03 

* 


BSI 


2 GETDV-TB 


GET CHANNEL FOR RTN 


81120680 
81 1 10690 


0FS9 1 6500 0FH1 




LOX 


LI T1AER 


SET UP ERROR RETURN 


81120700 


0F56 1 6D00 1C71 




STX 


LI ERADR 


* 


81 1 20710 


OFSO C29D 




in 


2 K10-TU 


SET UP LOOP CNTR 


81 120720 


OF 56 D2D9 


* 


STO 


2 LPCNT-TB 


* 


811 20730 
81 1 20740 


0F5F 10AO 


Tl A04 


SLT 


32 


CLEAP HOME ADDRS AREA 


81 120760 


OFbO 0A61 




STD 


2 HA-TB 


* 


81120760 


0F61 D263 


* 


STO 


2 HA+2-TB 


* 


01 1 207 7 
81 1 20 780 


0F62 42F4 


"•' 1 A l ' 


1 31 


2 SIO-TB 


CALL i. 10 ROUTINE 


81 120790 


OF 63 1 OF A 5 


* 


"C 


TSACC 


CCW ADDRESS 


81120800 
81 120810 


0F64 42EE 




BSI 


2 6ETSN-TB 


GET SENSE BYTES 


811 20620 


0Fu5 C22S 




LD 


2 SNWD0-1B 


* 


61120830 


OF 66 ."2A6 




EOR 


2 H0020-TB 


TEST FDR END OF CYL 


811 20640 


0F67 1 4C20 OF 88 


* 


BN2 


T1A05 


BR IF NOT SET OR ANY BIT 


61 120650 
81120860 


0Fb9 C253 




LD 


2 HA+2-TB 


GET HE AD READ 


81 120870 


0F6A 1808 




SRA 


8 


* 


61120680 


OFbB F04A 




EOR 


T1AH9 


TEST FOR FD 9 


81 120890 


0F6C 1 4C20 0F6E 


* 


BNZ 


Tl A06 


BR IF NOT HD 9 


81120900 
81 1 20910 


0F6E 1 74FF 0858 




MDX 


L LPCNT.-l 


DECREMENT LOOP CNT 


81120920 


or 70 70EE 




MO X 


Tl A04 


LOOP IF NOT ZERO 


61 120930 




* 


DO RECAL TO RESET 


DEVICE SENSE WORDS 


81 1 20940 


0F71 42F4 




BSI 


2 SIO-TB 


CALL S10 ROUT INE 


81 120160 


OF 72 I 089 A 


* 
• 


DC 


RECAL 


CCW ADDRESS 


81 120960 
61 120970 
81120980 




* 


GO 


TO NLXT ROUTINE IN SEQUENCE 


81 120990 




* 








81121000 


OF 73 42LB 


T1AEN BS1 


2 FRFDV-TB 


FREE CHANNEL 


81 12101 


OF 74 C2BC 




LD 


2 TRTNN-TB 


GCT RTN SWS 


8 1 121020 


OF 75 1 4C18 OFBA 




BZ 


T1B0) 


GO TO NEXT RTN IN 6E0 


01 121030 


OF 7 7 421) F 




BSI 


2 CNTRL-TB 


GO TO CONTROL RfN 


811 21040 


0F78 0007 


YTL1A PRNT . SECT 1 


tRT A- » 


81 121060 




* 








81121060 


0F7F 0008 




PRNT .HEA,} ADVANCE K/T • 


81 121070 


OF 87 FFFF 


* 


DC 


/FFFF 




811 21080 
81121090 






2841 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



(fl*l 









vie' 



fife 









OFBB 





42E5 


OF 89 





0307 


OFBA 





1A01 


OFBB 





C25i 


0F8C 





42FA 


0F8D 





D812 


0F8E 





C252 


0F8F 





42F A 


OF90 





D01 1 


0F91 





C263 


0F92 





42FA 


0F93 





DO 10 


OF 94 





42C5 


0F95 





030F 


0F96 


1 


OF 98 



Tl A05 



T1A06 



BSI 

DC 

DC 

LD 

BSI 

STD 

LD 

BSI 

STD 

LD 

BSI 

STO 

BSI 

DC 

DC 



EROUT-TB 

/C3 07 

/1A01 

HA-TB 

TCVBE-TB 

Tl AM1+8 

HA+1-T6 

TCVBE-TB 

T1AM1+10 

HA+2-TB 

TCVHE-TH 

Tl AM1+12 

EROUT-TB 
/030F 
Tl AMI 



CALL ER.'tOR OUT ROUTINE 
FLAG BITS 
MS6 NO OR ADDRESS 
GET MA 

CONVERT TO 1443 CODE 
PUT IN MESSAGE 

CONVERT TO 1443 CODE 



CONVERT TO 1443 CODE 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADDRESS 



DATA AND CONSTANTS 



0F98 0000 

0F98 0012 

0FA4 FFFF 



0FA5 0006 
0FA6 4007 
0FA7 1 0FB7 



0FA8 0005 
0FA9 401A 
OFAA 1 OFDO 



OFAB 0005 
OFAC 409A 
OF AD 1 08D0 



OFAE O 0000 
OFAF 0008 
OFBO 1 OFAB 



T 1 A M. ] 
T1ACC 



BSS 

PRNT 
DC 





. 1 ACS 

/FFFF 



XXX/.XXXXXX. 



DC 
DC 
DC 



DC 

DC 

DC 



1AC3 DC 
DC 



6 BYTE COUNT 

FLCCH*25b+StEKC FL*6S AND 
T1ASA ADDRESS 



5 BYTE COUNT 

FLCCH*256t^RJHA FLAGS AND OP CODE 
HA ADDRESS 



DC 



DC 
DC 
DC 



5 BYTE COUNT 

FLCCH*2S6+RDHMT FLAGS 
HA ADD RE SS 



AND OP CODE 



BYTE COUNT 

0*256+OPT1C FLAGS AND OP CODE 
T1AC3 ADDRESS 



FFTCM OPTION SWITCHES 
TEST FOR Sw OIPfcR 
BRANCH IF SW OLPER IS C 
END ROUT INE 



*************** *«.»*******************»*********»*** 
* * 

*************************************************** 









* T t 

* 

Tl AER 


.ST OPT ION SWITCHES 


0FB1 





C283 


LD 


2 


TSWO-TB 


0FB2 





100C 




SLA 




OLPER 


0FB3 


1 


4C28 OF 62 




UN 




Tl AIO 


0FB5 





7060 


* 

Tl AH9 


MDX 




T1AEN 


0FB6 





0009 


DC. 




/0009 


0FB7 





0000 


Tl ASA 


DC 




/OOOO 


0FU8 





0000 




DC 




/OOOO 


0FB9 





0000 




DC 




/OOOO 



SECTION El* 



OFBA 42DF 



* 

T1B01 BSI 2 CNTRL-TB GO TO CONTROL RTN 

****************************** ********************* 

* * 
*************************************************** 
* 

* SECTION PREFACE 



8112 1100 
81121,10 
81 121 120 
8 1 1 2 I 1 30 
81 121140 
81121 150 
81 121 160 
81121 170 
81 121 160 
81 I 21 190 
81 121200 
81121210 
81 121220 
81 121230 
81 121240 
811 21250 
81 121260 
811212 70 
81 121280 
811 21290 
81 121300 
81121310 
81 121320 
81121 330 
81 12: 340 
8 1121 350 
81 1 21360 
81121370 
81 121360 
61121390 
81 121 400 
81121410 
81 5 2142 
81121430 
81 121440 
8 1 1 2 1 4 50 
81 121460 
81 121470 
81 121460 
6 SI 21 490 
81 121500 
61121510 
8112152 
811 21530 
81121 540 
81121560 
61121 560 
6 1 1 21670 
81121 680 
8 11 21690 
81 121600 
61121610 
81 1 21 620 
81121 630 
81 12164 
811 21660 
81 121660 
61121670 
61121660 
81 121690 
81 121 700 
81121710 
61 12.720 
81121730 
81 121740 
Bll 21 750 
81121760 
81121770 



r 






DATE 
EC NO. 
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1?A 



)0 DIAGNOSTIC MAINTENANCE PROGRAM 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



OJ-BB 0002 
OFBC 0005 



T20PR 



DC 
DC 



/0002 
5 



SECTION NUMBER 



OFtlD 
OP BE 
OFCO 
OFCl 
0FC3 



0FC4 



C2BC 

AC 18 0FC5 

90FB 

4C30 r>B2 1 

80FB 

7 000 



* 
T20NT 



U> 2 TRTNN-TB SW FNC 1 BITS 12-15 

BZ T2101 BR IF RON ALL RTNS 

S T20PR+1 TEST FOR VALID 

BP TCNER BR IF INVALID «TN NUMBER 

A . T20PR+1 RESTORE RTN NUMBER 

MDX T2101 GO TO FIRST RTN 

»****»*************»******»*»«*«******»***»«•*»**♦»* 

* * 
4**** «(tttt»»tHilt«M »**»** ******* v *************** 
* 

*************** t«t«««t*««f**ti)t««t«*tt««H4l**««««* 
* 

* ROUTINE — 1 — SERIALIZER/DESERI ALIZER, 

* CONTROL UNIT BUSV , 

* INTERRUPT TEST 

* 
*************************************************** 

* 



THIS 
TEST 



Rouf ; 

2. 



* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



NE HAS TWO TESTS. TEST i AND 



TEST 1 TESTS THE SER I AL 1 ZER A} ESE R 1 AL 1 Z tR 
BY WAITING AM) READING RO (100 BYTES OF 
DATA) USING ALL 2S6 BIT COMBINATIONS. 

TEST 2 DETERMINES THAT CONTROL UNIT BUSY 
IS PRESENTED WHEN A TEST I/O IS ISSUED 
AFTER A WRITE HOME ADDRESS (AFTLR CHAN END 
AIO DEV END. BUT WHILE THE REMAINDER OF THE 
TRACK IS BEING ERASED). THIS TEST IS RE- 
PEATED SO TIMES. 

',»■>************************ 



t***********-*********.**************,*******:********* 



OFCS 

0FC5 1 7401 OH IS 
0FC7 1 4C18 OFCC 
0FC9 9297 
OFCA 1 4C20 10FD 

OFCC C2H3 

OFCD 100A 

OFCE 1 4C10 0FD2 

OFOO 4209 

OKI) I 1 109V 

0FD2 42F.B 

0FD3 4212 

0FD4 1 CCOO 09HC 

Of DO 1 DCOO 10FA 

0FD8 1 C400 09BE 

OFDA 1 D400 101 C 



OF DC C2A1 
OFDD D2DA 



rzio 1 



T2102 



T2103 

* 



F.QU 
MDX 
BZ 
S 

BNZ 

LO 

SLA 

BNN 

BS1 

DC 

OS I 

US1 

LDD 
STD 
LD 
STO 



TR1D.1 
T2102 
2 Kl-fB 
T2201 

?. TSWO-TB 

0T1LE 

T2103 
2 TLGMS-TB 

TTL21 

2. GETDV-TB 

2 SKTV-TU 

L RARF.A 

WHA 
L RAREA+2 
L WHA+2 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRESS 

GET CHANNEL FOR RTN 

BRANCH TO SEEKX ROUTINE 
AM) COMPARE HA 
XFER HOME ADDRESS FROM 
* READ AREA 



* 
* 
* 
* 
T2104 



BEGINNING OF TEST 1 



LD 
STO 



K256-TB 
I PCT1-TP 



EST. LOOP COUNTER 



81121 780 
81 1 21790 
811 21800 
81121810 
811 21820 
81 121830 
811 21040 
81 121850 
8 1 1 21860 
61 12187C 
81121 880 
811218 9 
81 121900 
81121910 
81121920 
81 121930 
81 12194 
81121950 . 
811 21960 
81 121970 
811219B0 
81 121990 
811 22000 
81 1220 10 
811 22020 
81 122030 
8 1 1 22040 
81 1 22050 
81122060 
81 1 22070 
811 22080 
81 122090 
61122100 
81 1 221 1 
811221 20 
81 1221 30 
81122140 
81 122150 
611 22160 
81 122170 
8 11221 80 
81 122 190 
811 22200 
81 122210 
81 122220 
81 122230 
61122240 
81 122250 
81122260 
81 122270 
81122280 
81 122290 
81 122300 
81 122310 
811 22320 
el 122 330 
81122340 
81 122 350 
811 22360 
61 122 370 
81122380 
81 1 22 390 
81 1 22400 
81 1224 10 
81122420 
81 122430 
81122440 
61 122450 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
43132 6 



PROG 
PAGE 



ID 





OFDE 





1810 




SRA 




16 


■Vttrfp" 


OFDF 


1 


0400 


1 OBD 


STO 
* 
T2105 SLA 


L 


T21ER 


.rSft,, 


0FE1 





1010 






16 


'«*£*■ 


0FE2 





D2C0 




STO 


2 


ERRSW-TB 



081 1-A 
17 



RESET ERROR COUNTER 



CLEAR ACC 

RESET ERROR -.WITCH 



ESTABLISH RO COUNT AREA IN WRITE AREA 



0FE3 





1810 


0FE4 


1 


D400 


0FE6 





CA5I 


0FE7 


1 


DCOO 


OFF; 9 





C2A0 


OFEA 


1 


O400 



SRA )6 

STO L WTAR1+2 

LDD 2 HA-TB 

STD L fcTARl 

LD 2 K100-TB 

STO L WTAR1+3 



ZERO REC NO, KEY LENGTH 
CYL NO. HEW NO. 
•EST. CYL NO. HD NO. 

EST. BYTE COUNT FOR DATA 



OFEC 1 6500 
Of EE O 6332 
OFtF 18 10 



FWA 01" READ AREA (DATA) 
WORD COUNT (100 BYTES) 



OFFO 





D100 




OFF 1 





7101 




0FF2 





73FF 




OFF 3 





70FC 




0FF4 


1 


65 00 


0A26 


OFF 6 





6332 




OFI 7 





C2DA 




OFF 8 





E2A9 




OFF 9 





D2DB 




OFFA 





1008 




OFFB 





E AD B 




OFFC 





D100 




OFFD 





710 1 




OFFE 





73FF 




OF FT 





70FC 




1000 


1 


65 0() 


1CB0 


1002 


1 


60 00 


I9T9 


1004 





42F4 




1005 


1 


10ES 





T2106 LDX LI RDAR1+4 

LD X 3 SO 

SRA 16 

* STORES A-WEG IN DESIGNATED F 1 i LD 

STO 1 STORE TWO BYTES 

MDX 1+1 IMiR. STORAGt ADDRESS 

MDX 3-1 DECR. WORD COUNT 

MDX »-4 CYCLE UNTIL FIELD FILLED 



FWA OF WRITE AREA (OATA) 
WORD COUNT (100 BfTES) 
TAKE LOOP COUNT 
USE LOWER 8 BITS 



FORM 2-OYTE PATTERN 
STORES A-REG IN DESIGNATED F1EIX) 
STO 1 STORE TWO BYTES 

MUX 1 +1 1NDR. STORAGE: ADDRESS 

MUX 3 -1 DECR. WOI« COUNT 

MDX *-/, CYCLE UNTIL FILED FILLED 



1006 1 6500 0A26 
1008 1 6700 09CO 
100A C29F 



1017 



^3? 


100B 





DOOA 




100C 





C100 


'"\ 


1C3D 





F300 


'•** 


100E 


1 


4C20 




1010 





7101 


■ ,1 


1011 





7301 




1012 


1 


74FF 




1014 





70F6 


X '%. 


1015 





700 1 


""*' 


1016 





0000 



LDX 


LI 


WTAR1+4 


LDX 


3 


SO 


LD 


2 


LPCT1-TB 


A SO 


2 


FOOFF-TB 


STO 


2 


1EMP1-TB 


SLA 




8 


UR 


2 


TFfcPl-TB 





LDX 


LI 


T21T1 




* 


STX 


LI 


WTADR 


EST. S10 TIMEOUT A 


* 


OS I 


2 


SIO-TB 


CALL SIO ROUTINE 




DC 




1 2 1 WP 


CCW- ADDRESS 


* 








1 . SET F ILE MASK 


* 








2. SEARCH HA EOUAL 


* 








3. TIC *-l 


* 








4. WRITE RO 


* 








5. READ RO 


* 










* 











LDX LI WTAR1+4 FWA OF WRITE AREA (DATA) 

LDX L3 RDAR1+4 FWA OF READ AREA (DATA) 

LD 2 K50-TB WORD COUNT (100 BYTES) 

COMPARES TWO FIELDS 

EST. LOOP COUNTER 
AREA1 WORi) 
AREA2 WORD 
BR. ON NON-COMPARE 
I NCR. AREA1 AODR. 
I NCR. AREA2 ADDR. 
DECR. LOOP COUNT 
CYCLE THROUGH FIELD 
BR. AROUM) LOOP COUNTER 
LOOP COUNTER 



STO 




*+10 


LD 


1 





EOR 


3 





BSC 


L 


* + 7,Z 


MDX 


1 


+ 1 


MDX 


3 


+ 1 


MDX 


L 


*+2.-l 


MDX 




*-10 


MDX 




»+l 


DC 




*-* 



'*&f 


DATE 


I4NGV69 


30JAN70 


15SEP71 


■SB*? 


EC NO. 


431319 


431319A 


431328 


•tr 











81122460 
8 11 22470 
81 122480 
811 224 90 
81 122500 
81 1 22510 
01 122 52 
811 22530 
81 1 22 54 
8 11 22 550 
81 1 22560 
81 1 22570 
81 1 22580 
8 1 1 22590 
81 1 22 60 
811 226!0 
81 I 22620 
8 1 1 22630 
81 122640 
Oil 22650 
81 122660 
81122670 
81 122 680 
811 226V0 
81 1 22700 
81122710 
81 122720 
e 11 22 7 30 
8 1 1 22740 
811 22 750 
81 122760 
811 22770 

en 22 7 80 

8 1122790 
81 1 22800 
811 22610 
81 1 22020 
6 1 1 22 830 
81 1 2284 
81122 850 
61 1 22860 
81) 22870 
81 1 22 680 
6 1 1 22090 
81 122900 
61 1 22910 
81 122920 
8 1 1 22930 
81 122940 
8 1122950 
81 ) 22960 
81122970 
81 122980 
8 1 1 22990 
81 1 23000 
8 112 3010 
81 123020 
31 123030 
81 1 2 3040 
81 123050 
81 ) 230 60 
811 23070 
81 1230RC 
81123090 
81 123100 
81 1 231 10 
81123120 
81123130 
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Qooooooooooooc 
JGRAM^OR THeTiSOO SYSTEM ^^ ^"^ ^^ PWr N0.^2794TF'^ ^"^ ^^ ^* 



2 0A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



HOB 4212 



1 IOC 





1010 




HOD 





02C0 




1 10E 





CA51 




110F 


1 


DCOO 


0a22 


1111 





1610 




1112 


1 


D400 


0A24 


1114 





6500 


2710 


1116 


1 


60 00 


0A25 


1118 


1 


6500 


li79 


1 11 A 


1 


60 00 


19E9 


me 





1010 




1 1 ID 





D2C0 




HIE 





D07D 




1 1 IF 





42F4 




1120 


1 


1 1 "D 







85! 


2 


SKTV-TB 


* 








• 








* 










SLA 




16 




STO 


2 


ERRSW-TB 


* 










LDD 


2 


HA-TB 




STO 


L 


HA RE A 


* 










SRA 




16 




STO 


L 


WAREA+2 




LOX 


LI 


10000 




STX 


LI 


WAREA+3 



LDX LI T22T1 
STX LI WTAOR 



T2204 SLA 
STO 
STO 



16 

2 ERRSW-TB 
T22SR 



BRANCH TO SEEKX ROUTINE 
AND COMPARE WITH SEEK ARG 
LEAVE CYL AND HO IN HA 

CLEAR ACC 

RESET ERROR SWITCH 

CYL NO. HEAD NO 
EST. CYL NO. HO NO. 



ZERO REC NO.. KEY LENGTH 
EST. DATA LENGTH (10000) 

EST. TIMEOUT ADDR. 

CLEAR ACC 

RESET ERROR SWlTCh 
RESET ERROR COUNTER 



T220S BS! 2 SIO-TB CALL SIO ROUTINE 

DC T22R0 CCW ADDRESS 

* 1. SET FILE MASK >C0' 

* 2. SEAkCH HA EOUAL 

3. TIC *-l 

4. WRITE HO 
GET HERE IF INTERRUPT OCCURS 



1121 42Ec 

1122 C22 5 

1 1 23 1009 

1124 1 4C28 112B 

1126 42E5 

1127 D 8107 

1128 2200 

1129 COOO 
1 1 2A 02C0 



BSI 



1.0 



BSI 

OC 

DC 



2 GETSN-TB 

2 SNWDO-TB 

T2206 

2 EROUT-TB 
/6107 
/2200 



GET SENSE BYTES 



LOOK AT SNFSE BYTE 1 
CHECK OVERRUN 



CALL ERROR OUT ROUTINE 
FLAG BITS' 
MSG NO OR ADDRESS 



PRINT un OVERRUN OCCURRED 



I 12B 
112C 

II 2D 



1 1 2E 
112F 1 



420C 
112E 

7003 

C2C0 
4C20 



1 11F 



1131 
1133 



C400 0A2S 
0240 



LD 
S T 



T2206 BSI 
DC 
MO X 

* 

LD 
BN7. 

* 

T2207 LD 
A 



2 ERRSU'-TB 



2 TLPER-lt; 
*+l 
T2207 

2 ERRSW-TB 
T2205 

L WAREA+3 
2 SCSXO+3-Tb 



GET A VALUc 

SET ERROR SWITCH 



CHECK LOOP ON ERROR 
CHECK ERROR SWITCH 
CONT INUE 

FETCH ERROR SWITCH 



REQUESTED BYTE CNT 
RESIDUAL BYTE CNT 



1134 D20B 



A-REG - NO. BYTES TRANSFERRED (OATA) 
STO 2 TEMP1-TB HOLD 



1135 
1136 
1137 
1138 



laoa 

F28D 
t J 297 
H2DB 



SRA 
EOR 
A 

A 



e 

2 fERM-TB 

2 Kl-TB 

2 TEMPl-Ta 



NC. XFER/64 



FORM 2«S COMPLEMENT 
A = A - A/64 



A-REG = 63/64 OF TRACK DATA CAPACITY 



81 12S860 
61 125870 
81 1 25880 
B 1 1 25890 
81 1 25900 
81125910 
81125920 
81 1 25930 
81 125940 
8il 25950 
81 125960 
6 1125970 
81 I 25980 
811 2 5990 
81 1 26000 
81 126010 
61 126020 
81126030 
81 1 260 'SO 
81126050 
81 126060 
81126070 
81 126080 
81 1 >6090 
81126100 
811261 10 
81 126! JO 
811261 30 
81126140 
81126150 
81 1261 60 
81126170 
81126180 
81126190 
61 126200 
81126210 
61 126220 
811262 30 
81 1 26240 
81126250 
81 126260 
61126270 
81 1 262 HO 
811 26290 
61 126300 
61126310 
81126320 
611 26330 
81126340 
81126350 
61 126360 
811 26370 
81 126300 
8 11 2 6390 
81 12640* 
61126410 
01 126420 
81 1 26430 
61 1 *6440 
8112<>«.50 
61 126460 
81126470 
61126480 
811264 90 
61 126500 
81126510 
81 126520 
81126530 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 

1139 1 D400 MCI STO L T22C5 

113B 1 D400 0A25 STO L WAREA+3 

113D D07A STO T22C3 



Vfc» S 



113E 6164 

113F 1 6000 0859 



1141 1 6500 117F 
1143 1 6D00 19E9 



LDX 1 100 

STX LI I.PCT1 



LDX LI T22T2 
STX LI WTADR 



STORE IN READ CCW 

EST. DATA LENGTH 

STORE IN WRITE CCW 



EST. LOOP COUNTER 



EST. TIMEOUT ADDRESS 



1145 1810 






SRA 


16 




1 146 D055 




» 
T2208 


STO 


T22.ER RESET ERROR COUNTER 


1 147 1010 




SLA 


16 


CLEAR ACC 


1148 D2C0 




* 


STO 


2 ERRSW-TB 


RESET ERROR SW I fCH 


1149 42F4 




* 
T2209 


BSI 


2 Sin-TB 


CAL- SIO ROUTINE 


114A 1 MAC 




* 

* 
* 

* 
* 
* 
* 

* 
* 


DC 


T22W0 


CCW ADDRESS 

1. SET FIuJ MASK >C0' 

2. SEARCH HA EQUAL 

3. TIC *-l 

4. WRITE RO (COUNT) 

5. WRITE RO (DATA) 

6. SFARCH HA EQUAL 

7. TIC *-l 

8. READ RO (SKIP) 


114B C23L-. 




* 


LD 


2 SCSXO+l-TB 


LOOK AT UNIT STATUS 


114C 100E 






SLA 


UNCHK 


CHECK FOR UNIT CHECK 


114D 1 4C10 1156 


* 


BNN 


"2210 




114F 42E5 




BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


1150 8127 






DC 


/8127 


,-LAG BITS 


1151 2201 






DC 


/2201 


MSG NO OR ADDRESS 






* 


PRINT UNIT CHECK 




1152 COOO 






LD 


* 


GET A VALUE 


1153 D2C0 




* 


STO 


2 ERRSW-TB 


SET ERROR SWITCH 


1154 1 7401 


119C 


MDX 


L T22ER.+1 


INCR. ERROR COUNTER 


1150 420C 




T2210 BSI 


2 TLPER-TB 


TEST LOOP ON ERROR 


1157 1 1159 






DC 


*+l 


CHECK tti^OR SWITCH 


1158 7003 




* 


MDX 


T2211 


CONT INUE 


1159 C2C0 




LD 


2 ERRSW-TB 


FETCH ERROR SWITCH . 


115A 1 4C20 


1 149 




BNZ 


T2209 




1 15C C.03F 




T22I 


1 LD 


T22ER 


ERROR COUNT 


115D 929D 






S 


2 K10-T9 




1 1 SE 1 4 C 1 


1167 


* 


BNN 


T22EX 


TERMINATE IF G.E. 10 


1160 1 74FF 


0859 


MD X 


L LPCTl.-l 


DECR. LODP COUNT 


1162 70E4 




» 


MDX 


T2208 


CONTINUE TEST LOOP 






* 


GO TO NEXT ROUTINE IN SEQUENCE 


11*3 42E8 




T22EN BSI 


2 FRED(/-TB 


FREE CHANNEL 


1164 C2BC 






LD 


2 TRTNN-fB 


GET RTN SWS 


1165 1 4C16 


11C4 




BZ 


T2301 


GO TO NEXT RTN IN SEO 


1167 420 F 






BSI 


2 CNTRL-TB 


60 TO CONTROL RTN 


1168 0007 




TTL22 PRNT 


. SECT 2, 


RT 2- . 


116F 0009 






PRNT 


.LONG RECORD TESTS. 


1178 FFFF 




* 


DC 


-1 





81 1 26540 
81 12 6550 
81126560 
81 126570 
8 1126580 
81 126590 
81126600 
81 126610 
81126620 
81 126630 
81126640 
81126650 
81126660 
81 1 26670 
Oil 26680 
81 1 26690 
81 126700 
O) 126710 
81126720 
81 126730 
81126740 
81 1 26750 
61126760 
81 126773 
81126780 
81 126790 
81126600 
81 126810 
81126820 
61 126H30 
811 26840 
81 126850 
81126860 
61 126870 
8 11 26880 
81 126890 
61126900 
611269 10 
81126920 
61 1269 30 
81) 26940 
01 126950 
8)126960 
81 126970 
6 1 1 26960 
81 126990 
81 1 <"7000 
81 127010 
81127020 
81 12 70 30 
85127040 
81 127050 
61127060 
81 127070 
81127080 
61 127090 
81127100 
81 127110 
81127120 
81 127130 
81127140 
81 127150 
8U27160 
81 127170 
81127180 
81127190 
81127200 
81127210 



Sdk- date 

EC NO. 



f' 



r- 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



081 1-A 
20 



■*"• DATE 


14N0V69 


30JAN70 


15SEP71 


EC NO. 


431319 


431319A 


43132 8 


.<•> 
w 








Q 








3 









PROG 10 
PAGE 



081 1-A 
2 0A 



OIOOOOOOOOOOOOO 

^^ ^^ lb,W MAINTENANCE DTA6N0STTC PROCffTM FOR THE 1800 SYSTEM PART NO. 



2841 DIAGNOSTIC - PHASE A 

1800 DIAGNOSTIC MAINTENANCE PROGRAM 



1179 42ES 


T22T1 


BSI 


2 


EROUT-TB 


117A 8106 




DC 




/8106 


117B 2202 




DC 




/2202 




* 


PRINT 


TIMEOUT 


117C COOO 




LD 




* 


1170 D2C.0 




STO 


2 


ERRSW-TB 


1I7E 70AC 


* 
T22T2 


MDX 




T2206 


117:= 42E5 


BSI 


2 


EROUT-TB 


116 8 1 f> 




DC 




/8106 


1181 2203 




DC 




/2203 




* 


PRINT 


TIK-^.OUT 


1182 COOO 




LD 




* 


1183 D2C0 


* 


STO 


2 


ERRSW-TB 


1184 1 7401 I1SC 


rfDX 


L 


T22ER.+1 


1186 70CF 


* 
T22E> 


MD X 




T2210 


1187 42E5 


BSI 


2 


EROUT-TB 


1188 0008 




OC 




/0008 


1189 1 118B 




DC 




T22M1 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR AO DRESS 

GET A VALUE 

SET ERROR SWITCH 

TEST ERROR OPTION 

CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR AC DRESS 

GET A VALUE 

SET ERROR SWITCH 

1NCR. ERROR COUNTER 
TEjT ERROR OPTION 

CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADURESS 



PRINT TERMINATION MESSAGE 



116A 700 8 



118H 0016 
HOB FFFF 



119C 0000 



119D 000 I 
119E O 40 IF 
119F 1 005C 



11A0 0004 
11A1 4 39 
11A2 1 OHDO 



11 A3 000 t 
11A4 0008 
11A5 1 11A0 



11A0 00 OC, 
1 1 A7 BOlb 
UA8 1 0A22 



11 A9 2710 
11AA 0000 
11AB 0000 



11AC 0001 
1 IAD 40 1? 
1 1 At 1 08SC 



11AF 0004 
HUO 4039 
1 1 B 1 1 080 



11U2 0001 
11B3 0008 



MDX 
* 
T22M1 PR NT 

DC 
* 
T22ER DC 



T22R0 DC 
DC 
DC 

* 

T22C1 OC 
■ C 



T22EN 



EXIT ROUTINE 



uC 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 
* 
* 
* 

T22W0 DC 
DC 
DC 
* 
* 

T22C2 DC 
DC 
DC 
* 
* 

DC 
DC 



♦•♦HARD ERROR** ROUTINE 2t2 TERM. 
-1 



ERROR COUNTER 



1 BYTE COUNT 

• 40*256+SF 1LM FLAGS AND OP CODE 

CO ADDRESS 



4 BYTE COUNT 

/40*256-»F>'*CHA FLAGS ANJ OP CODE 
HA ADDRESS 



1 BYTE. COUNT 

0*2S6+0PTIC FLAGS AND OP CODE 
T22C1 ADDRESS 



6 BYTE COUNT 

/80*2S6+WRR0 FLAGS AND OP CODE 
WAREA ADDRESS 



10000 BYTE COUNT 

0*256+0 FLAGS ANO OP CCDL 
ADDRESS 



1 BYTE COUNT 

/40*2S6+SF ILM FLAGS AND OP CODS: 
CO ADDRESS 



4 OYTE COUNT 

/40*256+SRCHA FLAGS AND OP CODE 
HA ADDRESS 



1 BYTE COUNT 

0*256+OPTIC FLAGS ANO OP CODE 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SFP71 
431328 



PART NO. 2279471 



o 6 



PAGE 



81 127220 
8 11272 30 
81 127240 
81127250 
81127260 
81127270 
81 1272 80 
81127290 
81 127300 
81127310 
81 127320 
81127330 
81 127340 
81127350 
81 127360 
61127370 
81127380 
81127390 
81 1 27400 
81127410 
81 127420 
811274 30 
81 127440 
811 274 50 
81 1 27460 
8112 7470 
81 i 2 74 80 
81127490 
81 127500 
81127510 
81 127520 
81127530 
81 127540 
8112 7550 
61 127560 
81127570 
81 127580 
81 12 7590 
81 127600 
81127610 
81 127620 
81127630 
81127640 
8 1127650 
81 12 7660 
8 11276 70 
81 127680 
81127690 
81 127700 
81127710 
81 127720 
81127730 
81 127740 
81 127750 
81 127760 
81127770 
81 127780 
8 1 1 2 7790 
81 127600 
81127810 
81 127820 
81127830 
81 127840 
811 27850 
81 127860 
8 1127870 
81 127880 
81127890 



21 
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284 1 DIAGNOSTIC 



PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



Mi* 



.<*\ 
**■-* 






081 1-A 
21 






^% 



''Xtf$ 



11B4 T 11 AF 



11B5 O 0008 
11B6 8015 
11B7 1 0A22 



11B8 0000 
1169 O 4000 
11UA O 0000 



11BF1 0004 
11BC 4039 
11BD 1 OHDO 



11HE 0001 
1 1 BF 0008 
11C0 1 11BB 



11C I O 00 
11C 2 0816 
11C3 1 0A22 



DATE 
EC NO. 



3 
O 



* 

• 

DC 
DC 
DC 

* 

* 

T22C3 DC 
DC 
DC 

* 

* 

T22C4 DC 
DC 
DC 



DC 
DC 
DC 



ADDRESS 



8 BYTE COU«iT 

/80*256+WRR0 FLAGS A>£> OP CODE 
WAREA ADDRESS 



*-* BYTE CCuNT 

/40*256+0 FLAGS Af*> CP COD E 
ADJRESS 



4 BYTE COUl.T 

•40*256+SMCKA FLAGS AND OP CODE 
HA ADDRESS 



1 BYTE COU'.T 

0*256+0PTIC FLAGS Alt. OP CODE 
T22C4 ADORFSS 



T22C5 DC *-* BYTE COJNT 

DC /8*256+RDR0 FLAGS *•£> OP CODE 

DC WAREA ADDRESS 

* 
* 
* 
**«•*»**»********:»**»*»<■ ************************* 



WR-RD /CORESS MARKS 



* ROL'flNE — 3 — 

* 



* 
* 
* 
* 
* 
* 
* 
* 
#*** *********** ******** ft ft. ****>- *************«$**.. X* ** 



THIS ROUTINE IS DESIGNED TO SEE THAT 
ADDRESS MARKS CAN BE READ A:-U WRITTEN. 
RO AND Rl ARE WRITTLN hHj THEN Rl IS 
REAO 100 TIMES. AH 1 FAILURE TO FIND IK 
RECORD INDICATES AN LRRUV. 



****** V ****"4* ft. ****»***» ******»«:*S********** ft* 



***********»*»»»**** *»*<-**♦.*****•***. *******<<>: 



': * 4 * >> 
8" ~ « * * 

* 



1 \C4 









T230I 


EOU 




* 


1 1C4 


1 


7401 


08 15 




MDX 


L 


TRID .1 


1 IC6 


1 


4C18 


1 1CB 




BZ 




T2302 


11C8 





9297 






S 


2 


Kl-TH 


1 1C9 


I 


4C20 


123B 


* 
T2302 


BNZ 




T2401 


KCB 





C283 




LD 


2 


TSWO-TB 


11CC 





100A 






SLA 




OTTLF 


1 1CD 


1 


4C10 


1 1D1 




BNN 




T2303 


HCF 





4209 






BSI 


2 


TLGMS-TB 


11D0 


1 


1201 




* 
T230 3 

* 


DC 




1TL23 


1 1D1 





42EB 




BSI 


2 


GETOV-TU 


111)2 





4212 




BSI 


2 


SKTV-TB 


11D3 





6500 


0064 




LDX 


LI 


100 


1105 


I 


6O00 


0858 




STX 


LI 


LPCNT 



1107 C25I 



14N0V69 
431319 



30JAN70 
431319A 



LD 



15SEP71 
431328 



2 HA-TB 



TEST ENTRY POINT 

BUMP RTJt ID 

BP IF TE^T NUMBER ZER"_ 

DECREMUiT BY ONE 

BR IF IwOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF MOT SET 
O TO P^InT ROUTINE 
MF.SSAGt ADDP.ESS 

GET CHANNEL FOR RTN 

BRANCH TO SFEKX ROUTll 
SET UP LOOP CNTR 



GET CYLI* READ 



PAGE 



8)127500 
81 127910 
81127920 
81 1 27930 
811 27940 
81 127950 
81127960 
81 127970 
811 27980 
81 127990 
81 128000 
81 1280 10 
8 1 1 28020 
81 1280 30 
81128040 
81 128050 
61 1 28060 
81 12O070 
1 1 2 HO 80 
81 128090 
8 1 1 261 00 
81 1281 10 
81128120 
81 l;.8130 
811 28140 
01128150 
6 1 1281 60 
01 128170 
811281 HO 
61 128190 
81126200 
81 1202 10 
811 28220 
Bl 12e?30 
811 20240 
81 12 32 50 
8 1 1 2 82 CO 
61 12 8270 
R 1 1 2 82 80 
Oil 28290 
8 1 1 2 8 300 
81 128310 
6 1 1 26320 
01 1 28330 
8 1 1 2 8340 
8 1 12 63 50 
8 1 1 2 0360 
81 1 2B370 
8 11 2 63!i0 
61 128390 
811 28400 
81 12 84 16 
811284 20 
81 1264 SO 
811 26440 
81 128450 
811 26460 
81 128470 
61126460 
81 128490 
1 128500 
81 12 6510 
81 1 28520 
81 128530 
81128540 
81 126550 
61128560 
81128570 



PROG ID 
PAGE 



081 1-A 
21 A 
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2841 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 






v "*" DATE 



J—. 



11D8 D058 






STO 


T23R0 


PUT IN PO 


81 i2eseo 


1109 D05C 






STO 


T23R1 


PUT IN »! 


81128590 


11 DA C252 






LD 


2 HA+l-TH 


GET HE*0 READ 


81 128600 


11DB 005^ 






STO 


T23R0+1 


PUT IN RO 


81128bl0 


1 IDC DOSA 




» 


STO 


T23R1+1 


PUT IN Rl 


81 128620 
8 11 28630 


I 1DD 42F4 




T2304 BSI 


2 SIO-TF. 


CALL SIO ROUTINE 


81 128640 


11DE 1 1215 






DC 


T23WR 


CCW ADDRESS 


61126650 


11D. - C23E 






LD 


2 SCSXO+1-TB GET UKIT STATUS 


81 128660 


11E0 100k 






SLA 


UNCHK 


TEST FOR UNIT CHECK 


81 1 28670 


11E1 1 4C10 1 


1EB 


■> 


BNN 


T2305 


BR IF NO 


81 128680 
811 28690 


11E3 42ES 






BSI 


2 EROUT-TB 


CALL ERROR OUT ROUT'. NE 


81 128700 


11E4 0127 






DC 


/0127 


FLAG BITS 


811 28710 


1 1E5 2300 




• 


DC 


/2300 


KSG NO OR ADDRESS 


81 128720 
01128730 






* 


TEST OPTION SWITCHES 


81 128740 






* 








6 1 128750 


11E6 C283 






LD 


2 TSWO-TB 


FETCH OPTION SWITCHES 


81 128760 


11E7 100C 






SLA 


OLPER 


TEST FOR SW OLPER 


8 1 128770 


llt'8 1 4C28 HDD 




BN 


T2304 


BRANCH IF SW OLPER IS ON 


81 128780 


11EA 70 1 1 




* 


MDX 


T23EN 


END ROUTINE 


81128790 
81 128800 


11EB 42F4 




T2305 BSI 


2 SIO-TB 


CALL SIO ROUTINE 


31 1 28810 


llfcC 1 1 22A 






DC 


T23RD 


CCK ADDRESS 


81 128820 


1 lt"D C23E 






LD 


2 SCSXO+l-TB GET UJ.1T STATUS 


81128830 


11EE 100E 






SLA 


UNCHK 


TEST FOR UNIT CHECK 


81 12BB4C 


llfcF 1 4C10 


1F9 


* 


BNN 


T2306 


BR IF NOT ON 


811288S0 
81 128860 


11F1 4 2ES 






BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


811 28870 


11F2 0107 






DC 


/0107 


FLAG BITS 


81 128880 


11F3 2301 




* 


DC 


/2301 


MSG NO OR ADDRESS 


81 12 0890 
81 128900 






* 


TEST OPTION SWITCHES 


81 1 28910 






* 








81 12fa920 


11F4 C263 






ID 


2 TSWO-TB 


FETCH OPTION SWITCHES 


81128930 


11F5 100C 






LA 


OLPER 


TEST FOR SW OLPER 


81 128940 


11F6 1 4C20 


1 1EB 




'..N 


T230S 


BRAN' 1 IF SW OLPER IS ON 


811 2e9S0 


J1F8 7003 




* 


MDX 


T23EN 


END POUT I HE 


81 128960 
81128970 


11F9 1 74FF 


0858 


T2306 MOX 


L LPCNT.-l 


DECFE-'ENT LOOP CNT 


81 128980 


11FB 70EF 




« 


MDX 


T2305 


LOOt- ON READ RO 


8 11 2 8990 
81 129000 






* 


GO TO NEXT ROUTINE IN SEOUrlNCE 


811 29010 






* 








81 129020 


iifc o 4?ee 




T23EN BSI 


2 FRED V- TO 


FS-TE CHANNCL 


81129030 


11FD C2BC 






LO 


2 TRTNN-TB 


GET FIN SW5 


81 129040 


11FE 1 4C1B 


123B 




DZ 


T2401 


GO TO NEXT RTM IN SEO 


81129050 


1200 420 F 






BSI 


2 CNTRL-TB 


GO TO CONTROL RTN 


81 1 29060 


1201 0007 




TTL23 PRNT 


. SECT 2 


,RT 3- . 


81129070 






* 








81 129060 


1208 0012 






PUNT 


.WRITE/READ ADDRESS MARKS. 


8 1 129090 


1214 FFFF 




* 


DC 


/FFFF 




81 129100 
81! 291 10 






* 


DATA 


AMD CONSTANTS 


81 125120 






* 








811291 30 






* 








81 129140 


1215 0001 




T23WR DC 


1 


BYTE COUNT 


81129150 


121t> 401F 






DC 


FLCCH*256-tSFILK FLAGS AND OP CODE 


81 129160 


1217 1 0C5C 




* 
* 


OC 


CO 


AOD&ESS 


81129170 
81 129180 
81129190 


1218 0004 




(23W2 DC 


4 


BYTE COUNT 


81 129200 


1219 4039 






DC 


FLCCH*2S6+SRCKt FLAGS AND OP CODE 


81 1 29210 


121A 1 1231 




* 
* 


DC 


T23R0 


ADDRESS 


81 129220 
8 1 1 292 30 
81 129240 


121b 0000 






DC 





BYTE COUNT 


81129250 



EC NO. 



14N0V69 30JAN70 15SEP71 
431319 431319A 431328 
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DATE 




EC NO 



Q 

Q 



121C 0008 




DC 


0*256+0PTIC FLAGS AND OP CODE 


81129260 


1210 1 1218 


* 
* 


DC 


T23W2 ADDRESS 


81 129270 
8 11 29280 
81 129290 


121E 0009 




DC 


9 BYTE COUNT 


81129300 


121F 401S 




DC 


FLCCH»256+WRR0 FLAGS AND OP CODE 


81 129310 


1220 1 1231 


* 
* 


DC 


T23R0 ADDRESS 


81 1 29320 
81 129330 
81129340 


1221 0005 


T23W4 


DC 


5 BYTE COUNT 


81 129 350 


1222 4031 




DC 


FLCCH*256+SRC ID FLAGS AND OP CODE 


81129360 


1223 1 1231 


* 
* 


DC 


T23R0 ADDRESS 


81 129370 
81129380 
81 129 390 


1224 0000 




DC 


BYTE COUNT 


811 29400 


1225 0008 




DC 


0*256+0PTIC FLAGS AND OP CODE 


81 129410 


1226 1 1221 


* 
* 


DC 


. T23W4 ADDRESS 


81 129420 
81 129430 
81129440 


1227 0009 




DC 


9 BYTE COUNT 


81 129450 


1228 00 ID 




OC 


0*256+WRCKD FLAGS AND OP CODE 


8 11 29460 


1229 1 1236 


* 
* 

* 


DC 


T23R1 ADDRESS 


81 129470 
611294 80 
81 129490 
8 1 1 29500 


122A 0005 


T2 3R0 


DC 


6 BYTE COUNT 


81 129510 


122B 481A 




DC 


/4B*256+RDHA FLAGS AND OP CODE 


811 29520 


1 22C 1 1 22D 


* 
* 


DC 


» ADDRESS 


81 129530 
81 1 29540 
81 129 550 


1220 I) 0008 




DC 


8 BYTE COUNT 


81129560 


122<i 0812 




DC 


FLSKP*256 + ROCNT FLAGS AND OP COOr. 


81 1 29570 


122F 1 1230 


* 

* 


DC 


* ADDRESS 


8112.95B0 
81 129590 
811 29600 


1230 0002 


T23U 


S DC 


/0C02 UNIT STATUS-UNIT CHLC/ 


81 1 29C10 




* 


COUNT, KEY FOR RO AND Rl-RX 


811 29620 


1231 0000 


T23R0 DC 


*-* CYL NO GOES HERE 


81 129630 


1232 0000 




DC 


*-* HEAD NO GOES HERE 


8 1 1 29640 


1233 0000 




DC 


/OOOO RECORD 


81 1 29650 


1234 0001 




DC 


/0001 D=l 


8 1 1*9660 


1235 0000 




DC 


/OOOO 


81 129670 


1236 0000 


T23R1 DC 


*-* CYL NO GOES HERE 


8 1 1 29680 


1237 0000 




DC 


*-* HEAD NO GOES HERE 


81 1 29690 


1238 0100 




DC 


/Ol 00 RECORD 1 , ( 1-X ) 


811 29700 


1239 0001 




DC 


/000 1 0=1 


81 12971 


123A 0000 


* 
• 


DC 


/OOOO 


8 11 29720 
et 1297 30 
81 I 29740 




************************* **************** ****»*»»*** 


81 129 750 




» 






81 1 29 760 




* 




ROUTINE 4 HEAD TRACK OF ADDR MARKS 


81 1 29770 




* 






81129780 




****lj-*******»**S*****.>**»*********************«S**l» 


81 129790 




* 






81129800 




» 






81 129810 




* 




THIS ROUTINE IS DESIGNED TO EXERCISE Trt= 


811 29820 




* 




CIRCUITPY OF THE CONTROL UNIT TO RECOGNIZE 81129830 




* 




ADDRESS MARKS. THIS IS ACCOMPLI SHED bf 


81 1 29H40 




* 




FORMATTING A FULL TRACK OF RECORDS At. 5 


81 129850 




* 




READING THESE RECORDS, INDICATING AN tRROR 81129860 




* 




IF ANY AWE MISSED • 


81 129870 




* 






8 1 1 29660 




* 






81 129890 




*************************************************** 01) 29900 




* 






» 81129910 




*************************************«.*******»***** 811 29920 




****************** i;- *********** ***«■ + ******** ******** e j 1299 30 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



w 
r- 



DATE 
EC NO. 







* 








8113! 300 






* TEST OPTION SWITCHES 




811 31310 






* 








81 131 320 


12B6 C283 




T2414 


LD 


2 TSWO-TB 


FETCH OPTION SWITCHES 


81131 330 


12B7 100C 






SLA 


OLPER 


TEST FOR SW OLPER 


81 1 3134 


12B8 1 4C10 12BF 




BNN 


T2415 


BRANCH IF SW OLPER IS OF 


' 811313bO 






* 








81 13.360 


12BA C0S9 






LD 


T24MB 


FETCH MARK SW ,B 


81131370 


12BB 1 4C20 12AB 




BNZ 


T2413 


BRANCH IF ON 


81 131380 






* 








81131390 


12BD 10 10 






SLA 


16 


RESET MARK SW C 


81 131400 


12BE 0056 




* 
* 


ST0 


T2 4MC 


* 


8U31410 
81 131420 
811 31430 


12BF 63FC 




T2415 


LDX 


3 -4 


ZERO" READ IN AREA 


81 1 3144 


12C0 10 10 




T240L 


SLA 


16 


CLEAR ACC 


811 31450 


12C1 1 07' 1336 




STO 


L3 T24RA+4 


* 


81 1314h0 


12C3 7301 






MDX 


3 +1 


* 


81 1 31470 


12C4 70FB 




* 


MDX 


T240L 


>:- 


81 131480 
81131490 


12C5 42F4 






BSI 


2 SI 0-TH 


CALL S10 ROUTINE 


81131500 


12C6 1 1336 




* 


OC 


T24MK 


CCW ADDRESS 


8 1131510 
81 131520 


12C7 6IFC 






LDX 


1 -4 


SET LOOP CTR 


81131530 


12C8 1 CbOO 1 


30C 


T24L1 


LD 


LI T24HA+4 


FETCH S/B 


61 131 £40 


12CA 1 F500 1 


336 




LOR 


LI T24RA+4 


TEST WITH WAS 


8 1131 550 


12CC 1 4C20 120 




BNZ 


T240T 


EXIT 


81 i 31560 


1 2C E 710 1 






MDX 


1 +1 


DEC 


81131570 


12CF 7 0FB 




* 


MDX 


T24L1 


LOOP 


81 131580 
611 31590 


1200 1 4CU. i 


2F5 


T240T HZ 


T2417 


BRANCH IF EO 


81 131600 






* 








81131610 


1 202 42Gb 






BSI 


2 EROUT-TH 


CALL ERROR OOT ROUTINE 


81 1 31620 


1203 8147 






DC 


/8147 


FLAG BITS 


811 31630 


12D4 2403 




* 


OC 


/2403 


MSG NO OR ADDRESS 


81 131640 
611 31650 


12D5 C000 






•Si 


* 


SET MARK SW C 


81 1 31660 


120b D03E 




* 


STO 


T24MC 


* 


81131670 
81131680 


1207 C032 






LD 


T24HA+2 


CONVERT RECORD READ 


8 11 31690 


1208 1B0B 






SRA 


8 


* 


81 1 31700 


1209 «*2I'D 






BSI 


2 TCVI-O-TB 


CONVERT TO DECIMAL 


811 31710 


1 2DA 42FA 






BSI 


2 TCVBF-TB 


CALL COWERT RTN 


81 131720 


12DB 0844 




» 


STD 


T2 4RR+I 


* 


811 31730 
81 1 31740 


12DC 4209 






BSI 


2 TLGM5-TB 


CALL LOG ROUTINE 


81131750 


12D0 1 1316 




» 


DC 


T24RR 




81 1 31760 
811 31770 


120E C05S 






LD 


T24RA+2 


CONVERT RECORD WRITTEN 


81 13178a 


120F 180(4 






SRA 


B 


* 


811 31790 


I2fc.0 42FD 






BSI 


2 TCVHD-TB 


CONVERT TO DECIMAL 


81 131800 


12E1 4a"FA 






BSI 


2 TCVBE-TH 


CALL CONVERT RTN 


61131810 


12E2 D84B 




* 


STD 


T24RW+1 


* 


81 131820 
811 31B30 


12E3 4209 






BSI 


2 TLGMS-TB 


CALL LOG ROUTINE 


ttl 131840 


12E4 1 132 4 




* 


DC 


T24MW 




81131850 
81 131860 
811 31870 






* 


TEST OPTION SWITCHES 


81 1 31680 






* 








81131890 


12fcS C?83 




T24 17 LD 


2 TSWO-TB 


FETCH OPTION SWITCHES 


81 131900 


12E6 100C 






SLA 


OLPER 


TEST FOR SW OLPLR 


81131910 


12E.7 1 4C10 


12EC 


* 


BNN 


T2416 


BRANCH IF SW OLPER IS 


OFF 61131920 
81131930 


12E9 C02B 






LD 


T24HL 


TEST MARK SW C 


81 131940 


12EA 1 4C20 


1 2BI- 


* 


BNZ 


T2415 


BRANCH IF ON 


81 131950 
81 131960 


12EC 71FF 




T2416 MDX 


1 -1 


DEC CYCLE COUNT 


811 31970 



14NQV69 30JAN70 15SEP71 
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V 



IkAAa*' 



Ha 5 * 



■"■S 






PROG ID 0811- A 

PAGE 24 



12ED 70D1 



12EE 42E8 

12EF C2dC 

12F0 1 4C18 1362 

12F2 42DF 

12F3 0007 

12FA 00 13 

1307 FFFF 



T2 41 5 



CONTINUE 



<>*\ 



DA 'IE 
EC NO. 



f* 






o 



GO TO NEXT ROUTINE IN SEQUENCE 



1308 




0000 


1308 





0000 


13 09 





0000 


130A 





0000 


I 3 OB 





0001 


1J0C 





FFOO 


130E 




0000 


130E 





0000 


130r 





0000 


1310 





0100 


1311 





000 1 


1312 





FFOO 


1313 





cooo 


1314 





0000 


1315 





0000 


1316 




0012 


1322 





FFFF 


1323 





FFFF 


1324 




00 12 


1330 





FFFF 



1332 



0004 



1336 0005 

1337 481 A 

1338 1 1339 



1339 OOOB 
133A 4012 
133B 1 1332 



133C 0001 
1330 0008 
133E 1 1339 



133F 0001 
J340 40IF 



T24EN OSI 
LD 
BZ 
BSI 

TTL24 PRNT 

* 

PRNT 
DC 



2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SWS 

T2501 GO TO NEXT RTN IN SEQ 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT 2.RT 4- . 



•RD TRACK OF ADDRESS MARKS. 
/FFFF 

******************************** ****+**».»»**■;***.*»* 

* * 

* 

* DATA CONSTANTS AND MESSAGES 

* 

* * 

* 

ALIGN 

«-* CYL 

*-« HEAD 

/0000 RLC AND KEY LNG 

•0001 DATA HIGH AND LOW 

/FFOO DATA «FF< 



BSS 

T24HA DC 

OC 

DC 

DC 

DC 
* 

BSS F. 
T24CN OC 

DC 

DC 

DC 

DC 
* 

T24MA DC 
T24MB DC 
T24MC DC 
* 
T24RR PRNT 

DC 
DC 
T24RW PRNT 

DC 
* 

T24RA BSS E 
* 
* 

T24MK DC 
DC 





*-* 

*-» 

/01 00 

/0001 

/FFOO 

*-* 
*-* 
«-* 



ALIGN 

CYL 

HEAD 

REC AND KEY LNG 

DATA HIGH AMD LOW 

DA I A >FF« 

MARK. SW A 
MARK SW B 
MARK SW C 



DC 



DC 
DC 
DC 



DC 
DC 
DC 



T24RI DC 
DC 



. LAST PCD READ IS XXAX. 

/FFFF TERM 

/FFFF PAD 

. LAST RCD WROTE IS XXXX. 

/FFFF TFRM 

4 READ COUNT INPUT ARFA 



S BYTE COUNT 

/4 8S2 56-IKUHA FLAGS AND OP CODE 

* ADDRESS 



6 BYTE COUNT 

/40»2S6+RDCNT FLAGS AND OP CODE 
T24RA ADDRESS 



1 BYTE COUNT 

/00*256+OPT1C FLAGS AND OP CODE 
*-6 ADDRESS 



1 BYTE COUNT 

/40*256+SFlLM FLAGS AND OP CODE 



14N0V69 30JAN70 15SEP71 

431319 431319A 431326 



8! 1 31°80 
81131990 
811 32000 
61 1320 10 
81132020 
61 1 32030 
811 32040 
81 132050 
81132060 
81 1320 70 
811 32080 
81 132090 
811 32100 
B 1 1 3? 1 1 
61 1 32120 
81 132130 
811 32140 
81 132150 
811 32160 
81 1 32 1 70 
811 321 80 
81 132190 
811 32200 
61 1^2210 
eil 32220 
61 1322 30 
811 32240 
81 132250 
81132260 
81 1 32270 
8 1 1 322B0 
81 132290 
611 32 300 
8 1 1 32 3 1 
811 32320 
81 132 330 
811 32 34 
81 132 350 
811 32 360 
81 132370 
.811 32 3B0 
81 1 32 390 
611 32 4 00 
81 132410 
811 32420 
61 1 32 4 30 
811 32440 
61 132450 
81132 4 60 
61 1324 70 
61 132 4 BO 
61 132 4 90 
811 32500 
81 132510 
61132520 
81 132530 
81132540 
81 1 32 550 
811 32560 
81 132570 
811 32580 
611 32590 
81132600 
81 132610 
81132620 
81 132630 
811 32640 
81 132650 



PROG ID 08 11 -A 

PAGE 24A 






oooooooooooooooooooooooooooooooooc 

IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM PART NO. ,279471 IBM MAINTENANCE OTaGNOSTTC PROGRAM FOR THE 1800 SYSTEM ^^ ^^ ^^ ^PART SU. 2279^1 ^^ ^^ ^^ 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTE 
28*1 DIAGNOSTIC - PHASE A 



PAGE 



284 1 DIAGNOSTIC - PHASE A 



PAGE 



25A 
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1341 1 1360 


* 
* 


DC 


T24C0 AOORESS 


81 132660 
811 32670 
81 132660 


1342 0004 




DC 


4 BYTE COUNT 


811 32690 


1343 4039 




DC 


/40»256+SPCHA FLAGS AND OP CODE 


81 132700 


1344 1 1308 


* 


DC 


T24HA ADORESS 


811 3271© 
81 132 "'20 
81132730 


1345 0001 




DC 


1 BYTE COUNT 


81132740 


1346 0008 




DC 


/00*256+OPT IC FLAGS AND UP CODE 


81132750 


1347 1 1342 


* 
* 


DC 


*-6 ADDRESS 


81 1 32760 
611 32 7 70 
81 132760 


1348 0009 




DC 


9 BYTE COUNT 


81 1 32 790 


1349"' 40 IS 




DC 


/40*256+WRR0 FLACS AND OP CODE 


81 132 660 


J.34A 1 1308 


* 
* 


DC 


T24HA ADDRESS 


81 1 32610 
81 132620 
8 1 132S30 


134B 0009 




DC 


9 Li-TE COUNT 


81 1 32 SAO 


134C 0010 




DC 


/00*2S6+WRCKD FLAGS AMI OP CODE 


8 11 32 650 


134D 1 130E 


* 
* 
* 


DC 


T24CN ADDRESS 


81 1 32*60 
811 32670 
8 1 I 32660 
8 1 1 32690 


134E 0005 


T24RX DC 


S BYTE COUNT 


81 1 32900 


134F 4031 




DC 


/40*2S6+SRC ID FLAGS Art) OP CODE 


811 32910 


1350 I 1308 


* 
* 


DC 


T24HA ADORESS 


8 1 1 "'292 
811 32930 
81 132940 


13bl 0001 




DC 


1 BYTE COUNT 


81 1 32960 


i352 0006 




DC 


/00*2 56+0PT IC FLAGS AMD OP CODE 


81 1 32960 


1353 1 134E 


* 

* 


DC 


»-6 ADDRESS 


811 32970 
81 1 32980 
8 1 1 32/90 


1354 0009 




DC 


9 BYTE COUNT 


81 ! 33000 


1355 OOU) 




DC 


/00*256+ WRCKD FLAGS Am OP CODE 


811 3 3010 


1366 1 130E 


* 
* 
* 


■ r 


T24CN ADORESS 


81 1 3302 
8 11 33030 
81 1 33040 
eil 320SQ 


1357 0005 


T24ER DC 


5 BYTE COUNT 


81 1330 60 


1358 4 031 




DC 


/40*256+SRC ID FLAGS AND OP CODE 


811 33070 


1359 I 1308 


* 
* 


DC 


T24HA ADDRESS 


81 1 33080 
811 33090 
61 1 33100 


135A U001 




DC 


1 BYTE COUNT 


811 331 10 


13SB 0006 




or 


/00»25640PT1C FLAGS AMD OP CODE 


81 133120 


13bC 1 1357 


* 

* 


DC 


*-6 ADORESS 


Oil 33130 
81 1 33! 40 
811 33150 


1351) 0009 




DC 


9 BYTE COUNT 


81 133160 


135E 00 11 




DC 


/00*256+ERASE FLAGS AND OP CODE 


811 33170 


13bF 1 130E 


* 
* 


DC 


T24CN ADDRESS 


61 1 331 fiO 
81 1 33190 
81 1 33200 


1360 COOO 


T24C0 DC 


/COOO FILE MASK 


8 1 1 3 32 1 


1361 OOOE 


T24UC DC 


/OOOE UNIT CK MASK 


81 1 332 2 




* 






81 1 3 32 30 




* 






81 133240 




* 






fill 33250 




♦ ♦A***********!********************* ******** ******* ft 1 1 332 60 




* 






811 332 70 




* 


ROUTINE — 5 — FALSE ADDRESS MARK TEST 


81 133280 




* 






811 33290 




******** 


~********#v ******************* ************ 61 13 330 




* 






8 11 33310 




* 






81 133320 




* 




THIS ROUTINE FJRMATS A TRACK KITH RECORDS 


611 33330 






1362 

1362 1 7401 0815 

1364 1 4C18 1369 

12 66 92.97 

1367 1 4C20 1460 

1369 C283 

136A 100A 

136EJ 1 4C10 !3fF 

136D 4209 

136E 1 13F3 

136F 42EB 



1370 

1371 
) 3 IZ 1 
1 3 74 
13 75 



13 76 1 



I37<! 
13 79 
137A 1 
J27C 
137D 
137E 
137F 1 

1381 

1382 1 



4212 

C2B8 

O'lOO OA22 

ol32 

C28D 

D400 0A23 

18D0 

C2UO 

DO 00 0A24 

7 ire 

70FC 

C2AF 

D400 0A5(, 

C2B0 

0400 0A57 



1384 1010 

1365 1 D400 1439 

1367 82AA 

1368 1 D400 1430 



136A 





C251 




lif.B 


1 


D400 


1437 


136D 


1 


D400 


14 311 


138F 





C252 




1390 


1 


D400 


14 38 


1392 


1 


D400 


143C 


1394 





42F4 




13 95 


I 


1 404 




1396 





C23E 




1397 





10 0E 




1398 


1 


4C10 


13A2 


139A 





42ES 




139B 





0107 




139C 





2500 





* 

* 

* 

* 

* 

* 

****** 

* 

****** 

**«'*•* 

* 

*»**»* 

T2 50'l 



WHICH APPROXIMATE AN ADDRESS MARK. THE 
TRACK IS THE.N READ. ATTEMPTING TO FOOL THE 
CONTROL UNIT INTO READING FALSE ADDRESS 
MARKS FOR ACTUAL ONES. 



* 
T2S02 



********************************************* 

* 
********************************************* 

*****»*****<!******»************************** 

* 
*************** tf #****$* ******************** * * 

EQU * TEST I.NTRY POINT 

MDX L TRID.l BUMP RTN ID 

BZ T2502 BR IF TEST NUMBER ZERO 

S 2 Kl-TB DECREMENT BY ONE 

BNZ 12601 BR IF NOT THIS TEST 

LD 2 TSWO-TB GET OPTION SWS 

SLA OTTLE PRINT T'TLES 

BNM T2503 BR IF NOT SS;T 

BSI 2 TLGMS-Tb GO TO PRINT ROUTINE 
DC TTL25 MESSAGE ADDRESS 



* 
T2503 



T250* 



* 

* 
* 



BSI 

BSI 

LD 

STO 

LDX 

LD 

STO 

XCH 

LD 

STl) 

HO X 

MDX 

LD 

STO 

LD 

STO 



2 GtTDV-TB 



SKTV-TB 
HCCFF-lb 

WAREA 
50 

TERM-TB 
WAREA+ 1 

TTRM-TB 
WAREA+2 
-2 

T2S04 
H0707-TB 
WARE A + 52 
HOEOO-TB 
WAKE A +53 



GFT CHANNEL FOR RTN 

BRANCH TO SEEKX ROUTINE 

f.t 1 FIRST WORD 

PUT IN WRITE AREA 

SET UP COUNT=50 BYTES 

GET 'FFFF • 

BUILD WRITE DATA 



LOOP TILL 
SET UP EM) 



AREA -AIL F'S 
OF WRITE AREA 



SLA 16 

STO L T25R0+2 
A ? HOI 00-TH 

STO L T26RX^ 



CLE AP- 

RECOK. HA 
SET RECORD 1 l> = 1 



LD 2 HA-Tb 

STO L T25R0 

STO L T25RX 
LD 2 HA+l-TB 

STO L T25R0+1 

STO I. T25RX+1 
GO FORMAT ROAND Rl 
BSI 2 S10-TB 

DC T25F0 



GET CYL 'AT' 
PUT IN RO HA 
PUT IN Rl HA 

GET HEAD 'AT' 



CALL SIO ROUTINE 
CCW AOORESS 



ID 
SLA 

bNN 

bSI 
DC 

DC 



2 SCSXO+1-TU GET UNIT STATUS 
UNCHK TEST FOR UNIT CK 

T2 505 



2 ER0U1- 
/Ol 07 
/2500 



IB 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OH ADDRESS 



TEST OPTION SWITCHES 



811 33^40 
81 1 33350 
81 I 3 3360 
81 1 33370 
811 33380 
81133390 
811 33400 
61 1 33410 
811 33420 
81 133430 
811 33440 
61 1 334 50 
81133460 
81 I 334 70 
8 1 1 33480 
81 133490 
811 33500 
61 133510 
811 33520 
61 1 33530 
8 1 1 33540 
81 1 33550 
811 33560 
6! 1 3^570 
6 1 1 33580 
81 1 33590 
811 33600 
81 1 33610 
811 33620 
8 1 I 33630 
811 3364 
61 1 33650 
811 33660 
81 1 33670 
8 1 1 33680 
81 1 33690 
8 1 1 33700 
81 1 337 10 
81 1 33720 
81 1 33730 
811 33740 
81 1 33 750 
8i ' 33760 
61 1 33770 
8! 1 33V HO 
81 1 33790 
h I 1 3 3600 
81 1 33810 
8 11 33620 
81 1 33830 
8 1 I 3364 
81 1 33 850 
6 1 \ 33660 
81 1 3387 
8 1 1 3 3 680 
81 1 33890 
8 11 33900 
HI 1 33910 
81133920 
81 1 339 30 
811 3 3940 
61 133950 
811 33960 
81 133970 
81 I 3 3980 
61 1 33990 
81 134000 
61 134010 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



1SSEP71 
431328 



PPGG ID 
PAG£ 



00 1 1 - A 
25 



"■* DAT- 


I4N0V69 


30 JAN70 


15SEP71 


EC NO. 


431319 


43I319A 


43132 8 


*, 
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1390 C283 
139E 100C 
139F 1 4C28 137A 
13A1 704C 



13A2 1 C400 143D 

13A4 I D400 1439 

13A6 82AA 

13A7 1 D400 1A3D 

13A9 1808 

13. A F2A0 

13AB 1 4C18 13UC 

13AD 42F4 
13 AE 1 14: 9 

13AF C23E 

13U0 iooe 

1301 1 4C10 13A2 

13133 42E.E 

13B4 CE2S 
13U5 1009 
1336 1 4C2a 13C3 

13B8 42E5 

13B9 107 

13BA 2501 

13bB 7003 

13BC 42ES 
13BD 0107 
13BE 21.(14 



13BF C263 
13C0 100C 
13C1 1 ''C2B 13A2 

13C3 C07S 
13C4 O 92AA 
13CS 0073 

13C6 42F4 
13C7 1 1425 

13C8 C23E 
13C9 O 100L 
13CA 1 4C10 13D4 

13CC 42E.5 
13CD O 0103 
13CE O 21.02 



13CF O C283 

13D0 100C 

1301 1 4C28 13C6 

13D3 701A 

13D4 C2A0 
13D5 D2D9 





LD 


2 TSWO-TB 




SLA 




OLPER 




BN 




T2504 




MDX 




T2EEN 


* 


FORMAT 


ENTIRE TRAC 


T2S0S 


LD 


L 


T25RX-. 2 




STO 


L 


T2SR0+2 




A 




2 H0100-TB 




STO 


L 


T25RX+2 




SRA 




8 




EOR 




2 Kl ' J-TB 




BZ 




T2506 


* 










BSI 




2 SIO-TB 




DC 




T2SF2 


* 










LD 




2 scsxo+i-t: 




SLA 




UNCHK 




BNN 




T2505 


* 










BSI 




2 GETSN-TB 


* 










LD 




2 SNWOO-TB 




SLA 




FTROV 




BN 




T2S07 


* 










BSI 




2 EROUT-TB 




[)C 




/0107 




DC 




/2S01 




MDX 




T25LP 


* 








T2506 BS1 




2 EROUT-TB 




DC 




/0107 




or. 




/2504 



FETCH OPTION SWITCHES 
TEST FOR SW OLPER 
BRANCH IF SW OLPER IS ON 
END RTN 



GET HX RECORD NO 
PUT IN RO 

BUMP RECORD NO 
PUT IN RX 

SEE IF 100 TRACKS 



BR IF 100 DONE 



CALL SIO ROUTINE 
CCW' ADDRESS 



GET SENSE BYTES 

GET FIRST SENSE WORD 
TEST FOR TRACK OVERFLOW 
BR IF OU 

CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADDRESS 
GO TEST LOOP ERROR 

CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR A'J DRESS 
* 

* »T OPTION SWITCHED 
* 

T25LP LD 2 TSWO-TB FETCH OPTION SWITCHES 

SLA OLPER TEST FOR SW OLPER 

BN T2505 BRANCH IF SW OLPER IS ON 

* ERASE LAST TWO RECORDS 

T2S07 LD TfeSRO+2 GET LAST RFC NUMBER 

S 2 H0100-TB DECREMENT BY ONE 

T.M>R0*2 » 



STO 

* 

T2508 BSI 
DC 

* 

LD 
SLA 
bNN 
* 

BSI 

DC 

DC 



2 SIO-TB 
T2 5ER 



CALL SIO ROUTINE 
CCW ADDRESS 



2 SCSX0F1-TB GET UNIT STATUS 
UNCHK 
T2509 

2 EROUT-TB 
/0103 
/2502 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADDRESS 



TEST OPTION SWITCHES 



13D6 42F4 



LD 
SLA 
BN 
MDX 

* 

T2509 LD 
STO 

# 

T2510 bSI 



2 TSWO-TB 
OLPER 
T2508 
T2SEN 

? K100-TB 
2 LPCNT-TB 

2 SIO-TB 



FETCH OPTION SWITCHES 
TEST FOR SW OLPER 
BRANCH IF SW OLPER IS I) 
EH) ROUT INE 

SET LOOP COUNT=100 
* 

CALL SIO ROUTINE 



PART NO. 2279471 
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81 134020 
81 1 34030 
81 134040 
811340 50 
81 1340 60 
811 34070 
81 134080 
81134090 
B1134100 
81 1 341 10 
81 134120 
81134130 
81 134 140 
811 34 ISO 
81 1 34 160 
811 34 1 70 
81134180 
81 1 34190 
81 134200 
811 34210 
81 134220 
811 34230 
81134240 
811 34250 
81 134 2 60 
81 1 34 2 70 
8 1 13428U 
81134290 
81 134300 
01134310 
81 1 34320 
8 1 1 34330 
81 134340 
61134350 
81 134 360 
8 1 1 34370 
81 134380 
8 11 34390 
81 134400 
81 1 34410 
81 13442 
8 1 134 4 30 
81 1 34 44 
Bl 1 34450 
61 1344 60 
811 34470 
81 1344B0 
81134490 
Oil 34 50 
81134 510 
81 134 52 
8 11 34530 
81 134 540 
81134550 
81 1 J4L60 
81134570 
81 1 34580 
8 1 1 34590 
81 1 34 600 
811 34 610 
811 346.' 
i 8 1134630 

81 134640 
81134 650 
81 1 34 66 
811 34670 
81 134680 
811 34690 



DATE 
EC NO. 



14NOV69 30JAN70 15SEP71 

431319 431319A 431328 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
284 1 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 

13D7 1 142E DC 

13D6 42EE BSI 

1309 C225 LD 

13DA F29B EOR 

13DB 1 4C18 13E9 BZ 

* 

13DD C05B LD 

13DE 42FD BSI 

13DF O 42FA BSI 

13E0 O D06F STO 

13E1 C060 LD 

13E2 42FD BSI 

13E3 42FA BSI 

13E4 D079 STO 



PROG ID 081 1-A 

PAGE 26 



T2SRD 
GETSN-TB 

SNWOO-TB 
K6-TB 
T251 1 

T25R0+2 
TCVHD -TB 
TCVBE-TB 
T25M1+12 
T2 5SV+2 
TCVHD-T6 
TCVBE-TB 
T2SM1+26 



CCW ADDRESS 
GO GET SENSE BYTES 

GET FIRST SENSE WORD 

BR IF OK 

GET LAST HA 
GO CONVT TO DEC 
GO CNVT TO 1443 CODE 

GET LAST REC NO 



13E5 42E.S 
13E6 01 OB 
13c 7 1 1444 
13E8 7005 
13E9 1 74FF OUSB 
13EB 70EA 

13EC 42F4 
- 13ED 1 089A 



13EE 42F.6 

13EF C2HC 

13F0 1 4C.18 1460 

13F2 42DF 

13E3 0007 

12FA 0009 

14 03 FFFF 



r% 



DATE 
EC NO. 



T261 1 



BSI 2 CR0UT-T8 

DC /010B 

DC T25M1 

MDX T25EN 

MDX L LPCNT.-l 

MDX T2510 
DO RECAL TO RESET 

BSI 2 SIO-TB 

DC RECAL 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADDRESS 
END ROUTINE 



•NO REC FOUND ' 
CALL S 10 ROUl INE 
CCW ADDRESS 



* 

» 
T25FN 



TTL25 

* 



GO TO NEXT ROUTINE IN SEOUENCE 



BSI 
LD 
BZ 
BSI 

PRNT 

PRNT 
DC 



2 FREDV-TB 
2 TRTNN-TH 

T2601 
2 CNTRL-TB 



FREE CHANNEL 
GET RTN SWS 

CO TO NEXT RTN IN SI Q 
GO TO CONTROL RTN 



. SECT 2.RT 5- 



. FALSE ADOREF' 
/FFFF 



MARK. 







* 


FORt 






* 




14 04 


0001 


T25F0 


DC 


14 05 


4 1 F 




DC 


14 06 


1 OBbC 


* 

* 


DC 


14 07 


0004 


T2 5F1 


DC 


1408 


4 039 




DC 


1409 


1 1437 


* 
* 


DC 


140A 


0000 




DC 


14 OB 


000 8 




DC 


140C 


I 1407 


* 
* 


DC 


140D 


0008 




DC 


14 0E 


C015 




DC 


14 OF 


1 1437 


* 
* 


DC 


1410 


003B 




DC 


1411 


40 15 




DC 


1412 


1 0A22 


* 


DC 


14 13 


0008 




DC 


1414 


C01D 




DC 



CONSTANTS AND DATA 



FORMAT RO AND Rl 



1 BYTE COUNT 

FLCCH02S6 + SF 111" FL*GS AND OP CODE 

CO ADDRESS 



4 BYTE COUNT 

FLCCH*2G6 + SRC.HA FLAGS AND OP CODE 

T2SR0 ADDRESS 



O IjYTE COUNT 

0*256+OPT1C FLAGS AlC OP 
T25F1 ADDRESS 



CODE 



8 BYTE COUNT 

/C0*256+WPR0 FLAGS AND OP CODE 
T25R0 AtORfc'SS 



5 9 BYTE COUNT 

FLCCH*2S6+WRR0 FLAGS AND OP CODE 
WAREA ADDRESS 



8 BYTE COUNT 

/C0*256+WRCKD FLAGS AND OP CODE 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
43132 8 



PAGE 



8 1134-700 
811 34-T10 
8 1134 720 
81 134730 
811 34740 
81 134 750 
8113'. 760 
81 134 770 
811 34760 
81 134790 
81134800 
8 I 1 34 8 1 O 
8 1134820 
61 1 34 630 
6 1 134 840 
81 a 34 650 
8 1 1 34 66 
81 S 3*«70 
815 34BfO 
61 134 890 
8 1 » 34900 
81 1 349 1 
8*1 34920 
81 f .»49 30 
SB 34940 
81 1 3495? 
81* 30960 
81 1349 70 
81 i 34960 
61 134 990 
8 1 135000 
815 350 1 
8 1 5 3502O 
8 1 1 350 30 
811 35040 
81135050 
811 350 60 
61 1350 70 
8 tl 3 50 60 
81 i 35090 
Bit 351 00 
8» 1 351 10 
8111 35120 
81 1351 36 
8 11 35) 40 
81 I 3 M 50 
6 1 1 351 60 
81 I 35170 
8 11 351 60 
81135190 
811 35200 
8 1 1 352 1 O 
8S13S220 
8* 1 352 30 
651 35240 
81 135250 
8 1135260 
61 1 35270 
81 1 352 60 
Bl 1 352 90 
81 1 35300 
61 1 35310 
81 13532 
6 1 135330 
611 35340 
Rl 135350 
« 11 35360 
ftl 1 35370 



PROG 
PACE 



26A 



081 1-A 
26A 



o 



I 






OOOOOOOOOOOOODOO 
^^ 1BMtWunT.EN7TOCE DIjWnUSTICWrOGRATP'TOR T«T lBOO^TSTEK ^ ^^ ^^ PW?T NO~ 794^ 



2841 DIAGNOSTIC - PHASE A 



leOv DIAGNOSTIC MAINTENANCE PROGRAM 



I 'sl 5 1 1 43B 



1116 003B 
1417 O01D 
1410 1 0A22 



1419 0005 
141A 0031 
1410 1 1437 



141C 0000 

lftio o. oooa 

141E 1 1419 



141F 0000 
14 20 CO ID 
1421 1 143B 



1422 0035 

1423 001D 

1424 1 0A22 



14 25 OOOS 

1426 4031 

1427 I 1437 



1428 0000 

1429 0006 
142A 1 1425 



142H oooe 
14 2C 20.1 
1420 1 1 43B 



142E 0005 
14 2F 4S1A 
1430 1 09BC 



1431 0008 

1432 4012 

1433 1 1440 



1434 0000 

1435 0006 

1436 1 1431 



1437 0000 

1438 0000 

1439 003b 
143A 003B 

143B 0000 

143C 0000 

1430 01 3B 



DC 



DC 
DC 
DC 



T2SF2 DC 
DC 

DC 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 

* 

T2SER DC 
DC 
DC 



DC 
if 



DC 
DC 
DC 



T2SW) DC 
DC 
DC 



T25R5 



DC 
DC 
DC 



DC 
DC 
DC 



T25RX 



ADDRESS 



59 BYTE COUNT 

0*25(+WRCKD FLAGS AND OP CODE 
WAREA ADDRESS 



5 BYTE COUNT 

FLCCH*256+SRC1D FLAGS AND OP CODE 
T25R0 ADDRESS 



BYTE COUNT 

0*256+OPTIC FLAGS AND OP CODE 
T25F2 ADDRESS 



B BYTE COUNT 

/C0*256*WRCKD FLAGS AM) OP CODE 
T2SRX ADDRESS 



59 BYTE COUNT 

0*256+ WRCKD FLAGS M) OP CODE 

WAREA ADDRESS 



3 BYTE COUNT 

FLCCH*256+SRCI0 FLAGS AM) OP CODE 
T2 5R0 ADDRESS 



BYTE COUNT 

0*256+OPTIC FLAGS Alt) OP CODE 
T2 5ER ADDRESS 



6 ^YTE COUNT 

FLSL?*256+ERASE FLAGS AND OP CODE 
T25RX ADDRESS 



5 BYTE COUNT 

/4B*256+R0HA FLAG?, AM) OP CODE 
RARE A ADDRESS 



8 BYTE COUNT 

FLCCH*256+R0CNT FLAGS AND OP CODE 
T25SV ADDRESS 



BYTE COUNT 

0*2S6+OPTIC FLAGS AID OP CODE 
T2SR5 ADDRESS 



T2 5&0 



* 
T25RX 



record 

DC 

DC 

DC 

DC 

RECORD 

DC 

DC 

DC 



0- 






if- 






G*TE 14N0V69 

EC NO. 431319 



30JAN70 
431319A 



15SEP71 
431326 



COUNT AREA 

*-* 

*-* 

/003B 

/003B 
X COUNT AREA 

*-* 

*-* 

/013B 



CYL NO GOES HERE 
HEAD NO GOES HERE 
REC NO. = 00 



CYL NO. GOES HERE 
HEAD NO GOES HERE 
REC NO. = 01 
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bl 135380 
811 35390 
81 135400 
611 354 10 
81 1 35420 
81135430 
81 135440 
811 35450 
81 135460 
81135470 
81 1 35480 
811 .•'54 90 
81 13550 
81 1 35510 
81 135520 
811 35530 
81 135540 
8 1 1 3 5550 
81 1 35560 
611 35570 
81 I 35580 
8 11 3 5590 
81 1 35600 
81 1 35610 
81 I 3562 
8 11 35630 
81 1 3'>64 
81135650 
81 135660 
811 35670 
81 1 3S6B0 
811 35690 
81 135700 
81135710 
61 1 35720 
8 1 1 35730 
81 13574 
81135750 
81 135760 
811 35770 
8 1 135700 
8 1135790 
Bl 1 35800 
8 1135810 
8! 13582 
8 1 1 35830 
81 1 3584 
81135850 
81 135860 
81135870 
81 1 35880 
811 35890 
01 1 35900 
61135910 
81 '.35920 
Oil 35930 
61 135940 
81 1 35950 
81 1 35960 
81135970 
81135980 
61135990 
81 136000 
81136010 
8 1 1 360 2 
81 1 36030 
. 81136040 
811 36050 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



142E 





003B 


* 
T25SV 


DC 


1440 




0004 


BSS 


1444 




0013 


T25M1 


PRNT 


1451 





OOFF 




DC 


1452 




00 13 




PRNT 


145F 





FFFF 




DC 



1460 42DF 



/003E, 



. 2503 LAST RCD READ IS- XX. 

/OOFF 

. LAST RCD WRITTEN IS- XX. 

-1 

************ *********** >,.******•>****** ************** 

* * 

******** ******************:,'• ******** **************** 
* 

* SECTION EM) 

* 

T2601 BS1 2 CNTRL-TB GO TO CONTROL KIN 

*************************************************** 

* * 
********************* ^i**** ************** y^ ********** 














* 
* 
T30PR 


SECTION 


PREFACE 




1461 





0003 




DC 




/0003 


SECTION NUMBER 


14 62 





0003 




* 
T30NT 


DC 




3 




1463 





C2BC 




LD 


2 


TRTNN-TP 


SW FNC 1 Bl rS 12-15 


14 64 


1 


4C18 


146B 




UZ 




T3101 


BR 1(= PUN ALL RTNS 


14 66 





90FB 






S 




T30PH+1 


TEST FOR VALTD 


14 67 


1 


4C30 


0B21 




HP 




TCNER 


BR IF INVALID RTN N 


14 69 





OOF 8 






A 




T3 0PR+1 


RESTORE RTN NUMBER 


14 6A 





7 (00 






MD X 




T 3 1 1 


60 TO F IRST RTN 



-■X. 
•«•» 












Si***:****.****************************************** 

* * 

*************************************************** 

* 

* 

*******************************<<**** ******** ****** 



* 

* 

* 

* 

****« 

* 

* 

* 

* 

* 






r»»k 



ROUTINE 1 TEST CONTROL UNIT BUSY, 

CONTROL UNIT END, CHANNEL 
EM) , AND DEVICE END 

t *************************** »^*»* ************ 



THIS ROUTINE FORCES THE SETTING OF STATUS 
MODIFIED, CONTROL UNIT EM), BUSY, CHANNEL 
END, Alt) DEVICE END BITS. THEY ARE SET BY 
PERFORMING A WRITE HOME ADDRESS WITH COM- 
MAND BIT OFF, THEN ADDRESSING THE SAME FILE 
WITH A SEEK OPERATION. AS SOON AS H(;ME AD- 
DRESS IS WRITTEN, AN INTERRUPT WILL BE 
INITIATED AM) THE CHANNEL STATUS WORD 
SHOULD INDICATE CHANNEL EM) AM) DEVICE 
tW, A7 THIS TIME THE SEEK IS ATTEMPTED 
ON THE SAME FILE AND THE STATUS MODIFIER 
AM) BUSY BITS TURNED ON IN THE CHANNEL 
STATUS WORD. THE CHANNEL IS THEN ENABLED, 
AM) THE PROGRAM WAITS FOR CONTROL UNIT END 
INTERRUPT . 



v3 



.•*>»,. 



* 
* 
« 
* 

* 
* 
* 
* 
* 
* 
* 
* 
************************ *******.**»*»******'«******** 

* » 

♦ft************************************************* 
*************************************************** 

* * 
*************************************************** 



PAGE 



811360f 
61 1360 70 
811 36080 
61 1 36090 
81 1 36100 
81 1361 10 
611 36120 
81 1361 30 
811 36140 
81 I 36150 
81136160 
61 136170 
611 361 80 
81 1 36190 
81 1 36200 
8 1 1 362 1 
81130220 
81 1 362 30 
61136240 
81 1362 50 
81 1 36260 
C 1 1 362 7 
b 1136280 
Bl 136290 
811 36300 
81 1 3631 
811 36320 
8 1 1 36330 
81136340 
81 136350 
811 36360 
81 136370 
8 1 1 36380 
61 1 36390 
81 1 36400 
61 136410 
61136420 
8 1 1 364 30 
611 36440 
Bl 1 36450 
811 36460 
81 136470 
81 ! 364 80 
81 1 364 90 
811 36500 
81 136510 
8 I 1 36520 
81 1 36530 
811 3 654 
61 1 36550 
811 36560 
81 136570 
8 11 36580 
81 1 36590 
8 1 I 36600 
81 1 36610 
61136620 
81 1 36630 
61136640 
81 136650 
8! 1 36660 
61136670 
611 36680 
61 1 36690 
81136700 
61 1 36710 
81136720 
61136730 



PROG ID 


08) 1-A 


** DATE 


14N0V69 


30JAN70 


1GSEP71 


PAGE 


27 


EC NO. 




431319 


431319A 


431328 



PROG ID 
PAGE 



o 
o 



081 1-A 
27A 



oeoooooooooooooooooooooooooooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2841 DIAGNOSTIC - PHASE A 
lf-00 DIAGNOSTIC MA I NTENANCE 



14 6B 

146B 1 7401 081S 

1 4 60 1 4C18 1.472 

146F 929'* 

14 70 1 4C20 14CE 

1472 C283 

1473 100A 
147-, 1 4C10 1478 

1476 4209 

1477 1 1491 

1478 42tB 



— DATE 

EC NO. 



W 



r- - 



R0GRAM 






T3101 EOU 




* 


fOX 


L 


TRIO .1 


BZ 




T3102 


S 


2 


Kl- vjj 


bNZ 




T3201 


* 






T3102 LD 


2 


TSWO-T' 


SLA 




OTTLE 


BNN 




T3103 


BS1 


r. 


TLGMS-1 


DC 




TTL31 


* 






T3103 BSI 


2 


GETDV-1 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
TLGMS-TB GO TO PRINT ROUTINE 
MESSAGE ADDRESS 

GET CHANNEL FOR RTN 

**********£ * **************** **************** ******* 

» * 

***** *v************** ********* ***************** * ** * 

FETCH SIO SW VALUE 
PLACE IN SIO SWITCH 

CALL SIO ROUTINE 
CCW ADDRESS 
CALL TiO ROUTINE 
BRANCH IF CSW NOT STORED 
Tfa FETCH UNIT STATUS 
CLEAR UNIT ADD NESS 
RESTORE POSITION 
TEST WITH MASK 
BRANCH IF YES 

CALL ERROR OUT ROUT INF 
FLAG BITS 
MSG NO OR ADDRESS 



1479 





C2B? 




T3104 


LD 


2 


H8000-TB 


147A 





020 1 




* 


STO 


2 


SIOSW-TB 


1 4 7B 





42F4 




BSI 


2 


SIO-TB 


14 7C 


1 


1 *6B 






DC 




T31 Wl 


1470 





42 6 




T31AA 


BSI 


2 


TIOSN-TB 


14 7k 


I 


4C10 


14 71) 




BNN 




T31 AA 


1480 





C2 3L 






LD 


2 


SCSXO+1-' 


1481 





10 08 






SLA 




8 


14b 2 





1808 






SRA 




8 


14 83 


1 


1- 4 00 


1409 




ton 


L 


T31M0 


1485 


1 


4C16 


14A4 


* 


BZ 




T31E1 


14 87 





42t 5 




BSI 


2 


EROUT-TB 


1488 





8 127 






DC 




/81 27 


1489 





310 1 






DC 




/3101 


14 8A 





-420C 




T31AC 


BSI 


2 


TLPER-TB 


148B 


1 


1479 






DC 




T3104 



3 TO NEXT ROUT IN' IN SEOUENCE 



14 8C O 4 2E8 

146D C2BC 

148E 1 4C18 14CE 

1490 •■2DF 

1491 0007 

14 98 001 1 

14A3 FFFF 

14A4 1 C400 14C7 

14A6 D201 

14A7 42F4 

14A8 1 14L4 

14A9 4206 



T31EN BSI 
LD 



TTL31 

* 



131E1 



14AA 
14A0 
14 AC 



14B1 

14B2 O 

1403 

14B4 



C246 
1008 

i»oe 

14AD 1 f'.0li 14UA 
14AF 1 4C18 I4b5 

42H5 

8127 

3102 

7 0O5 



14B5 4206 
14B6 1 4C18 1 46C 
141)8 70FC 



* 

1 3 1 5 



bz 
BSI 

PR NT 

PR NT 
DC 

LD 
STO 

bSI 
DC 

BSI 

LD 

SLA 

SRA 

EOR 

BZ 

BSI 

DC 

DC 

►OX 

BSI 

BZ 

MDX 



FREDV-TB FREE CHANNEL 

TRTNN-TB GET RTN SWS 

T3201 60 TO NEXT RTN IN SEO 

CNTRL-TB GO TO CONTROL RTN 

. SECT 3«RT 1- . 



.CHECK CNTRL 
/FFFF 



UNIT BUSY. 



L T31MK 
2 SIOSW-TB 



2 SIO-TB 
T31W2 



SET SIOSW TO EARLY RTN 
AIS> RETURN ON ERROR 



CALL SIO ROUTINE 
CCW ADDRESS 



2 TIOSN-TB CALL TIO ROUTING 
2 SCSX8+1-TB FETCH UNIT STATUS 

6 CLEAR UNIT ADDRESS 

8 RESTORE POSITION 

L T311M TEST WITH MASK 

T310S BRANCH IF BUSY 

2 EROUT-TB CALL ERROR OUT ROUTINE 

/8127 FLAG BITS 

/3102 MSG NO OR ADtSESS 

T31AC CONTINUE 

2 TIOSN-TB CALL TIO ROUTINE 

T31EN BRANCH IF COMPLETE 

T310S LOOP 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 
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81 136740 
811 36750 
81 136760 
81 I 36770 
81 136700 
81 1 36790 
81 136800 
811 36810 
81 13602 
81136830 
81 136840 
81136850 
81 1 36860 
81 1 36870 
81 136880 
81 1 36890 
81136900 
811 36910 
81 1 36920 
81136930 
81 136940 
81 1 36950 
81136960 
dll 36970 
81 1 36980 
811 36990 
81 137000 
811 37010 
81 137020 
8 1 1 37030 
81 137040 
811 37050 
81 137060 
81137070 
81 137080 
81 137090 
81 137100 
8 11371 !0 
8,1 137120 
8*1 1371 30 
81 137140 
811 37150 
ei 137160 
81137170 
81 1371 80 
Oil 37190 
81 1 372 
81137210 
81 137220 
81137230 
01 137240 
81137250 
81 137260 
81137270 
81 13i2H0 
81137290 
81 137300 
811 37310 
81 137320 
8 1 1 37330 
81 137340 
811 37350 
81137360 
01137370 
81 137380 
81137390 
81 137400 
81137410 
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08 U - A 
28 









""*», 
■>.»*■" 



W 



■ * 

3 
O 

O 



14B9 OOOC 
14BA 0050 



14BB 0001 
14BC 401F 
14BD 1 14C7 



14BE 0006 
14BF 4007 
14C0 1 14C8 



14C1 0005 
14C2 0019 
14C3 1 14CB 



14C4 C 0006 
14C5 0007 
14C6 1 14C8 



14C7 COOO 

14C8 0000 

14C9 <^)0S 

14CA 0001 

14CB COOO 

14CC 0500 

14CD O 0100 



T31M0 DC 

T31 1 M CC 

* 

* 

T31W1 DC 
DC 
DC 



/OOOC 
/0050 



CH END-OVC END 
CUB 



DC 
DC 

DC 



DATE 
EC NO. 



DC 
DC 
DC 

* 
* 

T31W2 DC 
DC 
DC 



1 BYTE COUNT 

/40*256+SFILM FLAGS AND OP CODE 
T31MK ADDRESS 



6 BYTE COUNT 

/40»2S6+SEEKC FLAGS AND OP CODE 
T31SK ADDRESS 



S BYTE COUNT 

/G0*256+WRHA FLAGS AND OP CODE 
T31HA ADDRESS 



6 BYTE COUNT 

/00*256+SEEKC FLAGS AND OP CODE 



T31SK 



/COOO 

/OOOO 
/OOOS 
/0001 

/OOOO 

/osoo 

/0100 



WRITE HA 

* 



ADDRESS 
* 
* 

T31MK DC /COOO SET FILE MK 
* 

T31SK DC /OOOO SEEK 
DC 
CC 
* 

T31HA DC 
DC 
DC 
* 
* 
* 

************************ ** ***** *************** * ** 
* 

* ROUTINE 2-- TEST UNIT EXCEPTION 

* 

**************»*»**************>►*<*************** 

* 

* 

* THIS ROUTINE FORCES UNIT EXCEPTION. IT IS 

* SET BY WRITING A COUNT -K EY-O ATA WITH KEY 

* LENGTH EOUAu DATA LENGTH ("DUAL ZERO. AND 
» THEN ATTEMPTING TO READ THE COUNT-Kf; Y-DAT A . 
* 

************************************** **j^********** 

* * 
***************************************** ********** 
******************************************* ******** 

* * 
*************************************************** 

TEST ENTRY POINT 

BUMP RTN 10 

BR IF TEST NUMBER ZERO 

DECREMENT BY f'NE 

BR IF NOT THIS TEST 

GET 'OPT ION SWS 
PRINT TITLES 

BR IF NOT SET 
O TO PRINT ROUTINE 
MESSAGE ADDRESS 



14CE 









T3201 


EOU 




* 


14CE 


I 


7401 


0815 




MDX 


L 


TRIO .1 


14D0 


1 


4C18 


14D5 




BZ 




T3202 


14D2 





9297 






S 


2 


K1-1B 


14D3 


1 


4C20 


153F 


$ 


BNZ 




T3301 


1405 





C283 




T3202 


LD 


2 


TSWO-TB 


14D6 





100A 






SLA 




OTTLE 


14 D' 


1 


4C10 


14DB 




BNN 




T3203 


14D9 





4209 






BSI 


2 


TLGMS-T 


14DA 


1 


1503 




* 


DC 




TTL32 



PART NO. 2279471 
PAGE 28A 



811 37420 
81 137430 
81 13744 
8 1 137450 
611 37460 
81 : 37470 
81 1 37480 
81 137490 
6 1 1 37500 
81 137510 
811 37520 
81 137530 
811 3754 
81 1 3 7550 
81137560 
81 137570 
81137580 
8 1 137590 
811 37600 
81 137610 
81137620 
81 1 37630 
8 1 1 37640 
81 1 37650 
8 1 13 7660 
81137670 
8 11 37680 
81 1 37690 
Bit 37700 
81 1 377 10 
81 1 37720 
81 137730 
8 1 137740 
81 1 37750 
81 1 37760 
81137770 
811:17 780 
81 137790 
8 11 37800 
81 1 37810 
8 1 1 37820 
81 1 37830 
811 37840 
81 1 37850 
81! 37 860 
81 1 37 87 
81 1 37880 
» 81137M90 
8 1 1 37900 
81 1 379 10 

* 81137920 

* 81 I 379 30 

* 811 3794 O 

* 8 1 I 37950 

* 81137960 

61 1 379 7 
81137980 
81 137990 
8 11 38000 
6 1 1 380 1 
8 1 130020 
81 1 3H0 30 
8 11 38040 
81 13B050 
8 1 1 38060 

61 1380 70 
81 138080 
81 138090 



14H0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 
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■IAGN0ST 1C MAINTENANCE PROGRAM 



i r.tid 



140B 42EB 



T3203 BSI 2 GETDV-TB GET CHANNEL FOR RTN 

* * 



W DATE 

EC NO. 



V«*' 



14DC 42F4 


T32AA 


BSI 


2 S10-TB 


CALL SIO ROUTINE 


HDD 1 lb 18 


» 


DC 


T32WR 


CCW ADDRESS 


14DE 420F 


BSI 


2 TLPST-TB 


TEST LOOP SIO 


14DF 1 14DC 




DC 


T32AA 


LOOP ADDRS 


14E0 C23D 




LD 


2 SCSXO-TB 


GET CHANNEL STATUS 


14EI F2B4 




EOR 


2 H4 0C • -TB 


TEST FOR UNIT STATUS 


14E2 1 4C20 14F1 


* 


fcSNZ 


T32ER 


BRANCH ON ERROR 


14F.4 C23E 


LD 


2 SCSX0+1-TB 


GET UNIT STATUS 


14E5 ioor> 




SuA 


a 


BUMP OUT ADDRESS 


14E6 F02E 




EOR 


T32EX 


TEST FOR UNIT EXCEPT! 


14E7 .1 4C20 14F1 


* 


BNZ 


T32ER 




14E9 C23F 


LD 


2 SCSX0+2-Te 


GET CCW ADDRS REG 


14EA f 048 




feOR 


T32MK 




14EU 1 4C20 14F1 


* 


BNZ 


T32ER 




14E0 C240 


LO 


2 SCSX0+3-TB GET BYTE COUNT REG 


14EE F297 




EOR 


2 Kl-TB 




14EI" ] 4C16 14F4 


* 
T32ER 


BZ 


T32B2 




14F1 42ES 


BSI 


2 EROUT-TB 




14F2 103 




DC 


/0103 




14F3 3201 




DC 


/3201 




14F4 42EE 


T32B2 US I 


2 GETSN-TB 


GET SENSE BYTES 


14FS CA25 




EDO 


2 SNWDS-TB 


* 


14F6 96 IF 




SO 


T32' r X 


TEST FOR 'SHOULD BE' 


14F7 1 4C16 14FE 


* 


UZ 


T32EN 


BR IF OK 


14F9 42E5 


.1 


2 EROUT-TB 




14FA OtOY 




L C 


/0107 




141-0 3202 




DC 


/3202 




14FC 4?'>C 


T32LP BSI 


2 TLPER-TB 




14FD 1 14DC 




DC 


T32AA 





14FE 42H8 

141-F C2KC 

lb 00 1 4C18 153f- 

1502 42DF 

1503 0007 

150A 0010 

1514 FFFF 

1515 0D00 

1516 0000 

1516 0000 

1517 00C8 



1518 0001 

1519 40IF 
lblA 1 08SC 



IblB 0006 



* GO TO NEXT ROUTINE IN SEQUENCE 

* 

2 FREDV-TP. FREE CHANNEL 

2 TRTNN-TB GET RTN 5WS 

T3301 GO TO NEXT RTN IN SEO 

2 CNTRL-TB GO TO CONTROL RTN 
. SECT 3.RT 2- . 



T32EN hi. I 
LO 
BZ 
BSI 

TTL32 PRNT 

* 

PRNT 
DC 

* 

T32EX DC 

* 

BSS 

T32SX DC 
DC 

* 

T32KR DC 
DC 
DC 

* 

* 

DC 



.CHECK UNIT EXCEPTION. 



/FFFF 
/0O00 


/oooo 
/ooca 



1ERMII.AT0R 

* 



EXPECTED SNS 



1 - BYTE COUNT 

/40*2S64SFILM FLAGS AND OP CljDE 
CO ADDRESS 



BYTE COUNT 



14N0V69 30JAN70 15SEP71 

431319 431319A 431328 
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81 1 38100 
811361 10 
81 138120 
8 1 1 381 30 
el 1 381 40 
8 1 1 781 SO 
bl 138160 
81138170 
81 138180 
81138190 
81 1 36200 
8 11 362 10 
Bl 138220 
8 11382 30 
81 138240 
81136250 
81 138260 
81138270 
81 1 3rt2 80 
811 38290 
81 1 38300 
81138310 
81 138320 
C1138330 
81 1 38340 
6 1 138350 
81 1^8360 
811 36370 
81 138380 
81138390 
81 1 38400 
811 384 10 
81 1364 2 
81138430 
81 136440 
6113B4S0 
81 1 36460 
01 138470 
81 138480 
811 384 90 
61 13650 
81138510 
81 1 38520 
0) 1 38530 
81 13B540 
81138550 
81 1 36560 
81 138570 
81 138560 
61138590 
61 13C600 
8 1138610 
81 138620 
81138630 
81138540 
811 36650 
81 138660 
61138670 
81138660 
81 1 38690 
81 138700 
81138710 
61 138720 
61 1 38730 
81 1 38740 
81136750 
81 138760 
811 36770 



PROG ID Wiil-A 

PAGE 29 



PAGE 



; 2841 DIAGNOSTIC - PHASE * 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 





**« 


151C 4007 




DC 


/40*?.56< SEfc'KC FLAGS AND OP CODE 


8 1 1 38"r t'O 


"% 


1S1D 1 153* 


* 


DC 


T32SK ADDRESS 


61 1 38790 
811 38600 


•*& 




* 






81 138810 




IblE 0004 


T32AF 


DC 


4 BYTE COUNT 


81136820 


.-■'"%-. 


15 IF 4039 




DC 


/40V256+SRCHA FLAGS AND OP CODE 


81 138830 


%&? 


1520 1 1535 


* 


DC 


T32AC ADDRESS 


81138840 
61 1 38850 


,*!K. 




* 






81 1 38R60 


w' 


1521 0001 




DC 


1 BYTE COUNT 


81 1 38870 




1522 O008 




DC 


/00*256+0PT IC FLAGS AND OP COL.J 


81 ! 38880 


""X 


1523 1 1S1E 




DC 


T32AF ADDRESS 


81 138890 


\#&' 




* 
* 






81 136900 
8 1 1 389 10 


""■v. 


1524 OOOC 




DC 


12 BYTE COUNT 


81138920 


--*"' 


1525 40 IS 




DC 


/40*256+WRR0 FLAGS AND OP CODE 


Bl 1 389 30 




1526 1 1537 




DC 


132R0 ADDRESS 


8 11 38940 


''"*»., 




» 






81 1 38950 


-~J? 




* 






611 38960 




1527 0008 




DC 


8 BYTE COUNT 


Bl 138970 


j ■■■">. 


1528 401D 




DC 


/4 0*2S6+KRCKD FLAGS AND OP CODE 


811 38960 


1 


1529 1 153B 


* 


DC 


T32R1 ADDRESS 


8 1 138990 
81139000 






V 






6 1 1 3«. 3 1 


! 


152A 0005 


T32AC 


DC 


5 BYTE COUNT 


6 1 1 390 20 




152B 4031 




DC 


/40»256+SRClD FLAGS AND OP CODE 


81 1 39030 


/ '"*. 


1S2C 1 1S37 




DC 


T32R0 ADDRESS 


811 39040 


'.._■'' 




* 






81 1 39050 






* 






611 39060 




152D 0001 




DC 


1 BYTE COUNT 


81 1 39070 


v ■»" 


152E 0038 




DC 


/00*256+OPTIC FLAGS AND OP CODE 


8 1 1 390(<0 


> ', 


152F 1 152A 


* 
* 


DC 


T32AG ADDRESS 


81 1 39090 
811 39100 
81139110 




1530 0008 




DC 


8 BYTE COUNT 


811 39120 


' J 


1531 001E 




DC 


/00«2Sl>+/1E FLAiS AND OP CODE 


81 1 39 130 




1532 1 OVrtC 


* 


DC 


RARE A ADDRESS 


e 1 1 39 1 4 
81 1 39150 


/'" \ 




* 






8 1139160 




1533 1 1533 


T32MK DC 


*-l END OF CHAIN 


811 39 1 i0 






* 






811 391 80 




1534 0000 


T32SK DC 


/OOOO SEEK 


81 1 39190 




1535 000 5 


T32AC DC 


• 00 05 * 


811 39200 


,- 


1536 0001 


* 


DC 


/OOOl * 


8 1 1 39 2 1 
811 39;-?0 


'---*>' 


1537 0005 


T32R0 DC 


/0005 WRITE-SRCH RO 


81 1 39230 




1538 000 1 




DC 


/OOOl * 


611 39240 




1539 0000 




DC 


/OOOO * 


61 1 39 2 50 




153A 0004 


* 


DC 


/0004 » 


8 1 1 39260 
01 1 39270 


' " 


153B 0005 


T32R 


1 DC 


/OOOS WRITE-READ Rl 


81 1 392f!0 


t 


153C 0001 




DC 


/OOOl * 


81 1 39290 




1S3D 0100 




DC 


/0100 * 


81 1 39300 






153E 0000 




DC 


/OOOO * 


8 1 1 39 3 1 




W»' 




* 

* 






8 1 1 39320 
81 1 39 330 




/"GS 




* 






Bl I 39340 




"*=*' 




*****»****«*«**»*»*************»•*********»***»*»» 


81 139350 








* 






811 39360 




^-■St 




* 


ROUTINE — 3-- TEST INVALID COMMANDS 


81 139370 




\^ 




♦ 






811 39380 








»»»»»««»Kitt»tt*»t»tt**»»»*t*»****««»(**l««»t»tt 


81 1393Q0 




S*'?*! 




» 






611 39400 




w 




* 

* 




THIS ROUTINE ATTEMPTS TO EXECUTE ALL I IN- 


81 1 394 10 
81 139420 




.-*•> 




* 




VALID CCW COMMANDS. A GENERATOR PRODUCES 


81 1 394 30 




'<v* 




* 
* 




AN 8-BIT COMMAND AN) A CHECK IS MADE 
AGAINST VALID COMMANDS. IF THE GENERATED 


81 1 39440 
81 1394 50 






DATC 
EC NO. 
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lliCf. DIAOiQSTIC MAINTENANCE program 



* 
* 
* 
* 
* 
* 



153F 

153E 1 7401 0815 

1541 1 4C18 154 6 

154 3 92?7 

1544 1 4C20 16SF 



154 6 





C203 


1 54 7 





100A 


lb'; 8 


1 


4C10 


154 A 





4209 


154U 


I 


15A7 



i5*c o *2lb 



1540 C297 

154E 1 D400 1601= 

1550 r. C290 

1551 D2D2 

1552 4PF4 

1553 1 15CE 

1554 1 6500 1610 
1 550 O 634F 
1557 1 6f 00 160E 



1559 
lbl.A 
1S5C 
1 55E 
1551 
lb6I 



C100 
F 4 00 
4C1B 
7 101 
74f F 
7 01 7 



1601- 

1 '.".'! 



COMMAND IS INVALID t AN ATTEMPT IS MADE TO 
EXECUTE IT AID THE RESULTS ARE CHECKEO. 
THE TRACK tltOER TEST IS RE-FORMATTED AS RE- 
OU I RED . 



1562 1 C400 160E 
lb64 1 ECOO 1SH7 
1566 1 D400 1SE8 



1568 C2B4 

lb69 02D 1 

lbOA 42F4 

150U 1 150E 

156C I C400 160F 

IS6E 42FA 

156F 1 DCOO 1! 



iCC 

1S71 O C23D 
lb 72 F2B4 
1573 1 4C20 1581 



* * 
*************************************************** 
A*************************************** *********** 

* * 
******* *********!! ********************************* 



T3301 EGU 
MDX 

BZ 

s 

BNZ 

* 

T3302 LD 
SLA 
BNN 
HS1 
DC 

* 

T330 3 BSI 



* TEST ENTRY POINT 

L TRID.l — BUMP RTN ID 

T3302 BR IF TEST NUMBER ZERO 

2 Kl-TB DECREMENT BY ONL 

T3401 BR ir NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T3303 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 

TTI.33 MESSAGE ADDRESS 



2 6ETDV-TB GET CHANNEL FOR RTN 

*************** ***********«.*******#********* ****** * 
* * 

*************************************************** 



LD 2 Kl-TB 

STO L T330P 



LD 
STO 



2 KlO-fB 
2 PASSW-TB 



T33AA BS1 2 S10-TB 

i.C 133FR 

* 

T3JA>.' '.OX LI T33TB 

IX) X 3 7 9 

STX L3 T33RT 



jET UP CNTR 



SET UK ERROR COUNTER 



CALL SIO ROUTINE 
CCW ADDRESS 



SET TABLE POINTER 
SET LOOP COUNTER 



T33AC LD 
EOR 
BSC 
MO X 
MDX 
hOX 

* 

* 

* 

LD 
OR 
SIO 

* 

* 

* 

T33AD LD 
STO 
BSI 
DC 

* 

LD 

BSI 

STD 

* 

LD 
E OR 
BNZ 



1 PICK UP TAELE OP 

L T330P COMPARE WITH GENERATED OP 

L T33A6.+- BRANCH IF EOUAL 

1 1 INCR TABLE POINTER 

L T33RT.-1 DEC;; LOOP COUNTER 

T33AC. LOOP IF MORE 

OP COJE GENERATED IS NOT LEGAL 

L T330P GET INVALID OP CODE 

L TJ3IV ST-T IN CCW 

L T33V2+1 SET IN COMMAND STRING 

PERFORM INVALID COMMAND 



2 M4000-TB 
2 SIOSW-TB 
2 SIO-TB 
I33P2 

L T330P 

2 TCVBE-TB 
L T33K2 

2 SCSXO-TB 

2 H4000- TB 

T33ER 



FETCH BIT 1 
PLACF IN SIOSW 
CALL SIO ROUTINE 
CCW ADDRESS 

GET OP CODE 
CALL CONVERT RTN 



GET CHANNEL STATUS 
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81 139460 
81139470 
81 1 394R0 
8 1 1 394 90 
81 1 39500 
81139510 
81 1 39 52 
811 39 530 
81 139 54 
61 1 39550 
81 1 39560 
81139570 
8! 139580 
81139590 
81 1 39600 
81 1 39610 
81 139620 
8 1 1 39610 
81 1 39640 
81 1 39650 
81 139660 
81 I 39670 
8 1 I 39680 
A 1 1 39690 
81 1 39 70 
811 39710 
151 139720 
6 1 I 39 7 30 
81 139 74 
.611 39750 
81 1 39760 
811 39770 
81 1 397B0 
8 1 1 39 790 
81 t 39800 
811 39B1 
81139 02 
811 39t'30 
01 1 39134 
611 39850 
81 1 39860 
811 39870 
81 1 39680 
8 1 1 39890 
81 1 .'990 
8 1 1 399 1 
81 1 3992 
8 1 1 39930 
81 139940 
811 39950 
81 1 39960 
81139970 
81 139980 
1 1 399 90 
81 140O0 
81140010 
81 14002 
81 1 40030 
81 1400 4 
81140050 
81 140060 
81140070 
81 140080 
81140090 
81 140100 
8 114 0110 
81 140120 
81 1 401 30 
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,**-x-.. 



1575 C23E 

1576 1008 
15^7 F2AB 
1578 1 4C20 1581 

157A C23F 
1S7B F074. 
157C 1 4C20 15b! 

157E C240 

157F 1 4C18 1585 

1581 42F5 

1582 103 

1583 3301 

1584 7008 

1565 42EE 

1566 CA25 

1587 9838 

1588 1 4C16 15A2 



158A 





42E5 


158B 





0107 


158C 





3302 


156D 





4209 


158E 


1 


I5C2 


158F 





420C 


1590 


1 


1595 


>591 


1 


74FF 


1593 





7004 


1594 





700D 


1595 





42F4 


1596 


1 


15CE 


1597 





70D 



1596 1 740 1 160F 

159A 1 C400 160F 

159C 1 F400 15B9 

159E 1 4C18 15A2 

IbAO 1 4C00 1552 



LD 
SLA 
EOR 
BNZ 

* 

LD 

EOR 

BNZ 

* 

LD 

ez 

* 

T33ER BSI 
DC 
DC 
Id X 

* 

T33B2 BSI 
!.DD 
SD 
BZ 

* 

BSI 

DC 

DC 

* 

T33MS BSI 
DC 

* 

BSI 
DC. 

* 

MD X 
MO X 
MDX 

T33AX BSI 
DC 
MDX 
* 

* 
* 

133 AG MO X 
LD 

Eor- 

BSC 



2 SCSXO+l-TB GET UNIT STATUS 

8 BUMP OUT ADDRS 

2 H0200-TB TEST FOR UNIT CHECK 
T33ER 

2 SCSX0+2-TB GET CCW ADDRS REG 
T33MK 
T33ER 

2 SCSX0+3-1B GET BYTE COUNT REG 
T33B2 

2 ER0UT-TB 
/O) 03 
/3301 
133MS 



2 GETSN-TB 
2 SNWU5-TB 

T33SX 

T33EN 

2 EROUT-TB 
/Ol 07 
/3302 

2 TLGMS-TB 
T33M1 

2 TLPER-TB 
T33AX 

L PASSW.-l 
T33AG 
T33EN 
2 SIO-TB 
T33I-R 
T33AD 



GET SENSE BYTES 



BUMP ERROR COUNTER 
CONINU'i IF NOT 10 ll-RS 

CALL SIO ROUTINE 
CCW ADD MESS 
REPEAT INVALID COMMAND 



CHECK FOR ROUTINE COMPLETE 

L T330P.+1 INCR INv'LD OP 

L T33 0P GET C;R 

L 133CM CK FOR COMPLETE 

L T33EN.+- BRANCH II COMPLETE 



BSC L T33AA 



CONT INUE IHIU1 1NL 



60 TO NEXT ROUTINE IN SEOUENCE 



1SA2 





42E8 


T33EN 


BSI 


2 


FREDV-TB 


15A3 





C2BC 




LD 


2 


TRTNN-TB 


1SA4 


1 


4C18 165F 




B2 




T3401 


15A6 





420 1 




BSI 


2 


CNTRL-TB 


15A7 




0007 


TTL33 

* 


PR NT 




. SECT 3 


I5AF. 




0008 


PR NT 




.TEST IN 


15B6 





FFFF 


* 
T33IV 

* 


DC 




/FFFF 


I5B7 





6000 


DC 




/6000 


15B8 


1 


15EA 


T330A 

* 

T33CM 

* 

T33RD 


DC 




T33N0 


15B9 





100 


DC 




/Ol 00 


1S0A 





0000 


DC 




*-* 








* 









FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SEG 
GO TO CON 'I ROL RTN 



TERMINATOR 

INVALID CMND FILL IN 
EXP CSV/ ADRS 
CK COMPLETE CONSTANT 
READ AREA 



PAGE 



8 1 1401 40 
81 140150 
8 1140 1 60 
81 140170 
811 40180 
81 140190 
81 140200 
81 140210 
81140220 
81 140230 
81 140240 
ei 140250 
811 40260 
81 140270 
81 1 40280 
61 5 40290 
61 1 40300 
81 14 310 
61140320 
81 1 40330 
6! 14 034 
81 1 4 350 
81140360 
81 140370 
81 ! 4 380 
Ol 140390 
81 I 40400 
01 14 4 10 
ei 1 40420 
81 140 4 30 
81 1 4O440 
81 140450 
81 1 4 04 60 
81 140470 
81 I 40460 
61 140490 
bl 1 4 ObOC 
81 1 40510 
8 1 140520 
61 1 40530 
8 1140540 
8! 140S50 
fi 1 140560 
81 140570 
61140500 
8 1 14 590 
b 11 4 0600 
81 140610 
8 1 I 4 0620 
81 140630 
81 1 40640 
81 140 650 
8! I 40660 
61 140670 
61140680 
ei 140690 
81 I407C0 
6 1 1407 1 
811 40720 
61 140730 
8 1 1 40740 
81 140750 
81 140760 
81 140770 
81 J40780 
81 140790 
8 1 I 40800 
81 140810 



3 0A 



DATE 
EC NO. 



14N0V69 30JAN70 15SEP71 
4313'.9 431319A 431328 



PROG ID 0811- A 

PAGE 30 



xrt^ DATE 

EC NO. 



14N0V69 30JAN70 1GSEP71 
431319 431319A 431328 



PROG 10 
PAGE 



0811-A 
3 0A 



y 



oooooooooooooooooooooooooooooooooc 

.«« UA.MTtKiAKTP n . . r.Mn Q T . r Donr.D. U C n D rue ,onn cvctcu oaut mo. ^ 7 o*7, I "" IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM TaDT NO. 22794TT ^ ^*" W 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE leOO SYSTEM 

2841 DIAGNOSTIC - PHASE A 

1600 DIAGNOSTIC MAINTENANCE PROGRAM 



1506 4000 

15BC 0002 

15BD 1 15EA 

15BE 0001 

15C0 0000 

15C0 8 000 
15C1 00C8' 

15C2 0000 

1SC2 0010 

15CC •• 0000 

15CD O 0000 

lbC'E FFFF 



15CF O 0001 
lbHO ft 40 IF 
15D1 1 085C 



15D2 0006 
15D3 4007 
1604 1 15F1 



ISD6 0005 
1506 4019 
lbD7 1 15F4 



16D8 OOOE 
lbr<9 40)5 
IbDfc 1 15F7 



15DB 00 IF 
lbDC 00 SO 
15DO 1 15FE 



lbDE 0001 
15DF 401F 
15E0 1 065C 



J5EI O 0005 
15E2 4 031 
15E3 1 IbFE 



15E4 000 1 
16(6 0008 
15E6 1 15E1 



1SE7 ft 0001 
15E6 6000 
1SE9 1 15BA 



lbl.A O 001 
I5I..W 00 OH 
15EG 1 16E7 



ISED O 000 1 



T33CX DC 

DC 

DC 

DC 

* 

BSS 
T33SX DC 
DC 
» 

BSS 
T33M1 PRNT 
T33M2 DC 
DC 
DC 
* 
* 

T33FR DC 
DC 



DC 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 

* 

:>c. 

DC 

» 
* 
* 

T33R? DC 
DC 

DC 



T33R3 DC 
DC 

DC 



DC 
DC 
DC 



T33V2 DC 
DC 
DC 

* 

* 

T33N0 DC 
DC 
DC 



DC 



/4O00 
/0002 
T33N0 
/0001 



/8000 

/00C8 



EXPECTED CSV,' 

* 



EXPECTED SNS 



.1NVLD OP-CMD CODE- . 
*-* INVALID C(DF 

*-* * 

/FFFF TERMINATOR 



1 BYTE COUNT 

/40*256+SFlLV FLAGS AND OP CODE 
CO ADDRESS 



6 BYTE COUNT 

/40*256+SI;E'T FLAGS AND OP CODE 
T33SK ADO HESS 



5 BYTE COUNT 

/40*256+WRHA FLAGS AND OP CODE 
T33HA ADDRESS 



14 BYTE COUNT 

/40*266+WRRO FLAGS AND OP CODE 
T33R0 ADDRESS 



31 BYTE COUNT 

/00*266+WRCKD FLAGS AND OP CODE 
T33R1 ADDRESS 



1 BYTE COUNT 

/4U*256+SFILM FLAGS AW OP CODE 
CO ADDRESS 



5 BYTE COUNT 

/40»266+SRCID FLAGS AND OP CODE 
T33R1 ADDRESS 



1 BYTE COUNT 

/O0*256+OPT IC FLAGS AND OP CODE 
T33R3 ADDRESS 



1 BYTE COUNT 

/60*266+/00 FLAGS AM) OP CODE 
T33RD ADDRESS 



1 BYTE COUNT 

0*266+0°TIC FLAGS AND OP CODE 
T33V2 ADDRESS 



BYTE COUNT 



PART NO. 2,279471 
PAGE 31 



81 140820 
81140830 
81 140840 
8 11 40850 
81 140060 
81140870 
81 140 880 
811 40890 
81 140900 
81140910 
81 140920 
81140930 
81 140940 
81140950 
81140960 
81140970 
81 1409H0 
61 140990 
81 141000 
81141010 
81 141020 
81141030 
81 141040 
8114) 050 
81 14 1060 
811 41070 
81 14 10(10 
8114 1090 
81 141 100 
811411)0 
8114 1120 
8 1 1 4 1 1 30 
8114 114 
81141 150 
81 141 160 
81141170 
81 1411 80 
81 1 4 1 ) 90 
81 141200 
811 41210 
81 141220 
8114 12 30 
81 141240 
81 141250 
81 141260 
8 114 12 7 
81 141280 
C1141290 
81 141 300 
B1141 310 
81 141320 
8114 1330 
81 141340 
8114) 350 
81 141360 
Bl 141 370 
81 141380 
81141 390 
81 141400 
81141410 
81 141420 
81141430 
81141440 
811 41450 
81 141460 
81141470 
81 1414H0 
8 11 41490 



31 A 



284 1 DIAGNOSTIC - PHASE A 

1800 DIAGNOSTIC MAINTENANCE PROGRAM 



15E& 


2003 


IbEF 1 


15F0 


15F0 1 


15EA 


15F1 


0000 


15F2 


0005 


15F3 


0001 


15F4 


0000 


15F5 


0500 


lbF6 


0100 


15F7 


000 6 


lbFB 


0001 


15F9 


0000 


15FA 


0006 


15FB 


0000 


15FC 


0005 


1SFD 


0001 


15FE 


0005 


1 5FF 


00C1 


1600 


1 OB 


1601 


OOOC 


1602 


D9C6 


1 603 


C3D6 


1604 


D9<-4 


1605 


F 1 40 


1606 


02 Cb 


1607 


EM>9 


1608 


C5C3 


1609 


D6D9 


160A 


C4F1 


1 60B 


40C4 


160C 


C1E3 


160D 


C100 



oc 

DC 



160E 0000 



/-v. 



16 OF 





0000 


16)0 





0005 


161 1 





0008 


1612 





OOOD 


1613 





0001 


1614 





00)D 


1615 





00 19 


l61o 





0015 


1617 





0031 


1 tlH 


u 


00B1 


1619 





0029 


161A 





00A9 


161B 





0039 


161C 





00H9 


161D 





0051 


161E 





OOD 1 


161F 





00 4 9 


•620 





O0C9 


1621 





0071 


1622 





OOF 1 


1623 





0069 


1624 





00E9 


1625 





0006 


1026 





00(16 


1627 





OOOE 


1628 





OOHE 



T33MK 
T33SK 



T33HA 



DC 

DC 
DC 
DC 

DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



T33HT DC 

* 

T330P DC 

T33TB DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/2 0*2f6+GPNO! J FLAGS A 


* 


ADDRESS 


T33N0 


SET FILE MK 


/OOOO 


SEEK 


/0006 


* 


/0001 


* 


/OOOO 


WRITE HA 


/OSOO 


* 


/0100 


* 


/0005 


WRITE RO 


/OOOl 


* 


/ocoo 


* 


/000 6 


* 


/OOOO 


* 


/0005 


* 


/OOOl 


* 


/OOOS 


WRITE Rl 


/OOOl 


* 


/Ol Ob 


* 


/OOOC 


* 


/D9C5 


* 


/C3D6 


¥ 


/D9C4 


* 


/F140 


* 


/0 2CS 


* 


/E8D9 


V 


/C5C3 


* 


/D to 9 


* 


/C4F) 


* 


/40C 




/C1E3 


* 


/C100 


* 



AND OP CODE 



*-* TABLE COUNTER 

*-» GENERATED OP C.UDE 

/0005 WRITE DATA 

/0006 TIC 

/OOOD WRITE KCY-OATA 

/OOOl WRITE 

/001D WRITE COUNT-Kfc Y-DATA 

/0019 WRITE HOKE ADDRESS 

/0015 WRITE RO 

/0031 SRCH ~ ID WITHOUT M/T 

/00B1 SRCH = ID WITH M •' T 

/0029 SRCH-- KEY WITHOUT M/T 

/00A9 SRCH = KEY WITH M/T 

/0039 SRCH = HA WITHOUT M/T 

/00b9 SRCH = HA WITH M/T 

/00S1 SRCH HI ID WITHOUT K/T 

/00D1 SRCH HI ID WITH M/T 

/0049 SRCH HI KEY WITHOUT M/T 

/00C9 SRCK HI KEY WITH M/T 

/0071 SRCH HI EO ID WITHOUT M/T 

/00F1 SRCH HI Ed ID WITH M/T 

/0069 SRCH HI FO KEY WITHOUT M/ 

/00E9 SRCH HI EO KEY WITH M/T 

/0006 RD DATA WITHOUT M/T 

/0066 RO DMA WITH M/T 

/OOOE RO KEY-OATA WITHOUT M/T 

/OOSE RO KEY-DATA WITH M/T 



6 1141500 
81 141510 
61141520 
81 141530 
81141540 
81 141550 
81141660 
81141 570 
81 1 41580 
81 141590 
81141 600 
6 1141610 
81141620 
81141 630 
81141 640 
81 141650 
8 1 1 41660 
01 141670 
8 1 141680 
81141690 
81141 700 
81141710 
81141720 
81 141 "(30 
81141 74 
81141 750 
81141760 
81 141 770 
81141 780 
81 141790 
8114) BOO 
01141810 
81141 820 
8114 1 830 
61 1 41 84 
81 141850 
81)41 860 
8114 1 070 
8 1 1 4 1 HHO 
61141 690 
81 14 1900 
6114 19 10 
8 1 1 4 1920 
6114 19 30 
81 1 41940 
8114 1950 
61 I 4 1960 
(SI 141970 
8) 1 4)960 
81 141990 
81 142000 
81 142010 
81 142020 
81 1420 30 
81142040 
81 142050 
81142060 
81 142070 
81142060 
81 142090 
811 42100 
81142110 
8 1142120 
Bl 142130 
8 1142)40 
81 142150 
61142160 
81 142170 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15S6P71 
431328 



PROG ID 


08 1 1 - A 


1 itmr 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


31 


"■me- 


EC NO. 


431319 


4313I9A 


431328 



PROG ID 
PAGE 



081 I-A 
31 A 



<tfe»- 



9 






•oooooooooooooooooooooooooooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTFM 



2841 DIAGNOSTIC 



PHASE A 



PART NO. £279471 
PAGE 32 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



284 1 DIAGNOSTIC 



PHASE A 



PART NO. 2279471 
PAGE 32 A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



1600 DIAGNOSTIC MAINTENANCE PROGRAM 



<w 



w 



1629 


001E 


162A 


009E 


162B 


001A 


162C 


009A 


162D 


0016 


162E 


0096 


162F 


0012 


1630 


0092 


1631 


0007 


1632 


0013 


1633 


0017 


1634 


OOCF 


1635 


0003 


1636 


OOOB 


1637 


001B 


1638 


001F 


1639 


011 


163A 


0002 


163E) 


0025 


163C C 


00 2D 


1 630 (, 


0004 


163E 0094 


163F 00K4 


164 00 IB 


164) 002it 


164 2 00 38 


1643 0048 


1644 0058 


164 


!> oooe 


I 64 6 


3 0078 


1647 


0088 


164 8 


0098 


1649 


00A8 


164 A 


00 B8 


164B 


OOCB 


104C 


00D8 


164D 


00E8 


164 b. 


OCI « 


164F 


004D 


1650 


0035 


161.1 


00 .5 


16b2 


005b 


1653 


OOob 


1654 


0075 


1 655 


OOAO 


1666 


00 A 5 


1657 


00C5 


16b8 


OOCD 


1659 


001.15 


16b A 


00E5 


165B 


OOID 


165C 


OOBb 


1 650 


OOF 5 


16bE 


006D 



DATE 
EC NO. 



16SF 420 F 





DC 


/001E 


RD CT-KEY-DATA WITHOUT M/T 


81 142180 




DC 


/009E 


RD CT-KEY-0A1A WITH M/T 


811 42190 




DC 


/001 A 


RD HOME ADR WITHOUT M/T 


81 142200 




DC 


/009, 


RD HOME ADR WITH M/T 


81142210 




OC 


/0016 


RD RO WITHOUT M/T 


81 142220 




DC 


/0096 


RD RO WITH M/T 


61142230 




DC 


/0012 


RD COUNT WITHOUT M/T 


81 142240 




DC 


/0 092 


RD COUNT WITH M/T 


81142250 




DC 


/0007 


CONTROL SEED (EBCCHH) 


81 142260 




DC 


/0013 


CONTROL RECALIBRATE 


81142270 




DC 


/0017 


CONTROL STOKE 


81 142280 




DC 


/OOO. 


CONTROL SPACE COUNT 


811 42290 




DC 


/0003 


CONTROL NO-OP 


81 142300 




DC 


/OOOB 


CONTROL CY SEEK ( CCHH ) 


811 42310 




DC 


/001B 


CONTROL HEAD SEEK ( HH ) 


81 142320 




DC 


/COIF 


CONTROL SET FILE MASK 


81142 330 




DC 


.'001 1 


ERASE 


81 142340 




DC 


/0002 


:<r ad i pl 


81142350 




DC 


/0025 


CONTINUE 3CAN-E0 


81 142360 




DC 


/002D 


SRCH EO K-O 


811 42370 




DC 


/0004 


SENSE 1/0 


81 142380 




DC 


/0094 


RELEASE 


811 42390 




DC 


/00B4 


'CrSEKVE 


81 142400 




DC 


/0018 


1800-TIO 


bt 1424 1 




DC 


/0028 


1800-T 10 


81 142 420 




DC 


/0036 


1800-TIO 


811 42430 




DC 


/0048 


1800-T 10 


81 142440 




DC 


/0058 


iaoo-T io 


811 42450 




DC 


/0068 


1600-T 10 


61 142460 




DC 


/0078 


1800-TIC 


81142470 




DC 


/0088 


1800-T 10 


81 142480 




DC 


/0096 


1800-TIO 


81142490 




DC 


/00A8 


1800-T 10 


81 1 42500 




DC 


/00B8 


1800-TIO 


8 114 2 510 




DC 


/00C8 


1800-T 10 


81 142520 




r, <* 


/00D8 


1800-TIO 


81142530 






/00E8 


1000-T 10 


81 142 54 




•J C 


/OOF IS, 


SENSE I/O 


81 14 2550 




DC 


/004D 


SRCH HI KEY DATA 


81 142560 




DC 


/0035 


CONTINUE SCAN-SET CMP 


81142570 




DC 


/0045 


CONTINUF. SCAN HI 


8 1 142560 




DC 


/OObb 


CONTINUE SCAN-NO CMP 


81142590 




DC 


/0065 


CONTINUE 5CAN-H1.E0 


81 142600 




DC 


/0075 


CONTIMUf. SCAN- SET CMP 


81 1 4261 




DC 


/OO VJ 


SRCH EO K-O 


Bl 14262 




DC 


/00A5 


CONTINUE SCAN-EQ 


811 42630 




DC 


/00C5 


CONTINUE SCAN-HI 


81 142640 




DC 


/OOCD 


SRCH HI K-O 


61142650 




DC 


/00D5 


CONTINUE SCAN-NO CMP 


81 142660 




DC 


/00E5 


CONTINUE SCAC-HI EO 


811 42670 




DC 


/OOED 


SRCH HI EO K-D 


81 142680 




DC 


/00B5 


CONTINUE SCAN-SET CMP 


811 4 2 690 




DC 


/00F5 


CONTINUE SCAN-SET CMP 


81 142700 




DC 


/0060 


SRCH-K-D HI EO 


81 142710 


* 








81 142/23 


************ **************************** *********** 8 11 4 2 730 


* 








* 8114274 


*************************************************** 81142750 


* 








81 142760 


* 


SECT 


iON END 




811*2770 


* 








81 1427S0 


T3401 BSI 


2 CNTRL-TB 


GO TO CONTROL RTN 


8 1 142790 


******************************** ******************* 811 4280 


• 








* 61142810 


*************************************************** 81 1428X0 


* 








81142030 


* 


SECTION PREFACE 




el 142640 


* 








611 42850 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PPOG ID 
PAGE 



*■*/ 



-"•S 



081 1-A 
32 



1660 0004 

1661 0003 

1662 C2BC 

1663 1 4C18 166A 

1665 90FB 

1666 1 4C30 0B2I 
1 e>68 OOF 6 
1669 7000 



T40PR 



740NT 



DC 
DC 

LD 

BZ 

S 

BP 

A 

MDX 



/0004 
3 

TRTNN-TB 

T4101 

T40PR+1 

TCNER 

T40PR+1 

T4101 



***»******************' 



SECTION NUMBER 



SW FNC 1 BITS 12-lb 
BR IF RUN ALL RTNS 
TEST FOR VALID 
BR IF INVALID RTN NUMBER 
RESTORE RTN NUMBER 
GO TO FIRST RTN 
**************************** 

* 
>*********** ** 



************************************* 

* 

* 

*************************************************** 

* 

* ROUTINE 1 TEST HALT I/O ON READ OP 

* 

********************** ** ******************* V *****-.:* 
* 

* 

* THIS ROUTINE ISSUES A HALT I/O COMMAND 

* DURING A READ OPERATION AND CHECKS TO SEE 

* IF READING WAS ACTUALLY STOPPED BY THE 
HIO. THE TRACK IS FIRST FORMATTED WITH 
HA-R0-R1 ANT; THEN HID IS ISSUED AFTER A 
READ OF Rl IS INITIATED (200 BYTCS). IF 
ALL OF Rl IS READ. THE HIO IS CONSIDERED 
TO HAVE FA 1LEO . 



* 

* 

* 

* 

* 

* 

* 

************ ************************************** 

* * 

*************************************************** 



166A 

166A 1 7401 0815 

166C 1 4C10 1671 

166E 9297 

166F 1 4C20 1730 

1671 C283 

1672 100A 

1673 1 4C10 1677 
167b 4 2 09 

1676 1 16F1 

1677 42EB 

1678 4212 

1679 1010 
16. 'A D2C0 

167B CA51 

167C 1 DCOO 09BC 

167E I DCOO 09C6 

1660 1810 

1681 1 D400 09BE 

1663 C29D 

1684 1 D400 09BF 



1686 1 C400 170C 
1688 1 D400 09C8 



168A I C400 170D 
168C 1 D400 09C9 



T4101 



* 
T4102 



* 
T41C3 



* 
T4104 



EQU 
MD X 
BZ 
S 
BNZ 

LD 

SLA 

BNN 

BSI 

DC 

US I 
BSI 
SLA 
STO 

LDD 
STD 
STO 

SRA 
STO 

LD 
STO 



* 

TRID .1 

T41 02 

Kl-TB 

T4201 

TSWO-TB 
OTTLE 
T41 03 
TLCMS-TB 
TTL41 

GETDV-TB 
SKTV-TIS 
16 
: ERWSW-TB 

'. HA- IB 
RARE A 
RAREA+10 

16 

RAREA+2 

> K10-TB 
RAREA+3 



TEST ENTRY POINT 

UUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONF 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 

BR IF NUT Rl T 
GO TO If' I NT ROUTINE 
MESSAGE ADDRESS 



GET CHANNEL FOR RTN 
BRANCH TO SEF.KX ROUTINE 

CLEAR ACC 

RESET ERROR SWITCH 

OBTAIN CYL AND HO NOS 
•iST. CYL. HO FOR RO 
EST. CYL. HU FOR Rl 



EST. REC. 



KEY L. 



DATA LGTH. RO = 10 BYTES 



RO COUNT ARCA IS NOW ESTABLISHED 



LD 

STO 



LD 
STO 



T41K2 
RAREA+12 



EST. REC NO. KEY L., 



T41K3 
RAREA-" 



13 



DATA LGTH Rl 



200 BYTES 



,•"*! 










'«£* 










/**% 










v«*? 


DATE 


I4N0V69 


30JAN70 


15SEP71 




EC NO. 


431319 


431319A 


431328 



8114281.0 
81 142870 
811428H0 
81 142890 
811 42900 
81 142910 
81142920 
01 142930 
8 1 1 42«40 
01 142950 
81 1 42960 
81 142970 
81142980 
81 142990 
81 143000 
81 14 3010 
811 43020 
8114 30 30 
81 1 43040 
81 143050 
81143060 
31 143070 
811430H0 
8 1 14 3j90 
81 1 43100 
81143110 
811 43120 
811431 30 
811 43140 
81 143150 
811 43160 
Bl S43170 
811 431 80 
61 143190 
81 M 3200 
81 14 3210 
e 1 14 3220 
8114 3230 
61143240 
Bl 143250 
81143260 
81 143270 
8 1 1 « 32 80 
81 14 3290 
81143300 
61 14331 
81 1 4 3320 
81 143330 
61 143340 
81 14 3350 
61 1 43360 
61143370 
81143380 
61 14 3390 
81143400 
81 143410 
81143420 
61 143430 
81 1 43440 
81 143450 
81 I 43460 
81143470 
8i I 4 34 60 
81 143490 
8 I 1 43500 
61143510 
81143520 
61 143530 



PROG ID 
PAGE 



08U-A 
32A 



o 






^■^ ^^ I ^(^,AINt1!KnCE ffflf&NOSrWT PROGlM* FOrVe 18Crtr^YSTE>r ^^ ^"^ ^^ HOA*T NOT 22 7^1 ^^ »# MAInVwaNCE^WAGNO^R PRoWh FcRWHE lmWSVSmr \J \J V ^«^PAF<T%ff. 22*1^1 \J ^J ^U 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



DATE 
EC NO. 



168E 1 6500 C9C0 

1690 630 5 

1691 1 C400 170B 

1692 D100 

1694 7 101 

1695 73FP 

1696 70FC 



1697 1 6500 09CB 
1699 6364 



Rl COUNT AREA IS NOW ESTABLISHED 

LDX LI RAREA+4 FWA OF RO DATA 

LDX 3 5 W.C. 

LD L T41K1 C5C5 DATA PATTERN 

STORES A-REG IN DESIGNATED FIELD 

STO 1 STORE TWO BYTES 

MD X 1 41 INDR. STORAGE ADDRESS 

MDX 3 -1 DECR. WORD COUNT 

MDX *-4 CYCLE UNTIL FIELD FILLED 



LDX LI HAREA+15 
LDX 3 100 

STORES A-RL& 



1 69A 





DUO 






STO 


1 





169B 





7101 






MDX 


1 


H 


1 69C 





73FF 






MDX 


3 


-1 


169D 





70FC 




* 


MDX 




*-4 


169E 





C297 




* 


LD 


2 


Kl-TB 


169F 


1 


D400 


09CA 




STO 


L 


RAREA+14 



FWA OF Rl DATA 
W.C. 
N DESIGNATED F I E LD 
STORE TWO BYTES 
INDR. STORAGE ADDRESS 
DECR. WORD COUNT 
CYCLE UNTIL FIELD FILLED 



iST. KEY 



16A1 1 6500 1705 
1&A3 1 6D00 19E9 



I GAS 42f« 
16A6 1 170F 



DATA PATTERNS FOR RO AND Rl ARE ESTABLISHED 



LD X LI T 4 1 T 1 
STX LI WTADR 



BSI 

DC 



SIO-TB 
T41F1 



EST. TIMEOUT ADDRESS 

CALL S10 ROUTINE 
CCW ADDRESS 

1. SET FILE MASK 'CO' 

2. SEARCH HA EQUAL 

3. TIC *--l 

4. WRITE RO (10 BYTES) 

5. WRITE Rl (200 BYTES) 



16A7 1 6500 09CB 
16A9 6364 
ItAA 18 10 



FWA OF Rl DATA AREA 
W.C. 



16AB 





D100 






STO 


1 





16AC 





7101 






MDX 


1 


+ 1 


16AD 





73H 






MDX 


3 


-1 


16AE 





7( C 




* 


MDX 




*-■'; 










* 

* 

* 


INPUT 


AREA IS C 


16AF 





C2B7 




LD 


2 


H6000-TB 


1600 





D?D 1 




» 


STO 


2 


SIOSW-TB 


16B1 





42F4 




BSI 


2 


SIO-TB 


16B2 


1 


17 It 




* 

* 
* 
* 
* 
* 
» 


DC 




T41R1 


16B3 





C280 






LD 


2 


TERM-TO 


16B4 





020 A 




* 


STO 


2 


LPCT1-TIJ 


16BS 


1 


C400 


09CB 


T410S LD 


L 


RAREA+15 


1607 


1 


4C20 


16CS 




BNZ 




T4106 



LDX LI RAR! A* 15 

LDX 3 100 

SRA 16 

STORES A-REG IN DESIGNATED FIELD 
STORE TWO BYTES 
INDR. STORAGE ADDRESS 
DECR. WORD COUNT 
CYCLE UNTIL FIELD FILLED 



FETCH S10 SW VALUE 
PLACE IN SIO SWITCH 



CALL SIO ROUTINE 
CCW ADDRESS 

1. SET FILE MASK 'CO 1 

2. READ HA (NO DATA XFER) 

3. READ COUNT Rl 

4. SEARCH KEY 6 (Rl ) 

5. TIC *-l 

6. READ DATA Rl (200 BYTE 



EST. DELAY COUNT 



FWA OF READ AREA 
BRANCH IF READ STARTED 



PAGE 



61143540 
8 1 1 43550 
81 143560 
81143570 
8) 143580 
811 43590 
81 143600 
811 4361 
81 143620 
811 4 36 30 
81 143640 
81143650 
81 143660 
81143670 
81 143680 
811 43690 
81 143700 
81143710 
81 143720 
81 1 4 3 730 
81 14374 
81 1 43750 
81 143760 
81143770 
8 1 ! 43700 
8 1 I 4 3790 
81 (43800 
811 43610 
81 143820 
8 1 14 3830 
81 1 43840 
811 43850 
81 143860 
8 1 14/870 
81 143880 
81 1 43890 
81 1 43900 
81143910 
81 1 43920 
61143930 
81 14 3940 
81143950 
81 143960 
8 11439 70 
61 14 39(10 
8 114 3990 
8) 144000 
8 114 4 10 
81 1440 20 
Oil 4 4030 
61 144040 
8 1 1 44050 
81 1 4 4 060 
81 I 440 70 
PI 1 440 80 
8 11 44090 
81 144 100 
81 1 44 1 10 
01 1441 20 
8 1 1 4 4 1 30 
81 144140 
8 1144 150 
81 144160 
81144 170 
Bl 144 1 BO 
8 1144190 
81 1 44200 
81 144210 



33 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 
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16B9 6332 

16B.A O 73FF 

16BB 70FE 

I6EC 1 74FF 0859 

16BE 70F6 

16BF 42E5 

1 6C 812 7 

16C1 4102 



08 1 1 - A 
33 



16C2 





COOO 


16C3 





D2C0 


16C4 





7021 


16C5 





101O 


16C6 





D23E 


16C7 





0A2LS 


1 6C8 


1 


6C00 08AA 


16CA 





4215 


16CB 


1 


1 6 CD 


16CC 





7006 


16CD 





42ES 


16CE 





106 


16CF 





4103 



16D0 COOO 
16D1 D2C0 
16D2 i OOA 

1 6D3 O C23E 

16D4 1008 

1605 I OJO 

16D6 I 4C1U 16DD 

16D8 42E5 
1 6D9 8 127 
16DA 4 104 

16DB COOO 
1 6DC D2C0 



16DD 1 C4 00 0A2E 
16DF 1 4C18 16E6 

16E1 O 42E5 
16L2 8127 
16E3 4 106 

1 6E4 COOO 
16E5 D2C0 

16E6 420C 
16E7 1 16E9 
16E8 7003 

16E9 C2C0 

16EA 1 4C20 167B 



1 6EC 42E8 
16ED C2BC 
16EE 1 4C18 1730 





LDX 


3 50 


EXTRA DELAY COUNT 


81*44 ?20 




MDX 


3 -1 


DECR. DELAY COUNT 


81 144230 


t 


MDX 


*-2 


WAIT FOR END OF DELAY 


81 144240 
81 1442 50 




MD X 


L LPCT1.-1 


DECR. DELAY COUNTER 


81144260 


I 


MD X 


T41 05 


WAIT FOR 1ST BYTE 


81 144270 
81 144280 




BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


81 144290 




DC 


/8127 


FLAG BITS 


81 1 4 4 300 




DC 


/4102 


MSG NO OR ADDRESS 


81 144310 


t 


PRINT READ DID NOT INITIATE 


81 1 44320 




LD 


* 


GET A VALUE 


81 144330 




STO 


2 ERRSW-TB 


SET ERROR SWITCH 


81144340 




MDX 


T41E2 


CHECK LOOP ON ERROR 


81 144350 


r4106 


SLA 


16 


RESET ACCUMULATOR 


81 144360 




STO 


2 SCSXO+1-TB 


CLEAR UNIT STATUS 


81 1 44370 




XIO 


2 HIOXX-TB 


ISSUE HALT I/O 


611 44380 




STX 


L HIOXX 


SET HIO SW 


61 144390 


* 


HALT I/O DURING 


READ OPERATION 


81 1 44400 




BSI 


2 WA1TS-TB 


CALL WAIT I/O ROUTINE 


6114 4 4 10 




DC 


*+l NO 


INTERRUPT ADDRESS 


8 114 4 4 2 


■t 


MDX 


T4107 




81 144430 
81144440 




BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


81 144450 




DC 


/81 00 


FLAG BITS 


81144460 




DC 


/4103 


MSG NO OR ADDRESS 


81 144470 


* 


PRINT NO HIO INT 


. RECEIVED 


81144480 




LD 


* 


GET A VALUE 


81 1«4490 




STO 


2 ERRSW-TB 


SET ERROR SWITCH 


8 1144500 




MD X 


T41CK 


CHECK READ AREA 


81 144510 


* 








81144520 


T4107 LD 


2 SCSXO+l-TB LOOK AT UNIT STATUS 


81 144 530 




SLA 


8 




61 1 44 54 




EOK 


T41K4 


CHECK C .E. . D .E . 


81 144550 




BZ 


T41CK 


BRANCH IF DE..CE. 


81144560 


* 








61 144570 




BSI 


2 ERUUT- TB 


CALL ERROR OUT ROUTINE 


Bll 4 4 5H0 




DC 


/6127 


FLAG BITS 


81 144 590 




DC 


/41 04 


MSG NO OR ADDRESS 


8 1 1 44 600 


* 


PRINT NON-ZERO UNIT STATUS RECEIVED 


61 i 44610 




LD 


* 


GET A VALUE 


8! 1 44 620 




STO 


2 ERRSW-TB 


SET ERROR SWITCH 


61 144630 


* 








811 44640 


* 








81 144 650 


T41CK LD 


L RAREA+114 


LWA OF READ AREA 


8 1 144660 




L<Z 


T4 1F2 


BH. IF NO DATA READ 


61 144670 


* 








V 11 44660 




BSI 


2 E ROUT- IB 


CALL ERROR OUT ROUTINE 


81 1 44 690 




DC 


/8I27 


FLAG BITS 


81 1 44700 




DC 


/41 06 


MSG NO OR ADDRESS 


81 144710 


* 


PRINT FULL READ 


OCCURRED 


ei 144720 




LD 


* 


GET A VALUE 


81 144730 




STO 


2 ERRSW-(b 


SET ERROR SWITCH 


8 1144 74 


* 








61144750 


T41E2 BSI 


2 TLf'ER-TB 


TEST LOOP ON ERROR 


81144 760 




DC 


*+l 


CHECK ERROR SWITCH 


61 144770 




MD X 


T41EN 


EXIT 


81 1 44780 


* 








81 144790 




LD 


Z ERRSW-TB 


FETCH ERROR SWITCH 


811 44800 




BNZ 


T'»104 




81 144B10 


* 


LOOP ON EIIROR 




811 44620 


* 








61 144830 


* 








81144640 


* 


GO 


TO NEXT ROUTINE IN SEQUENCE 


81144650 


* 








811 44 860 


T41EN BSI 


2 FREDV-TB 


FREE CHANNEL 


61 144870 




LD 


2 TRTNN-TB 


GET PTN SWS 


81144880 




BZ 


T4201 


GO TO NEXT RTN IN SEQ 


81 144690 



-* DATE. 


14N0V69 


30 JAN70 


15SEP71 


EC NO. 


431319 


431319A 


43132 6 










■""*!■ 








**j»^ 
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1800 01. 



MOST I C MAINTENANCE PROGRAM 



PART NO. 2279071 
PA6E 34A 



16F0 4 2DF 
16F1 000 7 



16F8 001? 

1704 FFFF 



170J 42ES 

1706 8106 

1707 4101 

1708 COOO 

1709 D2C0 
170A O 7 0DB 



00 29 

0A30 

OSCb 

09C6 

170B CSCS 
170C 0102 

1700 O 0OC8 
17CF OCOO 



170F 000 1 

1710 401F 

1711 1 OHbC 



1712 0004 

1713 4039 

1714 1 OtiDO 



171b 0001 
17 16 0008 
1717 1 17 12 



1718 00 12 
17 Hi 40 1b 
171A 1 090C 



171B 00D2 
171C 001O 
17 ID 1 09C6 



171E 0001 
17 IF O 40 IF 
1720 1 065C 



1721 000b 

1722 481A 



**' DATE 

EC NO. 

f" 
V. 



BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


TTL41 "RNT 
* 

PRNT 




. SECT 4 ,RT 1- . 




.HALT I/O 


DURING READ OP. 


DC 

• 
* 
* 
T41T1 BSI 




-1 


' 


2 


EROUT-TB 


CALL ERROR OUT ROUTINE 


DC 




/6106 


FLAG BITS 


DC 




/4101 


MSG NO OR AO DRESS 


■» PRINT 


MV OUT F 


1RST S10 


LD 




* 


GET A VALUE 


STO 


2 


ERRSW-TB 


SET ERROR SWITCH 


MDX 

* 




T41E2 


CHECK LOOP ERROR 


* 

SRKEO EOU 




/29 


SFARCH KEY EQUAL COMMAND 


T41HA EOU 




RAREA+1 16 


HOME ADDRESS AREA 


T4 1RD EOU 




RAREA+15 


READ AREA 


T41WI EOU 

• 

T41K1 DC 




RARE A+ 10 


FWA OF Rl 




/C5C5 


WRITE DATA PATTERN 


T41K2 DC 




/Ol 02 


REC NO. KEY LENGTH 


T41K3 DC 




200 




T41K4 DC 

* 




/OCOO 


CHAN AM} DEV END 


* 

T41FT DC 




1 


BYTE COUNT 


DC 




/40*256+SF 1LM FLAGS AM) OP CODE 


DC 




CO 


ADDRESS 



**** **** *** ** * ****************** *********** ******** 



T 4 1 C 1 



DC 
DC 

C 



4 BYTE COUNT 

/40*256+SRCHA FLAGS AMI OP CODE 
HA ADDRESS 



**<:*************************************.*********** 

* 

DC 1 BYTE COUNT 

DC 0*2S6+OPTIC FLAGS AND OP CODE 

DC T41C1 ADDRESS 

4 

*********** ***************. Sfr* *************«.******** 

* 

DC 10 BYTE COUNT 

DC /40*256+WRR0 FLAGS AM) OP CODE 

DC RARE A ADDRESS 

* 

**. ********* **********t*****a»********** ****** ****** 

* 

DC 210 BYTE COUNT 

DC 0*256*WRCKD FLAGS AI« OP CODE 

DC T41W1 ADDRESS 

* 

********* *********************************** ******* 

* 

* 

T41R1 DC 1 BYTE COUNT 

/40*2S6+SF ILH FLAGS AND OP CODE 

CO ADDRESS 

* ******** ********************** 



DC 
OC 
DC 



14N0V69 
431319 



30JAN70 
431319A 



********************* 

* 

DC G 9YTE COUNT 

DC /48*2S6+R0HA FLAGS AND OP CODE 



15SEP71 
431328 



81 144900 
81 144910 
81 144920 
8 1144930 
81 144940 
811449S0 
81 1 44960 
81144970 
81 144980 
811 44990 
81 14S000 
8 114S01O 
81 145020 
8114b030 
81 14S040 
81145050 
81 145060 
8 1 14 bO 70 
81 145050 
811 45090 
81 145100 
811451 10 
81 145120 
61145130 
81 145140 
8 II 45150 
81 14016& 
81145170 
81 145180 
81 1 451 90 
81 145200 
811 45210 
81 14 5220 
8 114 5230 
01 145240 
81 145250 
81 145260 
8 1 14 52 70 
81 145280 
8 114 5290 
01 14 5300 
81145310 
81 145320 
81 1 4 5330 
81 1<:S34 
81145350 
81 145360 
81145370 
81 145380 
81145390 
81 145400 
81 14 54 10 
81 145420 
81145430 
81 14S4 tO 
811 45450 
81 145460 
81 1454 70 
81 145480 
811 45490 
81 145500 
811 45510 
81 145520 
81145530 
81 14 554 
81145550 
81 1 45560 
811455 70 



PROG ID 
PAGE 



1723 1 0A3O 



1724 0008 

1725 4012 

1726 1 0A30 



1727 0002 

1728 40 29 

1729 1 0816 



172A 000 1 
172B 0008 
J72C 1 1727 



DC 



T41HA 



ADDRESS 



*************************** 



♦♦a********************* 

* 

DC 8 BYTE COUNT 

DC /40*216+RDCNT FLAGS AND OP CODE 

DC T4 1HA ADDRESS 

********************. »****«*************»»*»<.■ ******* 

* 

T41C2 



DC 


2 BYTE COUNT 


DC 


/40*id+SRKEQ FLAGS AW 


DC 


Kl ADDRESS 



*»******<.**********«.********** ********************* 

* 

DC 1 BYTE COUNT 

DC 0*25C-0!>f IC FLAGS AM) OP CODF 

DC T4 1C2 ADDRESS 

* 

**********#***********#****# 4* **-*******<'»********** 



CODE 



172D 


00C8 


DC 200 BYTE COUNT 


172E 


0006 


DC 0*2;tfRDDAT FLAGS ANO OP 


172F 


1 09CB 


DC T4 1K> ADDRESS 
* 

* 

* 

************************************** 

* 

* ROUTINE — 2-~ HALT I/O DURI 











NO WRITE OP 

* 

********tv*******s ************** >>***************«** 

* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



THIS ROUT !•• ■ 
DURING A |l| 

issued our;- 

IS MADE It 



CHECKS THt: HALT I/O COMMAND 
TE OPERATION. HALT I/O IS 
G A WRITE OPERATION AND A CHECK 
ZE 11- THE REMAINDI K !jF THE 



RECORD WAV PADDED Wl 
THA THE 11!- COMMAN) 
WRITING b= DA IA . A ! 
IS PERFOKB-:;, ON THE 



TH ZEROES. TO INSURE 
IS ISSUED DOPING 
Y ; X ROM I 1. 1 N'G <)PE RATI ON 
COUNI FIELD f.'F THE 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



RECORD TO ■-. 
ON T HE C O. •■< 
PHE-DtTLR* : 
T HL H 1 . 7 
BY FIRST FV 
AND INITIAL 
FIELD IS 1,' 
A MEANS Ei" 



!. WRITTEN. AFTER SYNC ON I Z 1 NG 
r FIELD. THE PROGRAMS WAITS A 
m!"D AMOUNT OF TIME AND ISSUES 
-I. WAIT FACTOR IS CALCULATED 
^MATTING THE COUNT rial) TO ZER 
i'NG A WRITE CHAIN. TMJ: COUNT 
MTINUOUSLY COMPARED "O ZERO AS 
DETERMINING WHf N ACTUAL WRITING 



BEGINS. EACH TIME THE COMPARISON IS MADE, 
A COUNTED 4 :> INCREMENTED. THIS H5THC0 
GIVfS A CO. NT OF T FIE. NUMBER OF COMPARISONS 
MADE BEFO^i WRITING BEGAN AND ELI MATES 
SYSTEM Vfct-tANCES. 



081 I- A 
34 



1730 

1730 1 7401 0815 

1732 1 4C18 1737 



************* ******«**»****+**********«************ 
* * 

************** **S»******************»*************«i 

T420 1 EQU * TEST ENTRY P01t;T 

MDX I. TRl".l BUMP RTN ID 

BZ T4242 BR IF TEST NUMBER ZERO 



'J 












DATE 


14N0VC.9 


30JAN70 


15SEP71 




EC NO. 


431319 


431319A 


431328 



eil45580 
81 14SS90 
81145600 
8114 5610 
81145620 
81 145630 
81145640 
81 145650 
81145660 
81 145670 
8II4S680 
81 145690 
81 1 4 5700 
61 1*5710 
8 1 1 4 5720 
61 145730 
81145740 
B! 145750 
81145760 
81 14 577 
81 I 45780 
81 1 4 57 90 
8 1 1 45800 
81 145810 
81 1 45820 
81 145830 
61145840 
81 1 45850 
fill 45860 
81 145870 
8 1 1 45800 
fcl 145890 
61 1 45900 
e 1 1 4 59 1 
81 i 45920 
61 145930 
8U4594C 
8! 145950 
811 4 5960 
(Si 14 5970 
6 1 14 5900 
bl 145990 
81 1 46000 
81 1460 10 
81 1 46020 
ftl 14 60 30 
ft ! 14 604O 
HI 146050 
H 11 4 60 60 
ftl 146070 
fcl 14 60 00 
ft 1 1460 90 
'; 1 146100 
81 1461 1 
ft 1 14 61 20 
81 1461 30 
8*. 146140 
el 146150 
61146160 
61 146170 
61146180 
61 146190 
81 1 46200 
81 146210 
6 1 146220 
81 1462 30 
811462 4 
81 146250 
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1734 O 9297 

1735 1 4C20 1840 
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1737 C283 

1738 100 A 

1739 1 4C10 1730 
1730 4209 
173C 1 17FB 

1730 42EB 
173E 4212 

173F 1010 
17*0 D2C0 

1741 CA51 

1742 1 DCOO 09BC 
1744 1 DCOO 09C6 

1746 1810 

174 7 1 0400 09BE 

1749 C290 

174 A 1 0400 09BF 



174C 1 C400 IP 17 
lV'lfc 1 0400 09C8 



1 7'jO 1 C'lOO IlllfS 
1752 1 1)400 09C9 



171)4 1 6000 09C0 

1 7b 6 6305 

1757 1 C400 11116 

1759 0100 

175A 7101 

175B 73FF 

175C 7 0FC 



17 50 1 65 00 09 CO 

l?'jF 6364 

1760 0100 

1761 7 10 1 

1762 73FF 

1763 70FC 



1764 C297 

1765 1 0400 09CA 



1767 1 6500 180F 
1769 1 6D00 19E9 



DATE 
EC NO. 



176B 42F4 
176C 1 181A 





S 


2 


Kl-TB 


DECREMENT BY ONE 


81 146260 




BNZ 




T4301 


BR IF NOT THIS TEST 


81 146270 


* 










81 146280 


T4202 


LO 


2 


TSK0-T3 


GET OPT ION SWS 


81 14 62 90 




SLA 




OTTLE 


PRINT TITLES 


81 14 6300 




BNN 




T4203 


BR IF NOT SET 


81146310 




BSI 


2 


TLGMS-TB GO TO PRINT ROUTINE 


81 14 6320 




oc 




TTL42 


MESSAGE ADDRESS 


8 11463 30 


* 










81 146340 


T4203 


BSI 


2 


GETDV-TB 


GET CHANNEL FOR RTN 


81146350 




BSI 


2 


SKTV-TB 


BRANCH TO SEEKX ROUTINE 


8 1 1 4 6360 


* 










811463 70 




SLA 




16 


CLEAR ACC 


81 146380 




ST0 


2 


ERRSW-TB 


RESET ERROR SWITCH 


81146390 


* 










81 146400 


T4204 


LOO 


2 


HA-TB 


OBTAIN CYL AND HO NOS 


8 1 146410 




STO 


L 


RAKEA 


EST. CYL. HD FOR RO 


61 146420 




STD 


L 


RAREA+10 


lil . CYL. HO FOR Rl 


81 146430 


» 










8114 6440 




SPA 




16 




811464 60 




STO 


L 


RAREA+2 


EST. REC NO., KEY L.. RO 


Rl 146460 


* 










811464 70 




LD 


? 


K10-TH 




081 1 4 64 80 




STO 


L 


RAREA+3 


DATA LGTH RO = 10 BYTES 


08 1 1 4 64 90 


* 










081 146500 


* 


RO COUNT AREA IS 


NOW ESTABLISHED 


081 14 6510 


* 










OBI 14 652 




LD 


L 


T42K2 




08 1146530 




STO 


L 


RAREA+12 


EST. REC. NO.. KEY L., Rl 


08 1 14 654 


* 










08 11 4 6550 




LO 


L 


T42K3 




081 14 6560 




STO 


L 


RAREA+ 13 


DATA LGTH Rl = 200 BYTES 


81146570 


* 










81 14 6580 


» 


Rl 


COUNT AREA IS NOW ESTABLISHED 


81 1 4 6590 


* 










81 14 660 




» .1 >' 


LI RAREA+4 


FWA OF RO DATA 


8 11 46610 




'■), 




3 b 


W.C. 


01 14 662 




U> 


L 


T42KI 


C5C5 DATA PATTERN 


8 1146630 


* 


ST OR 


iS A-RE6 IN 


DESIGNATED 1-1 ELD 


81 14 664 




STO 




1 


S 'ORE TWO BYTES 


81146650 




W) * 




1 +1 


INDR. STORAGE ADDRESS 


81 146660 




MJ X 




3 -1 


DECR. WORD COUNT 


8 1 14 66 70 




MDX 




*-4 


CYCLE UNTIL FIELD FILLED 


81 146660 


4 










81 1 4 6690 


V 










81 146700 




LDX 


LI RAREA+15 


FWA OF Rl DATA 


611 4 6710 




LDX 




3 1 00 


W.C. 


81146720 


* 


STORES A-RE6 Ih 


DESIGNATED FIELD 


81146730 




STO 




1 


STORE TWO BYTES 


81 146740 




MDX 




1 +1 


INDR. STORAGE ADDRESS 


8 1146750 




MDX 




3 -1 


DECR. WORD COUNT 


81 146760 




MDX 




*-4 


CYCLE UNTIL FIELD FILLED 


81 146770 


* 










Bl 1407H0 


* 










81 1*6790 


* 


DATA PATTERNS FOR RO AND Rl ARE ESTABLISHED 81146800 


* 










811 46810 




LO 




2 Kl-TB 




81 146820 




STO 


L RAREA+14 


EST. Rl KEY 


811 «6830 


* 










81 146S40 




LDX 


Li T42T1 




8 1146850 




STX 


LI WTADR 


EST. TIMEOUT ADDRESS 


81 14 686 


» 










01 146870 




BSI 




2 SIO-TB 


CALL S10 ROUTINE 


81 146880 




OC 




T42FT 


CCW ADDRESS 


8 1 1 46690 


* 








1. SET FILE MASK 'CO' 


81 146900 


* 








2. SEARCH HA EQUAL. 


81146910 


* 








3. TIC *-l 


81 146920 


* 








4. WRITE RO ( 10 BYTES) 


61 1 46930 



14N0V69 
431319 



30JAN70 
431319A 



15SFP71 
431328 



PROG ID 
PAGE 
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1760 18 10 

176E 1 D400 0A33 

1770 '. D400' 09F8 



PART NO. 2279471 
PAGE 35A 



081 1-A 

3b 



1772 C2B7 

1773 D2D1 



1774 42F4 

1775 1 1829 



^*T5i 



1776 C28D 

1777 D2DA 

1778 1 C400 0A33 
177A 1 4C20 1789 

177C 630 A 
177D O 73FF 
177E 70FE 

17 7F 1 74FF 08 59 
17l.il 70F6 

1782 42ES 

1783 8127 

1784 4202 

1785 COOO 

1786 O2C0 
1767 1 4C00 17F0 

1789 1 C400 1815 
178B D2DB 

178C 1 C400 09F8 
178E 1 4C20 179C 

1790 6 105 

1791 7 IFF 

1792 7 01-E 

1793 1 740 1 085A 

1795 70F6 

1796 42E5 

1797 8 127 

1798 4203 

1799 COOO 
179A D2C0 
179B 7054 



179C 4215 

17 90 1 17 9F 

179E 7006 

179F 42ES 

17A0 127 

17A1 4204 



DATF. 
EC NO. 



* 






6. WRITE Rl (200 BYTES) 


8 1 1 46940 




SRA 


16 




81 146950 




STO 


L T42HA+3 


RESET COUNT LWA 


8 1 14 6960 


» 


STO 


L RAREA+60 


RFSET SYNC LOCATION 


81 146970 
611 46980 




LD 


2 HUOOO-Tfcl 


FETCH SIO SW VALUE 


81 1 4 6990 




STO 


2 SIOSW-TB 


PLACE IN SIO SWITCH 


61 14 7000 


* 








8114 7010 




BSI 


2 SIO-TB 


CALL SIO ROUTINE 


81 14702C 




DC 


T42R1 


CCW ADDRESS 


81 14 70 30 


* 






1 . SET F 1LE MASK ' CO' 


81 147040 


* 






2. READ HA (NO DATA XFER) 


8 1 14 70 50 


* 






3. REAO COUNT Rl 


01 1 4 70 60 


* 






4. SEARCH KEY EG Rl 


81 t4 7070 


* 






S. TIC *-l 


Oil 4 7080 


* 






6. READ DATA Rl (200) 


81 147090 




LD 


2 TERM- IB 




8 11471 00 




STO 


2 LPCT1-TH 


1 ST. MAX. DELAY 


ill 1471 1 


* 








81147120 


T420 


5 LD 


L T42HAf3 


LOOK AT COUNT IN"UT AREA 


811471 30 




BNZ 


T4206 


CONTINUE UPON READ COUNT 


HI I 471 40 


* 








81 1471 50 




LDX 


3 10 




811 4 7160 




MDX 


3 -1 




81 14 7170 




MDX 


*-2 


WAIT SHORT DELAY 


81 1 471 80 


* 








81 147190 




MDX 


L LPCT1.-1 




81147200 




MD X 


T4205 


CONTINUE WAITING 


81 1472 10 


* 








81147220 




BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


81 147230 




DC 


/B127 


FLAG BITS 


8 1 1 4 7240 




DC 


/4202 


MSG NO OR ADDRESS 


8 1 14 7250 


* 


PRINT REAO COUNT NOT INITIATED 


8 1 14 72 60 




LD 


* 


GET A VALUE 


81 147270 




STO 


2 ERRSW-TB 


SET t RROR SWITCH 


811472 80 




BSC 


L T42E2 


CHECK LOUP ON ERROR 


8 1 14 72 90 


» 








81147300 


T4206 LD 


L T42K0 


A = ZERO 


81 147310 




SIO 


2 TEMP1-TB 


RESET DELAY COUNTER 


01 14 7320 


* 








01 14 7330 


T42 


.1 LD 


L RAREA+60 


MONITOR SYNC LOCATION 


1 147340 




BNZ 


T4207 


CONTINUE ON TRANSITION 


8 1 1*7350 


* 








81147360 




LDX 


1 5 




81 147370 




MDX 


1 -1 




8 114 7380 




MD X 


*-2 


WAIT LOCAL DELAY 


81 1 '4 7390 


>* 








8 1 1 4 74 00 




MDX 


L TEMPI ,4 1 


1NCR. SYNC COUNTER 


61 147410 




MDX 


T42L1 


CONTINUE SYNC LOOP 


81147420 


* 








81 14 7430 




BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


61 1 4 744 




DC 


/6127 


FLAG BITS 


61 147450 




DC 


/4203 


MSG NO OR ADDRESS 


8 114 74 60 


# 


PRINT READ D ID 


NOT INITIATE 


01 147470 




LO 


* 


GET A VALUE 


81 1474 80 




STO 


2 ERRSW-TB 


SET ERROR SWITCH 


61 14 7490 




MDX 


T42E2 


CHECK LOOP ON ERROR 


1 14 7500 


* 








81 1 475 10 


* 


WAIT FOR £10 COMPLETION INTERRUPT 


81 14 7520 


* 








81 147530 


T4207 BSI 


2 WA1TS-TB 


CALL WAIT I/O ROUTINE 


8 1 14 754 




DC 


*H 1 


NO INTERRUPT ADDRESS 


81 147550 




MDX 


T4200 




8 114 7560 


* 








81 147570 




BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


81 147560 




DC 


/0127 


FLAG HI TS 


81 14 7590 




DC 


/4204 


MSG NO OR ADDRESS 


81147600 


* 


PRINT NO SIO INTERRUPT 


81 147610 



14N0V69 30JAN70 15SEP71 
431319 431319A 431328 
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PAGE 
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17A2 COOO 






LD 


* 


GET. A VALUE 


ul 147620 


17A3 D2CO 






STO 


2 SRRSW-TB 


SET ERROR SWI rCH 


611 4 7630 


17A4 704b 




* 


HlX 


T42E2 


CHECK LOOP ON ERROR 


81 14 764 
8 11.4 7650 


17AS 1810 




T4208 


SRA 


16 




81 14 7660 


17A6 1 D400 0A33 




STO L T42HA+3 


RESET COUNT LWA 


81147670 






* 








81 1476B0 


17A8 C2B7 






LD 


2 M8000-TB 


FETCH SIO SW VALUE 


81 1 47690 


17A9 D2D1 




* 


STO 


2 SIOSW-TB 


PLACE IN SIO SWITCH 


81 147700 
81147710 


17AA 42F4 






BSI 


2 S10-TB 


CALL SIC ROUTINE 


81 147720 


17AB 1 183B 




* 
* 
* 
* 
» 
* 


DC 


T42W2 


CCW ADDRESS 

1. SET FILF MASK 'CO' 

2. READ HA (SKIP) 

3. READ COUNT Rl 

4. SEARCH KEY EQ Rl 

5. TIC *-l 

6. WRITE Rl (200) 


81 1 4 77 30 
81 14 7740 
811 4 7750 
81 147760 
61147770 
81147780 
81147790 


1VAC C28D 






LD 


2 TERM-TB 




81 147800 


17AD D2DA 




* 


STO 


2 LPCT1-TB 


EST. MAX. DELAY 


81147810 
81 147820 


17AF. 1 C400 0A33 


T4209 


LD 


t. T42HA + 3 


LOOK AT COUNT INPUT AREA 


8 11 4 7830 


17B0 1 4C20 1 


7BE 


* 


BNZ 


T4210 


CONTINUE UPON TRANSITION 


61 14 784 
8 1 14 7650 


17SJ2 630 A 






LDX 


5 10 




61 1*7860 


17U3 731 F 






MD X 


S -1 




81 1 47870 


17B4 70FE 




* 


MD X 


*-2 


WA IT SHORT DELAY 


81 1*7680 
811 4 7690 


17B5 1 74FF 0809 




mdx 


L LPCT1.-1 


DECR. DELAY COUNTER 


81 147900 


17B7 70F6 




* 


MDX 


T4209 


CONT. WAITING FOR COUNT 


8114 7910 
81 147920 


17B8 42E5 






BSI 


i EROUT-TB 


CALL ERROR OUT ROUTINE 


811479 30 


17B9 8127 






DC 


/8127 


FLAG BITS 


81 147940 


17BA 420S 






DC 


/4205 


MSG NO OR ADDF-ESS 


81 1 4 7950 






» 


PRINT READ COUNT DID NOT INITIATE 


el 147960 


17BB COOO 






LD 


* 


GET A VALUE" 


8 1 1 4 7970 


1 'BC D2C0 






MO 


2 ERRSW-TB 


f.ET ERROR SWITCH 


81 147900 


17B0 7032 




* 


•■ -X 


T42E2 


..HECK LOOP ON ERROR 


81147990 
81 14 8000 


17BE 1 C400 


OBSA 


T4210 LD 


L TEMPI 




811480 10 


17C0 D2DB 




* 


STO 


2 TEMP1-TB 


EST. SYNC COUNTED 


81 146020 
811480 30 


17C1 1 C400 


09F«> 


T42L2 LD 


L RAREA+60 


MONITOR SYNC LOCATION 


81 146040 


17C3 1 4CO0 


17C5 


* 


bSC 


L * 


NOP 


61146050 
81 140060 


17C5 61 OS 






LDX 


S 5 




8 1146070 


17C6 71FF 






MDX 


ts -l 




81 14B080 


17C7 70Ft 




* 


MDX 


*-2 


WAIT FUR LOCAL DELAY 


81 1460 90 
81 148100 


17C8 1 74FF 


085.A 




MDX 


L TEMPI ,-1 


DECR. SYNC COUNT 


81146110 


17CA 70F6 




* 


MDX 


T42L2 


CONTINUE SYNC LOOP 


81 148120 
8 1148130 






* 


AT 


T*rS PUlNTt 


THE WRITE PI SHOULD 


81 148140 






* 


HAVE ftFEN INITIATED 


61148150 






♦ 








81 148160 


17CB 1010 






SLA 


16 


RESET ACCUMULATOR 


81148170 


17CC D23E 






STO 


2 SCSXO+l- 


TB CLEAR UNIT STATUS 


81 148180 


17CD 0A2B 






XIO 


i HIOXX--TB 


ISSUE HALT I/O 


811 481 90 


17CF. 1 6CO0 


oet* 


• 


STX 


i. H10XX 


SET HIO SW 


81 148200 
8 114 8210 


17D0 4215 






BSI 


S WAITS-TB 


CALL WAIT 1/0 ROUTINE 


81 148220 


17D1 1 17D3 






DC 


*+l 


NO INTERRUPT ADDRESS 


611 4 62 30 


17D2 7 000 




* 


MDX 


T42E1 


CONTINUE UPON INTERRUPT 


81 148240 
811462 50 


17D3 4ZE5 






BSI 


2 EROUT-TB CALL ERROR OUT POUTINE 


81 148260 


17D4 8127 






DC 


/8127 


FLAG 01 TS 


81 146270 


1 7D5 4206 






DC 


/4206 


MSG NO OR ADDRESS 


81 148280 






* 


PRIM! NO HIO 


NTERHUPT 


81 1482 90 
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A-'fe 



1706 COOO 




LD 


* 


GET A VALUE 


811 4 83 >0 


17D7 D2C0 


* 


STO 


2 ERRSW-TB 


SET ERROR SWITCH 


81 148310 
81 148320 


17D8 


T42E1 


EQU 


* 




81 14 8330 


17D8 C 6500 7FFF 




LOX LI 32 767 




81 1 4 834 


17DA 4206 


T42L3 


BSI 


2 TIOSN-Tc) 


CHECK FOR DEV. AVAILABLE 


61 14 8350 


17DB 1 4C10 17ES 


* 


BZ 


T42U 


GO TO SIC) IF NOT BUSY 


811 48360 
81 148370 


17DD 7,1 FF 




MDX 


1 -1 




81146330 


17Dt 70FB 


* 


MDX 


T 42 1.3 


RECHECK DEVICE 


81 146390 
811 48400 


170F 42E5 




BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


81 148410 


17E0 8127 




DC 


/8127 


flag bits 


81148420 


17E1 4209 




DC 


/4209 


MSG NO OR ADDRESS 


8) 14 64 30 




* 


-PRINT DEVICE HUNG 


81146440 


17E2 COOO 




LD 


* 


GET A VALUE 


61 146450 


17E3 D2C0 




STO 


2 LRRSW-TB 


SET ERROR SWITCH 


81148460 


I7E4 700E 


* 


MD X 


T42E2 


CHICK LOOP ERROR 


61 148470 
81 1484 80 


1 7E5 42F4 


T421 1 


BSI 


2 SIO-TB 


CALL SIC ROUTINE 


81 14 64 90 


17E6 1 1829 




DC 


T42RI 


CCW ADDRESS 


8 1148500 




* 






1 . SET FILE MASK 'CO* 


6 1 146510 




* 






2. REA5 HA (SKIP) 


81148520 




* 






3. READ COUNT Rl 


61 14f>30 




* 






4. SEARCH KEY EQUAL 


8 1 148540 




* 






S. TIC *-I 


81 14 6550 




» 






6. READ DATA (R 1 ) 


8 1 14 6560 


17E7 1 C400 0A2E 




LD 


L PAREA-MI4 


LWA OF READ AREA 


81 14 6570 


17E9 1 4C18 17F0 


* 


BZ 


T42E2 


CHECK LOOP ERROR 


81148580 
61 148590 


17EB 42FS 




BSI 


2 LROUT-TU 


CALL ERROR OUT ROUTINE 


81 148600 


17EC 8127 




DC 


/6127 


FLAG BITS 


81 146610 


17E0 4210 




DC 


/4210 


MSG NO OR ADDRESS 


a 1 146620 




* 


PRINT WRITE NOT 


PADDED WITH ZEROES 


81 148630 


l"rEE COOO 




LD 


* 


GET A VALUE 


61148640 


1 7EF D2C0 


* 


STO 


2 ERRSW-TB 


SEl ERROR SWITCH 


81 148650 
81 14 8660 


17F0 ') 420C 


T42E 


1 US I 


2 TLPER-TB 


TEST LOOP ERROR 


81 146670 


17F1 1 17F3 




DC 


*+l 




81148680 


17F2 7003 


+ 


MDX 


T42EN 




61 148690 
61148700 


17F3 C2C0 




LD 


2 ERRSW-TB 


FETCH ERROR SV 11 CH 


81 146710 


17F4 1 4C20 1741 




BNZ 


T4204 




8 1148720 




* 


LOOP ON ERROR 




81 140730 




* 








81148740 




* 








81 146750 




* 


GO TO NF.XT ROUT It 


?. IN SEQUENCE 


8 i 14 8760 




* 








81 146770 


17F6 42E6 


T42EN BSI 


2 FRLDV-TU 


FREE CHANNEL 


611487 60 


17F7 CELiC 




LD 


2 TRTNN-Tb 


GET RTN SWS 


81 148790 


17F8 1 4C18 164D 




BZ 


1 4301 


GO lO NEXT RTN IN SEQ 


8 1 1 48800 


17FA 4»F 




US I 


2 CNTRL-TB 


GO TO CONTROL RTN 


81 146810 


17FB 0007 


TTL4 

* 


2 PRNT 


. SECT 4 


RT 2- . 


8 1 1 46820 
81 14 8830 


1802 0012 




PR NT 


.HALT I/O DURING WRITE OP. 


81 146840 


180E FFFF 


* 


DC 


-1 




81 14 6650 
6 1 14 8860 


180F 42E5 


T42T1 BSI 


2 EROUT-TB 


CALL ERROR OUT ROUTINE 


81 148870 


1810 8106 




DC 


/61 06 


FLAG BITS 


81 1 4 6660 


1811 4201 




DC 


/4Zi01 


MSG NO OR ADDRESS 


81 148890 




* 


PRINT TIMEUUT ERROR 


81148900 


1812 COOO 




LD 


* 


GET A VALUE 


81146910 


1813 D2C0 




STO 


2 ERRSW-TB 


SET ERROR SWITCH 


8 1 14 6920 


1814 70DB 


* 


MDX 


T42E2 


CHECK LOOP ERROR 


81 148930 
61148940 


09C6 


T42W1 tau 


RAREA+1 


FWA OF Rl 


81 146950 


09CU 


T42RO EQU 


RAREA+15 


READ/WRITE Rl 


81146960 


0A30 


T42HA fcOU 


RAREA+1 1 


) HA/COUNT AREA 


81 148970 



DATE 
EC NO. 



.4N0V69 30JA«t70 1SSEP71 

431319 431319A 431328 







£$*. 










PROG ID 


081 1-A 


•<$& 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


36 




EC NO. 


431319 


431319A 


431328 



PROG ID 
PAGE 



08 1 1-A 
36A 



v*. : 
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DATE 
EC NO. 






IBIS 





0000 


T*2K0 


DC 





1816 





CSC5 


T42K1 


DC 


/C5C5 


1817 





010? 


T42K2 


DC 


/Ol 02 


leie 





00C3 


T42K3 


DC 


200 


1819 





ocoo 


T42K4 

* 
* 


DC 


/OCOO 


iaiA 





001 


* 
* 
T42FT 


DC 


1 


lb'H 





40 IP 




DC 


/4C2 


161C 


1 


0B5C 




DC 


CO 



IBID 0004 
181E 4039 
18 IF 1 08D0 



1820 0001 
1H21 OOOB 
1822 1 1O10 



1823 0012 

1824 4015 

1825 1 09I1C 



1B26 00D2 
1B27 001D 
1828 1 09C6 



1829 0001 
1B2A 401F 
182B 1 085C 



182C 0005 
182D 481A 
182E 1 0A30 



182F 0008 

1830 4012 

1831 1 0A30 



1B3S 0001 
1836 OOOB 



WHITE PATTERN 

REC NO., KEY LENGTH 

DATA LENGTH 

CHAN AND OEV END 



BYTE 



/4C '256+SF ILM FLAGS 
ADDRESS 



COUNT 

AND 



OP CODE 



**************************** **#**v.*s***** ********** 



T42C1 



DC 
DC 
DC 



4 BYTE COUI^T 

/40*256+SPCH» FLAGS AH) 
HA ADDRESS 



*******#*****************************#»************ 



DC 


1 


BYTE COUNT 


DC 


0*256+OP1 


:L FLAGS AND OP 


DC 


T42C1 


ADD RESS 



******************** 



♦ ♦♦it***************************. 

* 

DC 18 BYTE COUNT 

DC /40*256+WRR0 FLAGS AND OP CODE 

DC RAREA ADliRESS 



DC 

OC 

C 



210 

0*256+ WRCKO 
T42W1 



BYTE COUNT 
FLAGS AND OP CODE 
ADDRESS 



************************************* »****>((******** 

* 

* 

* 

T42R1 



DC 
DC 
DC 



1 




BYTE CO'Jt~ 


IT 


/40S256+ 


SF 


ILM FLAGS 


AND 


CO 




ADDRESS 





OP CODE 



****** 

* 



•*****»*******************»******************. 



DC 
DC 
DC 



5 BYTE COUNT 

/48*2S6+R>HA FLAGS AND OP CODE 
T42HA ADDRESS 



it************************************************* 



DC 
DC 

DC 



8 BYTE COUNT 

/40*256+RDCNT FLAGS AND OP CODE 
T42HA ADD RES 5 



1832 





0002 


T42C2 DC 


2 


1B33 





4029 


DC 


/40* 


1834 


1 


00 ie 


DC 


Kl 



*************************************************** 



BYTE COUNT 
;S6+SRKCQ FLAGS AND OP CODE 
ADDRESS 



*************************************************** 

* 

OC 1 BYTE COUNT 

DC 0*256+0;*TIC FLAGS AND OP CODE 



81 148980 
8 1 1 48990 
81 149000 
81 149010 
81 149020 
81 1 49030 
81 149040 
811 49050 
81 149060 
81149070 
61 149080 
81149090 
81 149100 
81 1491 10 
81 149120 
ail 491 30 
81 149140 
8 11 49150 
81 149160 
Mil 49170 
811491 80 
81149190 
81 149200 
31149210 
81 149220 
811492 30 
Bl I 49240 
81 1 49250 
81 149260 
81149270 
81 149200 
81149290 
81 149300 
81149310 
81 149320 
81149330 
81 149340 
81149350 
81 149360 
81149370 
81 1493B0 
81149390 
81 149400 
81149410 
Bl 149420 
8 1 149430 
81 149440 
Sll 49450 
81 149460 
811494 70 
81 149480 
81 149490 
81 149500 
8 1149510 
81 149620 
81149530 
81 149540 
81149550 
81 149560 
8 1149570 
81 149580 
8 11 49590 
81 149600 
81149610 
81 149620 
8 1149630 
81 149640 
8 1 149650 
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o 



1837 1 1832 



1838 OOCB 

1839 0006 
1B3A 1 09Ct) 



183B 0001 
183C 401F 
183D 1 085C 



183E 0005 
183F O 481A 
1840 1 OA30 



184 1 OOOB 

1842 4012 

1843 1 0A30 



1844 0002 

1845 4029 
184 6 1 0116 



1847 0001 
184B 0008 
1B49 1 1844 



184A 00C8 
184B 0005 
184C 1 09CB 



DC 



T42C2 



ADDRESS 



DAVE 
EC NO. 



*************************************************** 
* 

DC 200 BYTE COUNT 

DC 0*256+R0DAT FLAGS AND OP CODE 

DC T42RD ADDRESS 

* 

********************************* 
* 
T42W2 DC 1 BYTE COUNT 

DC /40*256+SFILM FLAGS AND OP CODE 

DC CO ADDRESS 

* 

********************************* 
* 

DC 5 BYTE COUNT 

DC /48*266+RDFA FLAGS AN3 OP CODE 

DC T42HA ADDRESS 

* 
********************************* 



DC 
DC 
DC 



8 BYTE COUNT 

/40*256+KDCNT FLAGS AND OP CODE 
T42HA AUDRESS 



********************************* 

* 

T42C3 DC 2 BYTE COUNT 

DC /40*256+SRKLQ FLAGS AND OP CODE 

DC Kl ADDRESS 

* 
***»****>/**«********************* 



OP CODE 



DC 


1 BYTE COUNT 


DC 


0*256-". OPTIC FLAGS AND 


DC 


T42C3 ADORES 



********. X ************* *********** 



DC 


200 


BYTE COUNT 


DC 


0*256+WRO AT 


FLAGS AM> (A 


DC 


T42RO 


ADDRESS 



CODE 



********************************* 
* 

******************************* ****************** 4 

* 

* ROUTINE — 3-- READ IPL RECORD 

* 

************************************************** 

* 



ROUTINE WRITES RO AND Rl IN CYL 000 
0, VERIFIES THAT Rl CAN BE READ. AND 
PERFORMS A READ IPL AND COMPARES 
THE Rl SEAO DURING THE VERIFICATION. 



164D 

184D 1 7401 0815 

184F 1 4C18 1854 



* 

* THIS 

* HE AD 

* THEN 

* WITH 
* 
* 
************** v ******** ************ **************** 

* * 

H:****^ *************** ********************** ******** 
**************** ************ii.» ********************* 

* * 
*************************************************** 

T4301 EOU * TEST ENTRY POINT 

MO X L TRID.l BUMP RTN ID 
BZ T4302 BR IF TEST NUMBER ZERO 



8 1149660 
81 149670 
81 149680 
81 149690 
81149700 
81 149710 
81149720 
81 149730 
811 49740 
81149750 
8) 149760 
81 149770 
811 49700 
81 149790 
81149800 
81 149810 
811 49620 
81 149830 
81149840 
81 149B50 
81149860 
ei 149870 
811 49880 
Sll'9890 
811 49900 
81 149910 
61149920 
81 149930 
61 1 49940 
81 149950 
Bl 149960 
81 149970 
8 1149980 
81 14999 
81 150000 
SI 150010 
8 1150020 
81 1500 30 
81150040 
61 1500 50 
81150060 
61150070 
6! 1 500 BO 
8 1 1 500 90 
81 1 50100 
81150110 
■i 1 1 50120 
8 1 1 50 1 30 
81150140 
81 150150 
RU50160 
Bl 150170 
81 1501 80 
81 150190 
8 1 I 50200 
81 150210 
81150220 
81 150 2 30 
ft 1150240 
81 1602 50 
81 1 50260 
Bl 150270 
81150280 
Bl 150290 
81 I 50 300 
81 160310 
81150320 
81150 330 
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, 8 00 DIAGNOSTIC MAINTENANCE PROGRAM 
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PAGE 36 I ,^ 2oaj 01 AGNOSTIC - PHASE A 

"*' <T,r MAINTENANCE PROGRAM _..,..„,„ 



1651 9 297 
1652 1 4C20 1925 

1854 C2ft3 

1855 100A 
1056 1 «C10 1»5A 
1658 4209 
18S9 1 18E6 

185A 42EB 

165B 1010 
1B5C O D2C0 

I860 1 6b00 0A7F 
1B6F O 6307 
IBeO 18iO 

\861 0100 
1662 710 1 
1603 C 73PF 
1864 70FC 



1865 C29A 

1866 1 0400 0AO2 



1866 10AO 

1B69 1 OCOO 0A22 

166B CEAA 
1B6C 1 0400 0A24 

186E 1 C400 1902 
1870 1 0400 0A25 

1872 1 t>500 0A26 

1074 630C 

1L75 1 C4 00 1903 

1877 DIOO 

1070 7 10 1 

1879 7MI-F 

107A 70FC 



187B 1 6500 1BF6 
1870 1 6.-00 19E9 

187F 1 6600 1009 
1881 1 6DO0 1C7 1 

1883 42FA 

1884 1 1904 



S 

bNZ 
» 
T430 2 LD 

SLA 
BNN 
US I 
DC 
* 

T4303 tSSl 
* 

SLA 
STO 



2 Kl-TB 
T4401 



DECREMENT BY ONE 
BH IF NOT THIS TEST 



2 TS * -TB GET OPTION MS 

OTTLE PRINT TITLES 

T4303 BR IF NOT SET 

2 tlgms-tb go to print routine 



TTL43 
2 &ETDV-TB 

16 
2 LRKSW-TfJ 



MESSAGE .ADDRESS 

0ET CHANNEL FOR R1N 

CLEAR ACC 

RESET ERROR SWITCH 



FWA FOR RO 
W.C. 



T4304 LOX LI T43R0 
. ""Ll'Uo I N DESIGNATE, FIELD 



aTORF TWO BYTES 

,KDR. STORAGE ADDRESS 
DECR. WORD COUNT 

CYCLE UNTIL FIELD FILLED 



EST. DATA LENGTH RO 
RO IS NOW FORMATTED 





STO 


1 




MDX 


1 +1 




MD X 


3 -1 




MDX 


*-4 


* 






* 








LD 


2 K6-TB 




STO 


L WAREA+ 



SLT 
STD 


32 
L WAREA 


LD 
STO 


2 H0100-TI! 
L WAREA+2 


LD 
'.TO 


L T43K1 
1, WAREA+3 



CYL 000 H) 



tS T. i'EC NO.. KEY L. 
EST. DATA LENGTH Rl 



HI DATA FWA 

s ,„„ £ C5C5*DATA PATTERN 

STORES A-W-G IN DESIGNATED HELD 

STORES A twq nYTC1 . 

S> T0 J ° IM >,<. STORAGE ADDRESS 

MDX \ *\ DECR. WORD COUNT 

WX 3 ;_ 4 CYCLE UNTIL FIELD F 1 LI 
MDX *"4 



LDX LI WAREA+4 

LDX 3 12 

cD l T43K2 



* 
# 

* 



R1--IPL" IS NOW FORMATTED 



LDX LI T43T1 

&TX LI WTADR 

LOX LI T43E1 

STX LI ERADR 



bSI 

DC 



2 SIO-TB 
T43W1 



* 
* 
* 
* 

* 

* 



1885 C230 

1886 1 4C10 IH«» 



w 


DAT 


E 




EC 


NO. 


r- 






w 






r 







14N0V69 
431319 



30JAN70 
431319A 



LD 
bNN 



15SFP71 
43132B 



2 SCSXO-TB 
T430S 



E ST. Tint OUT AD DR. 

EST. ERROR RETURN 

CALL SIO ROUTINE 

CCW ADDRESS 
1. SET FILE "ASK 
Z. SEEK CYL 000 HU 
3. SEARCH HA EOUAL 
A. 1 1C *-» 

5 . WRITE RO 

6. WRITE Rl CIPL) 

7. READ RO 

8. REAJ Rl (RAREA) 
CHAN STATUS 

C0NTU4UE IF OPERAT 



81 11,0340 
81150350 
81 150360 
8 1150 370 
81150380 
81150390 
81 15U400 
81150410 
81 150 4 20 
81150430 
81 150440 
811 50450 
81 1 50460 
81150470 
81 150480 
81150 4 90 
81 150 50 
8 11 50510 
81150 52 
81150 530 
81 150 54 
81150 550 
81)50 560 
81150570 
81 150 5 SO 
81150590 
81 ! 50600 
81150610 
81150620 
01150630 
61 150 64 
Oil 50 650 
81150660 
81150670 
81 150680 
81 150690 
81150700 
811 50710 
81 150720 
61150730 
81 1 50740 
8 1150750 
81 150760 
81 150770 
811', 0780 
iD 01)50790 

B1150B0 
8)150810 
8115082 
01150830 
81 15084 
811501150 
81 160660 
8)150870 
01160060 
81)50890 
81 150900 
8 1150910 
81 150920 
81150930 
81 150940 
6)1 50950 
81 150960 
81)50970 
8) )50980 
8 1)50990 
81 )51000 
10NAL 81151010 



PROG ID 
PAGE 



,800 DIAGNOSTIC MAINTENANCE PROGRAM 



W 



1688 42E5 
1869 6306 
1BBA 4302 



)68B C23E 
I BBC 100E . 
188D 1 4C10 1692 

1B8F 42E5 

1890 8327 

1891 4303 



DC '"°, MSG NO OR ADDRESS 

DC /4302 thick LOOP ERROR 

PRINT CHAN NOT OP. Al-O CHECK 



T4305 ID 

SLA 
bNN 

* 

BSI 

DC 

DC 



SCSX0+1-T6 

UNCHK 

T4306 



EROUT-TB 

/83Z7 

/4303 



UNIT STATUS 
LOOK AT UNIT CHECK 

CALL ERROR OUT Ru-HINE 
FLAG BI fS 
MS& NO OR ADDRESS^ 



1892 1 6500 0A26 

1894 1 6700 09CO 

1B96 C.Ot'rf 

1097 1601 

1698 DCOA 
1899 O C100 

189A E300 

109H 1 4C20 1HA4 

189D 7)0) 

1B9E O 7301 

169F 1 74FF 16A3 

1BA1 70E6 
16A2 7001 

18A3 0000 

18 A4 1 4C16 16AB 

18A6 42E5 
18A7 8127 
18A8 4304 

1BA9 C.000 
18AA D2C0 

18AB I 6500 0A26 
18AD 630C 
18AE. 1610 

18AE DIOO 

1BH0 7 101 

1BB1 73EF 

18B2 70FC 



18B3 1 6500 16F9 

16B5 1 WO lC,E9 

i8B7 42F4 

18B8 1 191 C 



18B9 C23E 
1BBA 100t 
16BU 1 4C10 16C2 

18BD 42E5 
1BBE 8127 
18BF 4306 



* 
* 

T4306 LDX 
LDX 



PRINT UNIT 



mo VI "u r 

CH£CK AND CHECK LOOP ERROR 



LD 

SRA 



LI WAREA+4 
L3 RAREA+4 
T43K1 

1 



FWA OF Rl WRITTEN 
FWA OF Rl HEAD 
W.C . 



COMPARED TWO FIELDS 



SIO 

LD 

EOR 

BSC 

MDX 

MDX 

MDX 

MDX 

MDX 

DC 

B7. 



BSI 
DC 
DC 
Rl 

LD 
STO 



«+ 1 
1 
3 O 
L * + 7 tZ 
1 +1 
3 +1 
L * +2.-1 
*-l 
»+l 



14307 

EROUT-TB 

/8127 

/4304 



E ST. LOOP COUNTER 

AREA1 WORD 

ARFA2 WORD 

HR. ON NON-COMPARE 

INCH. AHEA1 ADDR. 

INCR. AREA2 ADDR. 
DECR. LOOP COUNT 

CYCLE THROUGH FIELD 

B p. AROUND LOOP COUNTER 

LOOP COUNTER 

BR. OVER ERROR IF COMPA. 

CALL ERROR OUT ROUTINE 
I LAG BITS 
rtSG NO OR ADORE' ' 



61151C20 
81 151030 
81151040 
81151050 
81151060 
81151070 
Bll 510B0 
81 151090 
8)151 100 
81151110 
81151120 
81 151130 
B115) 140 
81151150 
81151160 
0)151170 
Oil 51160 
bl 1 51 190 
8 1 ) 6>.?00 
0) 151210 
8 1 I 5 1 ;-2o 

01 ) 512 30 
8 11512 4 
0) 151250 
81151260 
8) 15)2 70 
81)51280 
0) 151290 
01151300 
81151310 
61151320 
1 81 )51330 
_ 81)61340 
8) 151350 
01151 360 
0115! 37 



,itf Kin [m *>ij urn- -' -' 



T4307 LDX 
LDX 
SRA 



1 FRR5W-1B 

LI WAREA+4 
3 12 
If 



GUT A VALUE 

SET ERROR SWITCH 

FWA Or IPL INPUT AREA 

W.C . 

A EOUAL ZERO 



trnRES A-REG IN DESICCATED FIELD 
ST0RE5 R <-r. ,,.„>,- T »jn BYTES 



STO 
MDX 

Mil X 
MDX 



1 
1 +1 
3 -1 

*-4 



* 
* 

# 



IPL INPUT AREA 



LDX 
STX 

US I 

DC 



LI T43T2 
LI WTADR 

2 SIO-TB 
T43IP 



^TORE TWO BYTES 

INDR. STORAGE ADDRESS 

DECR. WORD COUNT 

CYCLE UNTIL FIELD FILLED 



EST. TIMEOUT ADDR. 



LD 
SLA 

BNN 



SCSXO+l 

UNCHK.. 

T4308 



-TB 



BSI 

DC 

DC 



EROUT-TB 

/8127 

/4306 



PRINT UNIT CHECK ERROR 



CALL SIO ROUTINE 
CCW ADDRESS 

1. SEEK CYL 100 HO 9 

2. READ IPL (RAREA) 

3. NOP 
UNIT STATUS 

i£,sr.: srs» ««. j;; : . iS: 

CALL ERROR OUT ROUTINE 
PLAG BITS 
MSG NO OR ADDRESS 



81151390 

8) ) 51400 

8) )51410 

61151420 

81 151 430 

8il51440 

Bl 151450 

61151460 

81151470 

1)5)480 

Bl 151490 

81)51500 

81151510 

81151520 

81 151530 

81151540 

81151550 

81)51560 

81151570 

61151580 

8) 151690 

811 51600 

81151610 

6)151620 

81161630 



81151660 
81 151670 
81151660 
81151690 



.^\ 



081 1-A 
38 



DATE 
EC NO. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2841 DIAGNOSTIC 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



1921 1 0A26 



1922 0001 

1923 2003 

1924 1 1925 



DC 



T43R1 



ADDRESS 



*************** 



1925 42DP 






*********************************** 

* 

DC 1 BYTE COUNT 

DC /20»256+OPNOP FLAGS AND OP CODE 

DC * ADORFSS 

* 

************************************************** 

* * 

* SECTION END 

* 

T4401 tlSI 2 CNTRL-TB GO TO CONTROL RTN 

************* *************** v .*************»***»«*** 

* * 

*************************************************** 



1926 0005 

1927 O orioo 



19J-8 C2BB 
1929 1 4C18 



* 
* 
T50PR 

* 
T50NT 



SECTION PREFACE 



1933 



192B 
192C 1 
192E 
192F 1 
1931 
1032 O 

1933 

1934 1 

1935 1 

1937 

1938 



C20C 

4C18 1945 

9 OK H 

4C30 0H21 

8 Of- 5 

7012 

4 209 

193A 

7401 0862 

1000 

4C80 012F 



193A 0009 

1943 .-"FOO 

1944 FFFF 



T50EN 



* 
T50F.R 



DC 
DC 

LD 

az 

LD 
BZ 

s 

BP 
A 

MDX 
BSI 

re 

OK 
NOP 
BSC 

PR NT 

DC 

DC 



/ooos 
o 

2 TSCTN-TB 
T50EN 

2 TRTNN-TB 
T5I01 
TSOPR+l 
TCNER 
TSOPR+l 
TS101 
2 TLGMS-TB 
T50ER 
L PSCNT.I 

1 END 

. ** END 

/FFOO 

/FFFF 



SECTION NUMBER 



5W FNC 1 BITS 12-15 

BR IF RUN ALL RTNS 

TEST FOR VALID 

BR IF INVALID RTN NUMBER 

RESTORE RTN NUMBER 

GO TO FIRST RTN 

PRINT END OF TEST 



MSG 



BUMP PASS CNTR 
IN CASK OF SKIP 
GO TO MONITOR END 

UF DFT **. 



1945 42DF 



* * 
*********»************************************'»**** 
* 

*********»*******«,****»*****************»********** 

* » 
*************************************************** 

* 

* SECTION END 

* 

T5101 BSI 2 CNTRL-TB GO TO CONTROL RTN 

it************************************************* 

* * 

******************************* ********* *********** 



194 6 







GTDVF 

* 

GTOVl 


LOU 




* 




GET D IV ICE ROUTINE 


1946 





4?F7 


BSI 


2 


STMLS- 


TB 




1947 





4480 0131 




BSI 


I 


REQOV 






1949 


1 


1946 




DC 




GTDVl 




BUSY RETURN 


194A 


1 


0814 




DC 




TSCCD 




SEL CHN ED I T 


194B 


1 


08F9 




DC 




TSCAC 




SFL CHN AREA CODE 


194C 


1 


080C 


* 


DC 




TERM 




TERMINATOR 


194D 





C2AC 


LD 


2 


H0400- 


■TH 


BUILD HALT I/O IOCC 


194E 





EA7A 




OR 


2 


TSCAC- 


-TO 


OR IN AREA CODE 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SFP71 
431328 
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61 153060 
61153070 
81 153080 
8 1 1 53090 
81 1 53100 
81 1531 10 
81153120 
81153130 
81 1 53140 
811531 50 
81 1 53160 
811531 7& 
81 153180 
81153190 
8 1 153200 
81153210 
8 1 1 £3220 
81 1 532 30 
81 1 53240 
811 53250 
81 153260 
811 53270 
81153280 
31 1 53290 
81 153300 
81153310 
81 15332C 
81153330 
81 153340 
811 53350 
61 153360 
81153370 
81 153380 
81153390 
81 163400 
81 1 53410 
81 153420 
81153430 
81 153440 
81153450 
81 153460 
81153470 
81 153480 
811 53490 
81 153500 
81153510 
81153520 
81153530 
81 153540 
8 1163550 
81 153560 
81153670 
•Jl 163680 
8 1 153590 
81 ! 53610 
8 1163610 
81 163620 
81153630 
81 153640 
81153650 
81 1 53660 
81163670 
81 153680 
81153690 
81 163700 
81153710 
81 153720 
81153730 
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.- IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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1800 DIAGNOSTIC MAINTENANCE PPOGRA! 



oooooooc 

PART NO. 2279?71 ^^ ^^ ^ 



/*"\ 
•-i^ 






-*ij/ 

-"*% 



194F F.AD0 
1950 D22C 



1951 EAAA 

1952 D230 



19S3 D22A 



'■Jf DATE 

EC NO. 






1954 





D22E 


1965 





C2AE 


1966 





EA7A 


1957 





1808 


1968 





1008 


1969 





629A 


195A 





D23C 


195B 





8298 


195C 





D232 


191.0 





8297 


195E 





D234 


195F 





8297 


1960 





D236 


1961 





8297 


1962 





D238 


1963 





8297 


1964 





D23A 


1V66 





D279 



1966 1 AC.80 086A 



OR 


2 


DVAOR-TB *** 


STO 


2 


H10XX+1-TB *** 


OR 


2 


H0100-TB BUILD START 1/0 IOCC 


STO 


2 


S10XX+1-TB *** 


STO 


2 


TIOXX+1-TB BUILD TEST I/O IOCC 


STO 


2 


SENSE+1-TB SET FOR SENSE IOCC 


LD 


2 


H0700-TB BUILD SENSE CHANNL.- 


OR 


2 


TSCAC-TB * STATUS IOCC'S 


SRA 




a 


SLA 




8 __ 


A 


2 


K6-TB 


STO 


? 


SCSN5+1-TB = 06 


A 


2 


K2-TB 


STO 


2 


SCSNO< 1-TB *** = 08 


A 


2 


Kl-TB 


STO 


2 


SCSM1+1-TB = 09 


A 


2 


Kl-TB 


STO 


2 


SCSN2+1-TB = OA 


A 


2 


Kl-TB 


STO 


2 


SCSN3+1-TB = OB 


A 


2 


Kl-TB 


STO 


2 


SCSN4+1-TB = OC 


STO 


2 


SC1SW-TB SET INT SW 


BSC 


I 


GF.TDV RETURN 


************+****»**************************** 



1968 4480 0132 

196A 1 0814 

196B 1 080C 

196C 10 10 

1960 O D279 

196E 1 4C80 0867 



*****»«*«** i**#*****» ft***************************** 

*****<> 4- -4******** ******** a********************** * *** 
* * 

**** ** * **** ******************* * ******** *********** 

* 

PROVE BSI I RtLOV RELEASE DEVICE 

DC TSCED SEL CHN EDIT 

OC TERM TERMINATOR 

* 

SLA 16 RESET- 

STO 2 SCISW-TB INTERRUPT SW 

BSC I FREDV RFTURN 

*************** 
* 

* 

CALL *************** 

* BSI 2 S10-TH * 

* DC CCWADR * 

* * * * * ****** ******* 



************* '****»********«;******* 



.*«*«******************* 



* 
* 
* 
* 
* 

****************** * «**** ************ *************** 

* * 

**«*******************•**«*************.************ 



1970 









1970 





6920 




1971 





6B21 




1972 


1 


6780 


087 3 


19/4 


1 


7401 


0873 


1976 





1000 




1977 





C300 




1978 





D22F 




1979 





D2C1 




197A 





10A0 




197B 





DA3D 




197C 





DA3F 





SIONT 


EOU 




* 


ENTRY POINT 




STX 


1 


SI0X1+1 


SAVE REGS 




STX 


3 


SI0X1+3 


*** 




LDX 


13 


SIO 


GET CALLING ADDRESS 




MDX 


L 


SlO.l 


BUMP FOR RETURN 




NOP 










LO 


3 





GET CCW ADDRESS 




STO 


2 


SIOXX-TB 


SET FOR XIO 


* 

SI 001 


STO 


2 


CAWSV-TB 


SAVE FOR POSSIBLE P 


SLT 




32 


CLEAR CSW 




STD 


2 


SCSXO--TB 


** 




STD 


2 


SCSX0+2-TU 


** 



PRINTS 



PAGE 



8) 163740 
81 153750 
61153 760 
81 153770 
81153780 
81 153790 
61153800 
81 1 53810 
81153820 
81 153830 
81153840 
81 1 53850 
81153860 
61 153870 
811 53880 
81'53890 
61153900 
8 1 1 539 1 O 
81 153920 
81 1639 30 
81153940 
81 153950 
81153960 
81 163970 
8 1 1 63980 
81 153990 
81154000 
81 1540 10 
811-34020 
8 1 1 540 30 
8 11 54040 
81 164060 
81 1 54 60 
81 154070 
8 1 164 80 
61 154090 
8 1154 100 
61 154 1 10 
81154120 
61 164 130 
61 154140 
81 164150 
811 54160 
81 1541 70 
8 1154100 
81 164 1 90 
6 1 1 54200 
61164210 
61164220 
81 154 230 
811 64240 
81 154250 
81154260 
61 154270 
811 54280 
81 154290 
81154300 
81 154310 
81154320 
81154330 
811 54340 
61 154350 
01154360 
81 164 370 
61 1 64380 
81 154390 
61154400 
61 154410 
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2641 DIAGNOSTIC - PHASE A 
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197D D277 






STO 


2 


WIOSW-TB 


CLEAR WAIT SW 




81 151420 








* 












81154430 


197E 


0A2F 




* 


XIO 


2 


S10XX-TB 


00 THE START 1/0 




01 154440 
8 1 1 54450 


197F 


0A31 






X10 


2 


SCSNO-TB 


GET CHANNEL STATUS 




81 154460 


1980 


023! 




* 


STO 


2 


SCSNO-TB 


SAVE FOR LATER EXAM 




81 1 54470 
81 154480 


198 1 


7006 






MDX 




S I 003 


GO TEST FOR ERRORS 




811 54490 








* 


LOUP ON 


T10 UNTIL DEVICE END 




81 154 500 


1982 


4203 




SI 002 

« 


esi 


i 


TIO-TB 


GO DO A T 10 




81154510 
81 1 54520 


19b - } 


C246 






LD 


2 


SCt 8+1-TB 


GET UNIT STATUS 




8 1 1 54530 


1964 


10CB 






SLA 




UNBZY 


TEST FOR BUSY 




81 154540 


1985 1 


4C26 1982 




UN 




SI002 


BR IF STILL BUSY 




81154 550 


1987 


7 Of 2 




* 


MDX 




SI 001 


GO DO THE SIO AGAIN 




81 154560 
61154570 


19H8 


C231 




SI 00 3 


LD 


2 


SCSNO-TB 


GET CHAN STATUS 




81 154560 


1989 


1007 






SLA 




SCABZ 


TEST FOR BUSY 




8 1 1 54 590 


19BA 1 


4C10 1998 




BNN 




SIOOS 


BRANCH IF NOT NE G 




81 154600 








* 


CMD ACCEPT tij 






61154 610 


198C 


C2D1 




SI 00 4 


LD 


2 SIOSW-TB 


GET SIO SW 




61 154 62 


198D 1 


4C26 1990 




JBN 




SI0X1 


BR IF SET 




8 1154630 








* 












8 1 154 64 


198F 


4047 






BS1 




WAITT 


GO WAIT FOR DE OR UNIT 


CHK 81154650 








* 












81 154 660 


19',0 


6500 0000 


SI0X1 


LD>. 


L 


*-* 


RESTORE REGS 




81154670 


1992 


6700 0000 




LDX 


L3 *-* 


*** 




81 15468G 


1994 


1010 






SLA 




16 


RESET SIO SW 




8 1154690 


1990 


021>1 






STO 




2 SIOSW-TB 


* 




81 154700 


1996 1 


»CfsO 0673 




BSC 


I 


S!0 


THEN EXIT 




8 1154 710 








* 












81 154720 


1998 CJ-D1 




S100B LD 




2 SIOSW-TB 


GET CMTRL SW 




811 54 730 


1999 100 1 






SLA 




1 


TEST FOR EXIT EVEN 


IF 


ERR 81154740 


199 A 1 


4C2C 1990 




BN 




S1GX1 


BR IF SET 




811 54 750 








» 












81 154760 


199C CAC5 






LDD 




2 TYP2-TB 


'SIO • 




81154770 


199D DA63 






..TO 




2 STSER+6-T 


.' SET IN MSG 




81 1547B0 


199E 


! '.400 1E8E 




BS1 


L 


TCV5R 


GET SECT/RTN NUMBERS 


811 54790 


19A0 


» D267 






STO 




2 STSER+10- 


TB 




81 15480 


19A1 


1090 






SLT 




16 






81154810 


19A2 


f 26A 






STC 




2 STSER+13- 


TB SET IN MSG 




81154 62 


19A3 


C231 






LD 




2 SCSNO-TB 


GET CHAN STATUS 




811 54 830 


19A4 


1 4C10 


19AE 




BNN 




S1006 


BR IF NOT OPER IS 


NOT 


SET 81154 840 








* 


NOT 


OPE RAT I DUAL 






811 54 850 


19A6 


C»A5 






LD 




2 H(.C13-TB 


GET MSG NUMBER 




61 154 860 


19A7 


4?i-A 






B5U 




2 TCVBI.-TB 


CONVERT TO PRNT CODE 


81154870 


19A« 


10 f <0 






SLT 




16 


SAVE ONLY 




81 154 680 


19A9 


026O 






STO 




2 5T5ER-TB 


SET IN MSG 




81154890 


19AA 


42E5 






BSI 




2 EROUT-TB 


PRINT ERROR MSG 




81 154900 


19AB 


0108 






DC 




/0108 


TAGS AM) OPTIONS 




8 11 54910 


19 AC 


1 0",DC 






DC 




STSER 


MSG ADDRESS 




81 154920 


19 AD 


7023 




* 


MDX 




SI 009 


LOOP 




61154930 
61 15494 


19AE 


1007 




St 006 SLA 




SCABZ 


TFS1 FOR ADAPTER 


BUSY 


61154950 


19AF 


1 4C1C 


19BA 




BNN 




S1007 


BR IF NOT 




61 I 5*9 60 


19B1 


C2A4 






LD 




2 H0011-TB 


SET MSG NUMBER 




81154970 


19B2 


829? 






A 




2 Kl-TB 






81 154980 


19B3 


42FA 






BSI 




2 TCVBE-TO 


CONVERT 




8 1 1 54990 


19B4 


1090 






SLT 




16 


ONLY 




81 155000 


19B5 


0260 






STO 




2 STSER-TB 


SET IN MSG 




81155010 


19B6 


42ES 






BSI 




2 EP0U1-T6 


CALL ERROR PRINT 


RTN 


81 155020 


19b7 


01 Of, 






DC 




/Ol OC 


MESSAGE TAGS AND 


OPT 


ONS 811550 30 


19B8 


1 060C 






DC 




STSER 


MSG ADDRESS 




61 155040 


19B9 


7017 




* 


MDX 




SIOO? 


* 




81155050 
81 155060 


19BA 


C231 




SI 007 LD 




2 SCSNO-TB GET CHAN STATUS 




811550 70 


19BB 


100 1 






SLA 


SCUSP 


UNIT STATUS PENDING 


61 1550 80 


19BC 


I 4C10 


198C 




BNK 




SI 004 


BR IF NOT SET 




81155090 



DATE 
EC. NO . 
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PART NO. 
PAGE 



227947! 
41 A 



1600 DIAGNOSTIC MAINTENANCE PROGRAM 






'■■*.* 






PROG ID 


08 1 1 - A 


''■eat* 


OATE 


PAGE 


41 


**"> 


EC NO 



v., 



19BE 

19BF 

I9C0 

19C1 1 



19C6 
19C7 
19C6 1 



42EE 

CA25 

109F 

4C10 19CA 
19C3 1 6780 08AE 
19C5 C301 

F2A5 

1008 

4C18 197A 



19CA 
19CB 
19CC 
19CD 
19CE 
19CF 
19D0 1 



C2A4 

42FA 
1090 
D250 
42E5 
1 OF 
08DC 



19D1 C283 
1902 100B 
19D3 ) 4C28 1962 

19D5 O 4200 
19D6 O 70AB 



BSI 

LDD 

SLT 

BNN 

LDX 

LD 

EflR 

SLA 

BZ 

* 

SI006 LD 
BSI 
SLT 
STO 
BSI 
DC 

oc 

* 

SI 009 LD 
SLA 
BN 

* 

BSI 
MDX 



13 

3 



GETSN-TB 

SNWOS-TB 

FSK1N 

SIOOS 

SIOXX 

1 

H0013-TB 

8 

SI001 

H001 1-TB 

TCVHE-TB 

16 

STSER-TB 

EROUT-TB 

/010F 

STSER 

TSWO-TB 

ORTRV 

SI002 

: THALT-TB 
S1002 



ELSE GET SENSE INFO 

GET SENSE WORDS 

TEST FOR SEEK INCOMPLETE 

BR IF NOT SET 

GET CCW ADDRESS 

GET FLAGS Af« OP CODE 

TEST FOR RECALIBRATE 

RETRY IF SO 

SET ERR NUMBER 

CONVERT 

G ONLY 

SET IN MSG 

CALL MSG RTN 

TAGS AND OPTIONS 

MSG ADDRESS 

GET SW FNC 

TEST FOR RETRY SIO 

BR IF YES 

GO WAIT FOR OPERATOR 
LOOP 



***.***•*£&*****£ >>******************!?■* ********* 



******* 

* * 
**************** *********************** <r ************ 

* WAIT FOR DEVICE END FROM START 1/0 



19D7 0000 
1906 O C28D 
19D9 02BA 

19DA O 4203 

19DB C246 

19DC 100B 

19DD 1 4C2B 19E3 

19DF O 1010 

19E0 D2D5 

19F1 1 4C60 1V07 

!9t:3 42F7 

19L4 1 74CE 0839 

I 91; 6 O 7 OF 3 

19E7 1 4C80 19E9 

19L9 O 0000 



19EA 

19EA )0 10 

19EB D276 

19EC D233 

19ED 0A31 

19EE O 1007 

19EF 1 4C10 IA02 

19FI 0A3B 

19F2 42F7 



811SS100 
81 iiSl 10 
81155120 
81155130 
81155140 
81 155150 
81155160 
61 166170 
81155180 
81 155190 
81155200 
81155210 
81155220 
6! 1552 30 
81155240 
81155250 
81 165;; 60 
61155270 
6 11552 60 
81 155290 
81155300 
81155310 
61155320 
6! 155330 
81! 56340 
8 1 155350 
61! 66'360 
8! 155370 
81155380 
81156390 
81165400 
81165410 
81155420 
61 155430 
81 [66440 
81 1664 50 
81165460 
81155470 
81 156480 
81 155490 
61166600 
Pi! 566 10 
81 i 665?0 
61 1665 30 
81 155640 
nt 156550 
81! 66560 
6! .56670 
8ii 6 6500 
61165590 
6 U 66600 
61155610 

* 61155620 

* 61156630 
*************i>*»****** ****************************** 6 1! 5564 

* * 81156650 
if************************************************** 6 51 65 660 

81 165670 
81155680 
61155690 
61156700 
61155710 
81166720 
6f 16S730 
6S» 56740 
«f 166750 
65155760 
«1 155770 



WAITT 


DC 




*-* 






LD - 


2 


TERM-TB 


GET COUNTER FOR LOOP 


* 
WAITl 

* 


STO 


2 


CNTDN-TB 


SET Fon I OOP 


BSI 


2 


TIO-TB 


GO DO A TEST I/O 


LD 


2 


SCSX8+1-TB 


GET UNIT STATUS 




SLA 




UNB7Y 


1E6T FOR UNIT BUSY 




BN 




VSAI12 


BR TO WAIT IF ON 




SLA 




1 (> 


ELSE CLEAR TIO SW 




STO 


2 


T IOSW-TB 


* 




BSC 


I 


WAITT 


EXIT IF NOf BUSY 


* 
WAIT2 


BSI 


2 


STMl.S-TB 


GO 1(1 MONITOR 




MD X 


L 


CNTDN.-50 


COUNT TIME 




MDX 




WAITl 


LOOP 




BSC 


1 


WTADR 


GO TO TIME OUT ADDRESS 


WTADR 


DC 




*-* 


TIMEOUT AIVJRE SS 



***tffc********J?*****#*************** ******#*#******* 
* * 

****** ^^fr***^***********:?**************** 1 ******** 



TIONT 


EOU 


* 


ENTRY FOR XFER VECTOR 




SLA 


16 


CLEAR- 




STO 


2 WAT6W-TB 


* 




STO 


2 SCSNI-TB 


» LOOP COUNTER 


* 


WA I T 


FOR ADAPTER 


NOT BUSY 


TIO01 


XIO 


2 SCSNO-TB 


GET CHAN. STATUS WORD 




SLA 


SCABZ 


TEST FOR ADAPTER BUSY 




BNN 


T1002 


BR IF NOT 




XIO 


2 SCSN5-TB 


ALLOW POLLING 


* 


BSI 


2 STMLS-TB 


GO TO MONITOR 
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1600 DIAGNOSTIC MAINTENANCE PROGRAM 

19F3 1 7432 08B2 MD X 

19F5 7 OF 7 MOX 

19F6 0A33 XIO 

19F7 D249 STO 

19F8 0A37 XIO 

19F9 D24A STO 

J9FA 0A39 XIO 

19FB D24B STO 

19FC 0A3B XIO 

19FD O D24C STO 

* 

191""= 42E5 BSI 

19FF 110E DC 

1AO0 1 1A16 DC 

* 

MDX 



1A01 70ES 

1A02 0A29 

1A03 1 6C00 0654 
1A05 0A3fct 

1A06 1 4400 09A2 

1A08 7O06 

1A09 C246 

IACA 100A 

1A0B 1 4C28 19EA 

1A0D 1 4C80 0882 

1A0F 42ES 
1 A 1 1 » Ot£ 
1A11 1 1A22 

1A12 0A2B 

1A13 4209 
1A14 1 1A33 

1A15 70D4 

1A16 0011 

1A21 FFFF 

1A22 0016 

1A32 FFFF 

1A33 0016 

1A42 FFOO 

1A43 00 17 

1AS4 FFFF 



DATE 
EC NO. 



1A55 6916 



* 
T1002 



STX 
XIO 

BSI 

MDX 

LD 
SLA 

BN 



SCSN1 tSO 
T1001 

SCSN1-TB 

SCSHC-TB 

SCSN3-TB 

SCSXC+1-TB 

SCSN4- TB 

SCSXC+2-TB 

SCSN5-TB 

SCSXC+3-TB 

2 ERC T-TB 
/110E 
TI0M1 

T10NT 

2 TIOXX-TB 

L T I OS W 
2 SC5N5-TB 

L TINT* 

TIO03 

2 SCSX8+1-TB 

UNCUE 

T10NT 



COUNT LOOPS 
LOOP UNTIL NOT BUSY 

GET CHANNEL STATUS 

* AND SAVE FOR ERROR 

* MESSAGE 



TAGS AND OPTIONS 
ERROR MSG-ADDRESS 



LOOP TO TRY AGAIN 



rXECUTE TEST I/O 



SET T10 
RELIEVE 



SW 
POLL 



BSC I T I O 



* 
TIO03 



bSl 

DC 

DC 

ISSUE 

XIO 

SI 
■>C 



-TB 



2 EROUT- 

/110E 

T I DM?. 
HALT I/O TO 
2 HIOXX-TB 



WAIT FOR INTERRUPT 
HR IF D ID NOT OCCUR 
GET UNIT STATUS 
TEST FOR CNTt. UNIT E 
RETRY IF YES 

EXIT 



TAGS AM) OPTIONS 
ERROR MSG ADDRESS 
CLEAR CHANNEL 



Tt.GMS- 
TlOt-.S 



TIONT 



TB 



* 
TI0M1 



* 

T I 0M2 



TIOMS 



PR NT 
DC 

PR NT 

DC 

PR NT 

DC 

PRNT 

DC 



. 02 ADAPTER 
/FFFF 



HUNG BUSY. 



. 16 CHANNEL HUNG AFTER TEST I/O. 

/FFFF 

. A HALT I/O HAS BEEN ISSUED TO. 

/FFOO 

.TRY TO RESET THE CHANNEL CONDITION. 

/FFFF 



******* *.#****************#********<•**************** 
* * 

*************************************************** 

!■***#****»** 



**************************************** 

» * 

********************* ****************************** 

* 

* CALL **************** 

* * BSI L GETSN » 

* ******************* 

» 

*************************************************** 

* * 
*************************************************** 
GTSHS STX 1 GTSNX+1 SAVE REGS 



81155780 
811S5790 
8115S800 
811 SS810 
81 155820 
ell 65830 
81 1SS840 
8115S8S0 
81155860 
81155870 
81 156680 
81155890 
81 155900 
81 1 55910 
81155920 
81155930 
81155940 
81155950 
81 155960 
61155970 
81 155980 
81155990 
81 156000 
81156010 
81 ) 560 20 
811560 30 

81 1560 4 
81156050 
81156060 
81156070 
81 1660R0 
8 11660 90 
81156100 

811561 10 
81 156120 
81156130 
81156140 
61156150 
81156160 
81156170 
81 156180 
81156190 
811562C0 
81156210 
81 1562 2 
811 562 30 
61 156240 
81156250 
81 156260 
81156270 
81 1662 80 
811562 90 
81 15630 
61156310 
PI 166320 
81156330 
81 166340 
81166350 
H I 166360 
8U56370 
81 156380 
81166390 
81 166400 
611^64 10 
81 1664 2 
811 564 30 
81 156440 
811564 50 
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15SEP71 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



***** 






w 



1A56 





6B 1 7 


1 A57 





CA49 


1A58 





DA4D 


1 A59 





CA«B 


1A5A 





DA4F 


1A5B 





0A2D 


1A5C 





0A3! 


1A5D 





D231 


1A6E 





1007 


1 AbF 


1 


4C10 1A7 



1A61 0A31 
1A62 1007 
1A63 1 4C28 1A6 

1A65 0A3B 
1A66 1000 



GTSNO 



GTSN1 



1A67 

1 A68 

1A69 1 

1 A6B 

IA6D 

1A6F 

1A70 
1 A71 



C24A 
1 OOE 

4C28 1A75 
6500 0000 
6700 0000 
CA40 
DA49 
CA4F 
1A72 DA4B 
1A73 1 4C80 086O 



1 A75 
1A77 
1 A78 
1 A79 
1 A7A 
.A7B 
1A7C 
1A70 
1 AVE 

1 A80 
1A6 1 
1A82 
1A03 
1 A84 
1A65 
1 A86 



4400 1EBE 

D26Y 

1 090 

D26A 

CAC7 

DA63 

C249 

1001 

4C10 1AH7 

C202 
42FA 
025O 
42E6 
114E 
000 C 
7 CD 4 



GTSN2 



1A07 C231 

1A88 O 1007 

1A09 1 4C10 1A93 

1A8B C2AA 



STX 

LOD 

STD 

LDD 

STD 

XI O 

XIO 

STO 

SLA 

BNN 

SIC 

XIO 

SLA 

bN 

XIO 
NOP 

LD 

SLA 

6N 

LDX 

LDX 

LDD 

STO 

LDD 

STD 

bSC 

BSI 

STO 

SLT 

STO 

LDD 

STD 

LD 

SLA 

BNN 

UNIT 

LD 

BSI 

STO 

BSI 

DC 

DC 

MDX 

NOT 

LD 

SLA 

BNN 

LD 



3 
2 
2 
2 

2 

2 
2 
2 



GTSl"X + 3 
SCSXC-TB 
SCSVS-TB 
SCSXC+2-TB 
SCSVS+2-TB 
SENSE-TB 
SCSNO-TB 
SCSNO-TB 
SCAbZ 
GTSN2 
ACCEPTED- WAIT 
2 SCSNO-TB 
SCABZ 
GTSN1 

2 SCSN5-TB 



*** 
SAVE 

** 
*» 



SNS CHAN STATUS 



SENSE 1/0 

GET CHAN STATUS 

SAVE 



FOR NOT BUSY 
GET CHAN STATUS 
TEST FOR BUSY 
BR IF SO 

ALLOW POLLING 

TO ALLOW INTERRUPT 



2 SCSXC+1-TB GET UNIT STATU 
UNCHK 
GTSN2 
LI *-* 
L3 *-* 

2 SCSVS-TB 

2 SCSXC-TB 

2 5CSVS12-TB 

2 SCSXC+2-1B 
I GETSN 



RESTORE 

*** 

RESTORE 

t* 

*v 

** 

EXIT TO 



SNS CHAN STATUS 



CALLER 



2 

2 

2 
2 
Z 



TCVSR 

STSER+10 

16 

STSER+13 

TYP3-TB 

STSER+6-TB 

SCSXC-TB 

scusp 

GTSN3 
STATUS PEND 1 
2 H21 OO-TB 
2 TCVBE-lli 
2 S16ER-1H 
2 EROUT-TB 

/I 14E 

STSER 

GTSNO 
OPE RAT IONAL 
?. SCSNO-TB 

SCAbZ 

GTSN6 
2 H0100-TB 



GET SECTION / RTN NUMBERS 
TB STORE IN MSG 

Q TO A 
TO 

■SNS' 

SFT IN MSG 

GE i CHAN STATSUS WORD 

TEST FOR UNIT STAT.PNDING 

BR IF NOT 
NG 

SET MSG NUMBER 

CONVERT TO EBC 

SET IN MSG 

PRINT KROH MSG 

TAGS AM} OPTIONS 

MESSAGE 

GO TRY AGAIN 



1A8C 





82B2 


1 A8D 





421" A 


IA8E 





D25D 


1 A8F 





42E6 


1A90 





114C 


1 A91 


1 


081) C 


1A92 





70C6 


1A93 





C2AB 


1 A94 





7 OF 7 



* 

GT£ 



GET CHAN STATUS 

TEST FUR ADAPTER BUSY 

BR IF NOT 

SET MSG NUMBER TO 22 

A 2 H2100-1B CREATE PROPER MSG NUMBER 

BSI 2 TCVBI -TB CONVERT 

STO 2 STSER-1B SET IN MSG 

BSI 2 EROUT-TB CALL ERROR MSG RTN 

DC /114C 1AGS AW OPTIONS 

DC STSER MSG ADDRESS 

MDX GTSNO GO TRY AGAIN 

-TB 



GTSNS LD 2 H0200 
MDX GTSN4 

************************** 

* * 

*»*«********»******# #*****<<<r*******4** ****** ******* 



SET MSG NUMBER TO 2 3 
GO TO COMMON RTN 

&********* ******* **** 



SAVE INDEX REGISTERS AND GO TO MONITOR 







f%^ 
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061 1-A 


w* 


DATE 


14N0V69 


30JAN70 


1SSEP71 


PAGE 


42 




EC NO. 


431319 


431319A 


431328 



PAGE 



8USt 4 60 
61 156470 
811 66480 
81 156490 
81166600 
81156510 
81156520 
81156530 
81156540 
81 166550 
81156560 
81156570 
811 56580 
61 1 56590 
61156600 
81 15661 
81 1 56620 
81 156630 
81156640 
81 166660 
811 56660 
81 1 56670 
81156680 
81 l!"6690 
81 156700 
81 166710 
8 1156720 
81 1667 30 
81156740 
81 166760 
81166760 
81166770 
81156780 
81166790 
81 156800 
81 166810 
8 1 1 56820 
81 166830 
8 1 1 6664 
81 166860 
fil 156860 
81 166870 
6 1 166880 
81 ) 56890 
8 1 1 6 69 00 
61 1669 10 
4\ 1 56920 
81 1569 30 
8 1 1 56940 
61 156960 
8 1 1 56960 
81 166970 
8 11 66960 
81 1569 90 
81 157000 
81 1570 10 
8 1167020 
81157030 
81157040 
81 157050 
81 157060 
81 157070 
•* 81157060 
* 81157090 
811 67100 
81 1571 10 
8 1167120 
81 157130 



PROG 10 
PAGE 



081 1-A 
42A 



L.. 






o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FC» THE 1800 SYSTEM 

2841 DIAGNOSTIC - PHASE A 

1B00 DIAGNOSTIC MAINTENANCE PROGRAM 



1A95 




1A95 C2F7 




1A96 D02E 




1A97 692c 




1A96 6B2E 




1 A99 I 6580 


1AC8 


1A9B CO 29 




1A9C 1 DSOO 


1ACA 


IA9li C027 




IA9F 1 DSOO 


1 ACU 


1 AA1 "0 C02S 




1AA2 1 DSOO 


1ACC 


1AA4 7103 




IAA5 6922 




1AA6 C022 




IAA7 D28C 




1AAU 4CB0 


0120 



********£*********************+******************** 

* * 

********** ************************* ***************** 

S T MLE ECv * 

LD 2 STM.S-TB GET CALLING AOORS 

STt, STMSA PUT IN TEM ■■> S«VE AREA 

ST* 1 STMSA+1 PUT REGS I «J SAVE AREA 

ST* 3 STMSA+2 ** 



LT* II STMPT 

LD STMSA 

ST6 LI STMST 

LD STKuA+1 

ST& LI STMST+1 

LD STMSA+2 

ST3 LI STMST+2 



MOX 
St A 



1 +3 

1 STMPT 



GET LOCATION 

GET 1 REG 
PUT IN 
GET XH 1 
PUT IN O 
GET XR3 
PUT IN Q 

bUMP Q POIUTER 
CAVE 



r" 

c 



LD 

ssa 
esse 



STMRT 
2 MLSC2-TB 
1 START 



1 AAA 


» 6600 


0B7F 


STMLX 


LOx 


L2 


TB 


1AAC 


CO 10 






LB 




STMST 


1 AAU 


D2F7 




* 


SID 


2 


STMLS-TB 


1 AAE 


C01C 




l_5' 




STMST+1 


1 AAF 


DO 16 






STO 




STMSA+1 


1 ADO 


C01H 






u. 




S1MST+2 


<Abi 


DO 15 






STO 




STMSA+2 



SET UP KOIviTOR PETURN 
GO VISIT *:snitor 
•-ETURN FROM MONITOR HERE 



SET UP TA!~I.e: PNTR 

GET ENT-Y LOC 

PUT IN -".TURN 

GET XRJ 

PUT IN tcMP SAVE 

get xw2 

PUT IN KS.MP SAVE 



1AB2 61F7 



MOVE ALL '_ Jt V ED 

* PARAMETER UP 3 

* PLACES :<■ Q 



DECREMENT C POINTER 

IP not o.Oitinue 



ELSE RESTC'S P ARAME Tl.i- Z 

* 

RETURN 



SET UP Rfl J-N TO 
» ST MLS ROUTINE 
EXIT 

* 

* TEMPORARY SAVE AREA 



1AB3 


1 


csoo 


IAD 6 


ST«»: 1 


£ 


LI 


5TMST+12 


1 AB5 


1 


DSOO 


IAD 3 




S'Q 


LI 


STMST+9 


1AB7 





7101 






tC-f. 


1 


+ 1 


1 /• (58 





7 OF A 




* 


i&iX 




STMLL 


1 Ab9 


1 


7*Pl> 


1 AC8 


tc X 


L 


STMPT ,-3 


lABb 





7006 




* 
STMSE 


t& X 




SIMPS 


1AUC 


1 


6580 


1 AC6 


LiX 


I 1 


STMSA+1 


1 ABE 


1 


6700 


1 AC7 




L" X 


13 


STMSA+2 


1AC0 


1 


4C80 


08 7 6 




bsc 


1 


ST MLS 










* 


g- r 


HERE IF ENTR 


IAC2 





C006 




STMPS 


uu 




STMRT 


1 AC 3 





D2BC 






STO 


2 


MLSC2-TH 


1AC4 





70F7 






*CX 




STMSE 



1AC5 





0000 


STMSA VC 


*-* 




1AC6 





0000 


&f. 


»~* 




1AC7 





0000 


* 

STMPT VC 


*-* 




1AC8 





0000 





POINTER 


IAC9 


1 


I AAA 


STMRT tC 

* 

* OJEUEO 


STMLX 


RE-ENTRY LOCATION 








SAVE AREA 




1 ACA 





0000 


* 

STMST •.'. 


*-* 


I 1 


1ACB 





0000 


it 


*-* 


XR1 1 


IACC 





oooo 


1C 


*-» 


XR3 1 



'" DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP7I 
431 32* 



PAR 
PAGE 



81157140 
81157150 
81 157160 
811571 70 
81 157180 
81157190 
81 157200 
81157210 
81 157220 
811572 30 
8 1 15724 
81157250 
81 157260 
81 1572 70 
81 1572 BO 
811572 90 
81 157300 
B11S7310 
81 157320 
8 1 157330 
81 1 57340 
81157360 
Bl 157360 
81157370 
81 1573B0 
81157390 
81157400 
81157410 
81 157420 
81157430 
81157440 
81157450 
81 157460 
811574 7C 
81 1574B0 
8 11 574 90 
81 157500 
811 57510 
81 157520 
81157530 
81 157540 
8 1 1 57550 
81 157560 
81157570 
81 157580 
1 15 7590 
81 157600 
81157610 
81 157020 
81157630 
81 15764 
811 57650 
81 157660 
811 57670 
01 1576B0 
8 1 157690 
01157700 
81157710 
(Jl 157720 
81 157730 
Bl 157740 
81157750 
81 157760 
81157770 
81157780 
8 1157790 
81 157800 
81157H10 



43 



PROG ID 
FAGE 



MAINTENANCE 

284) DIAGNOSTIC - PHASE A 

1800 DIAGNOSTIC MAINTENANCE PROGRAM 

1ACD OOOO 
1ACE OOOO 
1ACF OOOO 



ri 

43A 



vt»* 



-*,', 

*\.** 






-X 






08 1 1 - A 
43 



iADO OOOO 

1ADI OOOO 

1AD2 OOOO 

1AD3 OOOO 

1 AD4 OOOO 

1AD5 OOOO 



1AD6 C2B3 

1AD7 100C 

1A08 1 4C26 1ADE 

1ADA 1 740 1 06BB 

1ADC 1 4Ct!0 OBBB 

1 ADb 1 C4B0 08BB 

1AE0 D00 1 

1AE1 4CO0 OOOO 



1AE3 C2U3 
IAEA 1008 
1AE5 1 4C28 1AEB 

1AE7 1 7401 088E 
1AE9 1 4C80 OeBL 

I AEB 1 C480 088E 

1AE0 D00 1 

1AEE 4C00 OOOO 

1AF0 I 74FD 088E 

1AP2 1 C400 08UE 

1AF4 D001 

1AF5 4C00 OOOO 



DC 


*-* 


I 


2 


DC 


*-* 


XR1 


2 


DC 


*-* 


XR3 


2 


DC 


*-* 






DC 


*-* 






DC 


*-* 






DC 


*-* 






DC 


*-* 






DC 


*-* 







8115". »2C 
81 157% 30 
8 1 157840 
81 157850 
81157*60 
81 157870 
81157*5*0 
81 157690 
81157*00 
81 157910 
81157920 

* 81 157'* 30 
****************************************** ********* 8 1 I 5794 

* * 81 1 57910 
a******************************************'.******* 81 1 57960 

* * 81157970 

* TERLP 15 CALLED BY A **BSI 2 TI.PER-TB** * 81157980 

* TO TES1 THE LOOP ERROR OPTION AND * 81157,90 

* BR TO THE LOOP ADO fi IF BIT 12 IS .lET * 81158500 

* * 61158110 

* a************************************************* 6 1 1 5*120 

* * 81 15SC30 
*************************************************** 811560 4 



TERLP 


LD 


2 


TSWO-TB 




SLA 




OLPER 




UN 




TFR01 


* 










MUX 


L 


TLPER.l 


* 
TER01 


BSC 


1 


TLPER 


LD 


r 


TLPER 




STO 




TER02+1 


TERO? 


BSC 


i. 


*-* 



GET OPTION SWS 
TEST LOOP ON ERROR 
YES 

NO. BUMP RETURN 
CONT INUE 

GET LOOP ADDRESS 
PUT IN RETURN 
CONT INUE 



81 lT'tlSO 
811 5^060 
81 J5>-.">7 
81 1 5MS0 
81 1 5%'J90 
811561 00 
81 1581 1<> 
8 11 5% 120 
81 15%1 30 
0115fel40 
81 15*150 

<t 611 5 '', 160 

**********>**»*****>■*******«*********************** 81 1 53 170 
» * Bl!5^ie0 

*********+***************************************+* 8115%190 
» * 81!5%200 

* TSTLP IS CALLED liY A **BS I 2 TLPST-TB** * B\\Sr.ZlO 

* TO TEST THE LOOP START I/O OPTION * 0115*220 

* AND BR TO THE LOOP ADD R H BIT * 81156230 

* 8 IS SET * 8:i5=s240 

* Bl 1 5-2 50 
(I*********.******************** **^****»* *<-*** ******* 81 1 5-.2 60 

* * 81 i 5*270 
*************************************************** <* 1 2 5^-2 60 
» 8115fj290 

81! 5*300 
6! 15831 
81158320 
81 158330 
8 1 1 58340 
81 158350 
61158360 
81 1583 7 
81158380 
81 158 390 
81 1 58400 
81 15-5410 
81158420 
61158430 
81158440 
♦a************************************************* 81 1584 50 

* * 815 56460 
*************************************************** 611 584 70 

* HALT ROUTINE 81158480 

* SETS BIT 15 IN TSWO ON AND LOOPS 81158490 



TSTLP 


LD 


2 


T S W 0- T B 


GET OPTION SWS 




SLA 




OLf'ST 


TEST LOOP S10 




BN 




TST01 


YES 


* 


MD X 


L 


TLPST.l 


NO.BUMP RETURN 




BSC 


1 


TLPST 


CONTINUE 


* 
TST01 


LD 


I 


TLPST 


GET LOOP ADDRESS 




STO 




TST02+1 


PUT IN RETURN 


TST02 

* 

TST03 


bsc 


L 


*-* 


CONT INUE 


MDX 


L 


TLPST, -3 


GO BACK 




LD 


L 


TLPST 






STO 




T5T04+1 




TST04 


BSC 


L 


*-* 





■■*£ 

•3 
O 



DA". £ 
EC NO. 



14 NOV 69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



P»OG 10 

PAGE 



on u -a 

43A 
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2841 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



THRU MONITOR UNTIL BIT IS CLEARED. 



1AF7 

IAF7 O C283 

1AF8 100E 

1AF9 1 4C10 1B0A 



1 AFB 





C200 


1 AFC 





42FA 


1 AFD 


o 


U020 


1AFE 





1090 


1 AFF 





D01F 


lbOO 





4209 


lbOl 


1 


1B0C 


1B02 





C297 


1B03 





EA03 


lbO'. 





0283 



IbOti 42F7 



11106 C283 

1B07 ) 4C04 1006 



1U09 42F7 

2 BOA 1 4C80 007F 



1B0C 




0010 


lblE 




0002 


1B2.0 





OOFF 


1B21 




0014 


1B2F 





OOFF 


1B30 




00 1 1 


1B3B 





001 F 


1B3C 




0012 


104 6 





OOFF 


1B4 9 




0012 


1 B55 





FF.-F 



0000 

0001 

0002 

0003 

0006 

0007 
0009 



♦it************************************************ 

* * 

*************************************************** 

THLTE EOU * 

LD 2 TSWO-TB GET OPTION SWS 

SLA OHALT TEST FOR HALT ON ERROR 

BNN THLTR BR IF NO 



THLTG LD 
BSI 
STO 
SLT 
STO 
BSI 
DC 

* 

LD 
OR 
STO 



THALT-TB 

TCVBE-TB 

THLT? 

16 

THLT2+1 

TL6MS-TB 

THITM 

Kl-TB 

TSWO-TB 
TSWO-TB 



GET CALLING ADDRESS 
CONVERT TO PRNT CODE 
SET IN MSG 
Q TO A 
SET IN MSG 
GO PRINT MSG 
MESSAGE ADDRESS 

SET BIT IS 



LOOP THRU MONITOR UNTIL READY 



* 
THLTL 

* 



THLTR 

* 
THLTM 

THLT?. 



US1 



2 STMLS-TB 



RETURN HERE 



LD 
60D 

BSI 
BSC 

PRNT 

PRNT 

DC 

PRNT 

DC 

■■■ )T 

V : 

PRNT 

DC 

PRNT 

DC 



TSWO-TB 
THLTL 



STMLS-TB 
THALT 



GO TO MONITRR 



GET SWITCH WORD 
BR IF STILL ON 



GO TO MONITOR 
RETURN TO CALLER 



. ***HALT — 2041 DIAGNOSTIC AT APRS . 

• • 

/OOFF 

. TO CLEAR HALT SET SWITCHES-. 

/OOFF 

. S/P OOPP "-PPP. P=PID. 

/OOFF 

. DCS XXXX XXXX XXXX XXXO. 

/OOFF 

. PRESS CONSOLE INTERUPT. 

/FFFF 



*************************************************** 

* * 

*******************>»***************<■*************** 

* 

CALL ************************** 

* BSI 2 EROUT-TB * 

* DC /0127 CNTRL TAGS * 

* DC /ABCO ERR NUMBER * 

* (SECT.RT.ER) * 
******************** ********* 



* 

* 

* 

* 
* 

* 

* 

**************.************************************* 

* * 

*************************************************** 

* 



CSW=SCSX0 
CSW=SCSX4 
CSW=SCSX8 

csw=scsxc 

EXIT TO ERADR 
PRINT A BLANK LINE 
BYPASS HALT LOOP 



* 


EQUATE 


S FC 


* 






OECXO 


EQU 





0ECX4 


EOU 


1 


0ELX6 


EQU 


2 


OECXC 


EQU 


3 


OEXIT 


EOU 


6 


OEPBL 


EQU 


7 


OEBYP 


EQU 


9 



t,l 156500 

Biiset.io 

Bl 16862 
81158530 
81 1S0S4O 
811 58650 
81 158660 
811 58570 
Bl 1S8SH0 
8 11 58590 
Bl 158600 
81158610 
81 158620 
81158630 
81 158640 
8 1158650 
81 1S8660 
8 115H670 
81 150680 
8 1158690 
81 158700 
81158710 
81158720 
81158730 
81 158740 
81158750 
81 158760 
8115.1770 
81 1 58780 
6 1158790 
81 158800 
8 1 158810 
81 158320 
81158630 
81 158840 
8 1158850 
81 158860 
61158870 
81 158880 
811 58890 
81 158900 
81156910 
Bl 158920 
811 58930 
81 158940 
811 SB950 
81 158960 
81158970 
81 158980 
81158990 
81 159000 
81159010 
81 159020 
61159030 
81 1590 4 
81 159050 
8 1 159060 
81159070 
81 159080 
8 1159090 
81 159 100 
8 1 1 59 1 1 
61 159120 
81159130 
61 159140 
8 1 1 59 1 50 
81 159160 
81159170 
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W 









00 A 
OOCB 
OOOC 
OOOD 
OOOE 
OOOF 



IB56 

1BS6 

lb5C 

Ib9£i 

1B98 

1B99 

lb9B 

1B9D 

1B9F 

1BA1 

lbA2 

lbA4 

1BA5 

1BA6 

1BA7 

1BA6 

1BA9 

1BAA 



0000 
0006 
003C 

C2D4 

4C20 1BAB 

60 00 lC'.S 

6F00 1C6A 

C480 0864 
100A 



4C10 

C2E5 

020 4 

42EE 

O C20 4 

D2E5 

1010 

D2D4 



1BAB I 6780 0664 
IbAD C300 
lfcAE 1007 
lbAF 1 4C1S 
lbB: 4209 
U)b2 1 080C 



ibb: 



1BB3 C300 

lfcB4 100B 

lbBS 1 4C28 1BEB 

lbb7 1001 

1BB8 1 4C10 1BCB 



1BBA 

1BBB 

1BBC 

1BBD 

1 BbF 

lbCO 

1BC2 

lfiC3 

1BC5 

1BC6 



6100 

C301 

0001 

C500 0000 

F2HD 

4C18 1BC7 

F280 
1 0500 1659 
7101 
70F6 



OEGSN EOU 

0EL1B EQU 

OEERR 

OECAW 

OECSW 

OESNS 



EOU 
EQU 
EOU 
EQU 



PRINT 
ERTNE 



*********** 

* 

*********** 

ERM5 6 BSS 
PRNT 
BSS 
EQU 
LD 
BNZ 
STX 
STX 
LD 
SLA 
BNN 
LD 
STO 
BSI 
LO 
STO 
SLA 
STO 



H. 
11 
12 

13 
14 
15 

************* 

************* 

E 

. **ER-XXX 

E 6 
* 
2 STKSW-TB 
ERTN2 

LI ERT17+1 

L3 EIT17+3 

I EKOUY 
OEGSN 
ERTN2 
EROUT-TB 
STKSW-TB 
CETSN-TB 
STKSW-TB 
EROUT-TB 
16 
STKSW-TB 



GET £ENSE BYTES 
BYPASS LINE 1 
PRINT ERROR MSG 
PRINT CAW 

* CSW 

* SNS 
*<************************* 

* 
*************************** 



ERTU2 



* 
ERTN3 



ERTN4 



K-C7 i 7500 1B59 
1BC9 1000 
lbCA 7009 

1BCB C301 

1BCC 42FA 

1BCD O DOBB 

1BCE 180 

lfeCF 008A 

1BD0 10 10 

lbDl 008 9 

lb02 1 6500 1B5C 

1B04 C20 
lbOS 42FA 
1BD6 1090 



* 
ERTN5 



LDX 

LD 

SLA 

BNN 

BSI 

DC 

LD 
SLA 

BN 
SLA 

BNN 

LDX 

LO 

STO 

LD 

EOR 

B2 

EOR 

STO 

MDX 

MDX 

MDX 
NOP 
MDX 



* 
ERTN6 



* 
ERTN7 



EROUT 



OEPBL 

ERTN3 

TLGMS-TB 

TERM 



PRINT BUFFER 

ENTRY POINT 

GET RE-ENTRY SWITCH 

BR IF SET 

SAVE REGS 

tt 

GET FLAGS 

GET SENSE BYTES 
BR IF NO 

GET RETURN ADORS 
SET SW 

GET SENSE BYTES 
GET SAVED ADDRESS 
SET FOR RETURN 
CLEAR SWITCH 



SET REG 

GET OPTIONS/FLAGS 

PRINT BLANK LINE FIRST 

BR IF NOT 

PRINT BLANK LINE 

/FFFF 



GET T AGS 

0EL1H BYPASS LINE 1 PRINT 

EMTIO BR IF YES 

OEERR-OELlft ERROR MSG 

ERTN6 BR IF NOT 



LD 

BSI 

STO 

XCH 

STO 

SLA 

STO 

LDX 

LD 

BSI 

SLT 



FRTN4+1 
LI *-* 
2 TERM-TB 

r RTN5 

2 TERM-TU 

LI ERMSG+3 

1 1 
ERTN4 

LI ERMSG+3 

ERTN7 

3 1 

2 TCVBE-TB 
ERMSG+3 

ERMSG+4 
16 

ERMSG+5 
LI PRINT 

2 DVAOR-TB 
2 TCVBE-TB 
16 



SET COUNT TO ZERO 

GET MSG ADDRESS 

SET FOR LOAD INSTRUCTION 

GET WtHD TO MOVE 

IS IT EM) OF MSG 

BR YES 

RESTORE DATA WORD 

STORE IN TABLE 
COUNT 
LOOP 

POINT TO NEXT WORD 



GET MSG NUMBER 
CONVERT TO 43 CODE 
STORE 
SWAP A-0 

SET IN TWO BLANKS 
** 
SET POINTER 

GET DEVICE ADDRESS 
CONVERT TO 43 CODE 
LOW ORDER TWO BYTES ONLY 



6il59iaO 

6US9200 
81*59210 
S1159220 
HI 159230 
»1159240 
8» 159250 
S1159260 
81 159270 
811S92B0 
61 159290 
611 59300 
81169310 
81159320 
61 169330 
fcl 159340 
81 159350 
31 1 59 360 
81 159370 
81159380 
81 169390 
{ill 59400 
61 1694 10 
81159420 
81 169430 
81159440 
81159450 
»11 69460 
61159470 
8 1159480 
81 159490 
8 1169500 
8 1 1 59 6 1 
81159620 
81 169530 
81 I 59640 
6; 169560 
81169560 
81 159570 
Bl 159580 
81 159590 
8il5«600 
81 169610 
611 59620 
81 1 69630 
8 1 1 5964 
81 169 650 
81159660 
6 1 159670 
61159680 
81 159690 
61159700 
61159710 
81169720 
81159730 
8 1 1 59 < 4 
81 169750 
611 59760 
61 159770 
611 69 7 80 
81 159790 
61159800 
8 1 I 59 8 1 
61159820 
8115O830 
81159840 
61169850 



DATE 
EC NO. 



14 NOV 69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



081 1-A 
44 






DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SFP71 
431328 



PROG 
PAGE 



ID 



08 11 -A 

44A 
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DATE 
EC Nil. 



1BD7 D270 


STO 


2 UNADR+3-TB 


STORE FOR PRINT 




81 159860 


1BD3 C2E5 


LD 


2 EROUT-TB 


GET CALLING ADDRESS 




81 1S9670 


1B09 9297 


S 


2 Kl-TB 


POINT -.0 CALLING INSTRUCTN 


81 159880 


lbDA 42FA 


BSI 


2 TCVBF-TB 


CONVERT TO HEX 




81 159E.90 


1BDB D274 


STO 


2 UNADrt+7-TB 






81 159900 


1BDC 1090 


SLT 


16 






81159910 


1BDD D275 


STO 


2 UNADR+8-TB 






81 15992 


1BDE 6904 


STX 


1 ERTN8+3 


SAVE REG IN INSTRUCTION 


81159930 


1BDF 6100 


LDX 

» 


1 


SET COUNT 




81 159940 
81159950 


1BE0 1 CSOO 08EC 


ERTN8 LD 


LI UNADK 


GET WORD TO MOVE 




81 1 59960 


1BE2 DSOO 0000 


STO 


LI »-* 


STORE IN NEW LOC'N 




81 159970 


lbE4 F28D 


FOR 


2 TERM-TH 


TEST FOR END OF MSG 




81 1 S9980 


lbE5 1 4C10 1BE9 


BZ 


ERTN9 


DR IF YES 




811 59990 


13E7 7101 


MDX 


1 1 


BUMP COUNT 




81 160000 


l'JES 70F7 


MDX 

* 


ERTN8 


LOOP 




81160010 
81 160020 


lbE9 4209 


ERTN9 BSI 


2 TLGMS-1B 


GO PRINT MSG 




81 1600 30 


1EEA 1 1056 


DC 


ERMSG 


ADDRESS OF MESSAGE" 




81 160040 




* CAW 


ADDRESS 


OF CCH' CHAIN 




81 1 60 50 


IbEB C300 


ERT10 LD 


3 


GET TAGS 




81160060 


lbbC 100D 


SLA 


OECAW 


TEST FOR CAw.CSW.SNS 


81160070 


IbED 1 4C18 1C60 


BZ 


ERT1S 


BR IF NONE 




81 1 600 80 


1BEF I 6500 1H5C 


LDX 


L! PRINT 


*.= T POINTER TO AREA 


8' 1 60090 


lUFt 1 4C10 IbED 


BNN 


ERT1 1 


BR IF NO CAW 




81 160 10? 


1L'F3 10A0 


SLT 


32 






81160110 


lbF4 0900 


STD 


1 






81 If 0120 


IBFfa 7102 


MDX 


1 2 






81 1601 30 


1BF6 CAC9 


LDD 


2 PCAW-TB 


GET HEADER 




81 160 140 


1BF7 09 00 


STD 


1 


STORE IN AREA 




8 1160150 


1..F8 C2C1 


LD 


2 CAWSV-TB 


GET CC.W ADDRESS FOR S10 


81 1 60 160 


lbE'9 «?FA 


BSI 


2 TCVBE-Tb 


CONVEhT TO ERC 




81 160 170 


1BEA 0902 


STD 


1 2 


. STORE IN AREA 




81 1 60 180 


ItFB 7104 


MDX 


1 4 


DUMP POINTER 




ell 60! 90 


IBIC 1000 


NOP 








81 160200 




* CSW CHANNEL 


DSW WOfOS 




811 60210 


lur-n o c^oo 


ERTlt (•• 


3 


GET TAGS 




81160220 


lbFE o loot: 


r^.A 


OECSW 


fEST FOR CSW TO BE 


PRINTED 81 160? 30 


1UFF 1 4CI0 1C2F 


bNN 


ERT1 2 


BR IF NOT 




81 160240 


1C01 C300 


LD 


3 


GET OPTION WORD 




611602 50 


ICO.: 1 6700 OMBC 


LDX 


L3 SCSXO . 


--OINT TO CSW SAVE 


AREA 


81 160260 


1C04 1P0C 


SRA 


12 


SAVE BITS 0-3 




811 60270 


1C05 100C 


SLA 


12 


*** 




81 1 60280 


1CQ6 4830 


SKP 


Z~ 






8 1 160290 


1C07 7304 


MDX 


3 4 


BUMP TO NEXT SAVE 


AREA 


8) 160 300 


1C08 1001 


SLA 


1 


TEST NEXT OIT 




8 1 160310 


1C09 4830 


SKP 


Z- 






81 1 60 32 


1C0A 7301 


MDX 


3 4 


HUMP TO NEXT SAVE 


AREA 


81160 330 


1C0D 1001 


SLA 


1 


TEST NEXT 61 •, 




81 160340 


1C0C 4E30 


SKP 


Z- 






81160350 


ICOD 7304 


MDX 


3 4 


BUMP TO NEXT SAVE 


AREA 


81 160 360 


icoe o loo: 


SLA 


1 


TEST NEXT BIT 




81160 3 70 


1C0F 4830 


SKP 


Z- 






81 160 380 


1C10 7304 


MDX 


3 4 


BUMP TO NEXT SAVE 


AREA 


81160 390 


1C11 CACH 


LDD 


2 PCSW-TB 


GET 'CSW • 




81 160400 


1CI2 D902 


STD 


1 2 


SET IN MSG 




81160410 


ici3 o Cioo 


LD 


3 


GET CHANNEL STATUS WORD 


81 160 120 


1C14 42FA 


BSI 


2 TCVBE-TB 


CONVERT 




81160430 


lClfi D904 


STD 


1 4 


STORE 




81 160440 


IC 16 C301 


LD 


3 1 


GET UNIT STATUS WORD 


81160450 


IC1 7 (J 4 2EA 


BSI 


2 TCVBE-TB 


CONVERT 




81 160460 


1C18 D107 


STO 


1 7 


STORE 




811 604 70 


1C19 1090 


SLT 


16 






81 160480 


IC 1 A 0106 


STO 


1 B 


STORE 




81160490 


IClIt C302 


LD 


3 2 


GET CSW ADDRESS WORO 


81 160500 


1CIC 42FA 


BSI 


2 TCVBE-TB 


CONVERT 




81160510 


1C10 D90A 


STD 


1 10 


STORE 




81 160 52 


1C1E C303 


LD 


3 3 


GET BYTE COUNT 




81160530 



14N0V69 
431319 



30JAN70 
431319A 



1SSEP71 
431328 
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1C1F 42FA 


BSI 


2 


TCVBE-TB 


CONVERT 


■ 61 1605--0 


1C20 DIM* 


STO 


1 


13 


STORE 


81 160 55 


1C21 10VG 


SLT 




16 


TO A 


811 60560 


1C22 DICE 


STO 


1 


14 


STORE 


61 160570 


1C23 C2CF 


LD 


2 


SPACE-TB 


GET SPACES 


61160580 


1C24 D10.» 


STO 


I 





** 


81 1 60 590 


1C25 DIOt 


STO 


1 


1 


** 


81160600 


1C26 DlOt 


STO 


1 


6 


SET IN BETWEEN 


81 16061 


1C2 7 D109 


STO 


1 


9 


SET IN BETWEEN 


8 1 160620 


1C28 D10C 


STO 


1 


12 


SET IN BETWEEN 


81 160 630 


1C29 D10F 


STO 


1 


15 




81 1 60640 


1C2A 01 il 


STO 


1 


17 


CLEAR NEXT SLOT TOO 


81 160650 


1C2B 710? 


MO X 


1 


15 


BUMP POINTER 


8 1 1 60 660 


1C2C 1000 


NOP 








81 160670 


1C2D 1 6760 0864 


LDX 


13 


EROUT 


RESTORE REG 


6 1 160680 




* — SNS 





GET 231 1 


SENSE INFORMATION 


61 160690 


1C2F p C300 


ERT12 LD 


3 





GET TAGS 


811 60700 


1C30 101? ' 


SLA 




OESNS 


T1ST FOR SNS INFO 


81 1607 10 


1C31 1 4C10 1C59 


BNN 




ERT14 


BR IF NO 


8 1160 720 


1C33 C CACD 


LDD 


2 


PSNS-TB 


GET HEADER WORDS 


81 160 7 30 


1C34 D1C0 


STO 


1 





STORE 


81 1 60 74 


1C35 ItiO 


SLT 




16 




81 160750 


lC3b 0101 


STO 


1 


1 


STORE 


81160 760 - 


1C37 7)03 


MDX 


1 


3 


BUMP POINTER 


81 160">70 


1C38 1CC0 


NOP 








811 60780 


1C39 C20s 


LD 


2 


K B- T H 




81 160 790 


1C3A DOAA 


STO 




ERTN6 4 3 


SAVE TEMPORARILY 


61160800 


1C3B CA2S 


LDD 

* 


2 


SNWDS-T:.< 


GET SENSE INFO 


8 1 I 60 8 1 
81 160820 


1C3C 1 :.st 


ERT13 RTE 




2 8 


MOVE AROUND 


81 160 830 


1C3D DAO 


STD 


P. ERTSV-TB 


SAVE FOR LOOP 


81160840 


1C3E lOftC 


SLT 




12 




81 160H50 


1C3F 1010 


SLA 




16 




8 1 1 60860 


1C40 ltftl 


SLT 




1 




81 160 87 


IC4 1 100 3 


SLA 




3 




81 1 60 080 


1C42 I0*il 


SLT 




1 




81 1 60890 


1C43 1003 


SLA 




3 




81160900 


1C44 10-. 1 


SLT 




1 




81 160910 


1C45 1003 


SLA 




3 




8 1 1 60920 


■1C46 10*1 


SLT 




1 




81 1 609 30 


1C47 42?A 


BSI 




2 TCVBE-TB 


CONVERT TO HEX 


81 1 60940 


1C4B DSOO 


STO 




1 


STORE IN TBLE 


81 160950 


1C49 1090 


SLT 




16 


TO A 


8 1 1 60960 


1C4A DiOl 


STO 




1 1 


STORE 


61 160970 


1C4B 7102 


MDX 




1 2 


BUMP POINTER 


81160980 


1C4C 1000 


NOP 








81 160990 


1C4D COOS 


LD 




ERTNb+3 


FETCH COUNTER 


li: 1 61000 


1C4E Hi-il 


A 




2 Kl-Tb 


ADD ONE 


611610 10 


1C4F I «C04 1C5S 


BOD 




* + 4 


BRANCH IF ODD 


81 161020 


ICbl C2CF 


LD 




2 SPACE-TB 


FETCH SPACE CHARACTERS 


81 161030 


1C52 DIGO 


STO 




1 


PLACE IN PRINT LINE 


8 11610 4 


1C53 7S01 


MD X 




1 1 


ADVANCE PRINT LINE POINTER 81161050 


1C54 1000 


NOP 








81161060 


1C55 CKC3 


LDD 




2 EHTSV-TU 


GET SENSE INFO BACK 


81 161070 


1CS6 1 74FF 1BE3 


MDX 


L 


EHTNft+3.- 


•1 COUNT 


81161080 


IC5B 7 0i.3 


MDX 

* 




ERT13 


LOOP UNTIL F INI SHED 


81 161090 
81161100 


1C59 C2feO 


ERT14 LD 




2 TERM-TB 


SET /FFFF AT END 


81161110 


1C5A EIOG 


STO 




1 


»» 


81 1 61 120 


lCbB *209 


BSI 




2 TLv,MS-TB 


PRINT MESSAGE 


81 161130 


1C5C 1 li'.C 


DC 




PR INI 




81161 140 


1C50 C204 


LD 




2 STKSW-TU 


GET SWITCH 


61161; 50 


1C5E I 4C20 1C6D 


BNZ 

* 




ERT16 


EXIT IF SET 


61161 160 
81 161 170 


1C60 OOO 


ERT1S l.D 




3 


GET TAGS 


8 1161180 


1C61 1009 


SLA 




OEbYP 




81 161 190 


1C62 1 *C28 1C65 


BN 




ERT16 


BR IF NOT HALT 


61161200 


<C64 4200 


BSI 




2 THALT-TB 


WAIT FOR OPERATOR 


81 161210 
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1C65 O C300 

1C66 1006 

1C67 6500 C"00 

1C69 6700 0000 

1C6B 1 4CA8 1C71 

1C60 1 7402 086<- 

1COF 1 4C80 0864 

1C71 0000 



ERT16 LD 3 

SLA OEXIT 

ERT17 LDX LI *-* 

LDX L3 »-* 

BN I ERAOR 



GET TAGS 

TEST FOR OTHER EXI r 

RELOAD REGS 

*** 

bR IF YES, 



ERT18 MDX L ER0UT.2 

bSC I EROUT 
EHADR DC *-* 



DATE 
EC NO. 



bl,«P RETURN BY TWO 

EXIT 

RETURN ADDRESS PUT HERE 

****»*« v ********* ***###* ****************>>¥*****ft**^ 
* » 

4 4 4 4 ft** 444**4*4 4 *, V »*44********4*44*4 3#** *******.< * 44 



ALL I'S 



1C72 









SEEKX 


EOU 




* 


EKTRY POINT 


1C72 





692D 




* 


STX 


1 


IR1+1 




1C73 





C28D 




LD 


2 


TERM-Tb 


SET HA AREA 


1C74 





1890 






SRT 




16 


- 


1C75 


1 


DCOO 


09BC 




STD 


L 


RAREA 


BLANK RAREA 


1C7 7 


1 


D4 00 


09BE 


* 


STO 


L 


RAREA+2 


BLANK RAREA 


1C79 


1 


4400 


1E8E 


BSI 


L 


TCVSR 


GET SECT AM 


1 C 7B 


(i 


D065 






STO 




M6 


F'T SECT. N 


1C7C 





1090 






SLT 




16 




1C70 





0067 






STO 




M7 


EST. RTN. N 



1C7E 1 6500 1CB3 
ICBO 1 GDOO 19E9 

1(82 6105 

1CH3 1 6O00 08 59 

1C8S 1 741 F 0859 
1C87 7001 
1CU8 7031 



1C89 42F4 
1CUA 1 ID 08 



lCfii) 1 6500 09BC 

1C1SD C900 
1C8E 1080 
1C8F D251 

IC90 C102 

1C91 180H 

1C92 0,"DH 

1C93 1088 

1C94 1008 

1C95 fc'ADB 

1C96 1)252 

1C97 C23D 
1C98 100E 
1C99 1 4C2B 1CA3 



1C9B O CA51 
1C9C 9873 
1C9D 1 4C20 1CA3 



LDX LI EHR1 
STX LI WTADft 



EST. TIMEOUT ADDR, 





LDX 


1 5 






STX 


LI LPCT1 


EST. ERROR COUNTER 


BR1 


MO X 


L LPCT1 .-1 


DECR. LOOP COUNT 




wx 


»+ 1 


CONTINUE 


* 


MD X 


ERRX 


TAKE HARD ERROR EXIT 


* 


Li I 


2 SlO-Tb 


CALL SIO ROUTINE 




DC 


SKCYL 


CCW ADDRESS 


* 






1. SEEK CYL 198 HD 


* 

* 
* 
* 

» 






2. READ HA 


GET HERE IF INTERRUPT RECEIVED 


LDX 


LI RARE* 


F»A OF HOME ADDR. 


LDD 


1 +0 






SLT 


8 


A = CYLt CYL 


* 


STO 


2 HA+O-Tb 


HA+O = CYL. CYL 


LD 


I +2 






SRA 


8 






STO 


2 TEMPI-IB 






SLT 


8 






SLA 


6 






OR 


2 TEMPI -TB 


A = HO . t-O 




STO 


2 HA+l-TB 


HA-t 1 = iV . HD 


* 


LO 


2 SCSXO-TB 


LOOK AT UNIT STATUS 




SLA 


UNCHK 


LOOK FOR UNIT CHECK 


* 
* 


UU 


ERR2 


PRINT ERROR 


COMPARE ACTUAL 


At& EXPECTED HA 


* 


LDO 


2 HA-Tb 


ACTUAL MA 




SO 


SKARG+1 


EXPECTED HA 




BNZ 


ERR 2 





14N0V69 
431319 



30JAN7O 
431319A 



15SEP71 
431328 



81 161220 
81161230 
81161240 
81161250 
81 161260 
811 61270 
81 161280 
81 1 61290 
81 161 300 
81 1 61 310 
81 I 61 320 
81161 330 
81 161 340 
81161 350 
81161360 
81161 370 
61 161380 
811 61 390 
81 161400 
81161410 
81 161420 
811 61430 
81 161 440 
81 161 450 
81 161 460 
81 1 61 4 70 
81 161480 
81161 490 
81 1 61500 
8 1161510 
81 161 520 
81161530 
81 161 540 
8). 1 61550 
61 161560 
811 61570 
81 161580 
8 1 161590 
81 16160 
81161610 
81 161 620 
81161630 
81 161640 
8 1 1 61650 
81 161 660 
811 61670 
81 1 61660 
el 1 61690 
81 161700 
81161710 
81 161720 
81161730 
81 16174 
811 61750 
81 1617(30 
81161770 
81 161 780 
81161 790 
81 1 61H00 
61161 810 
81 161 020 
8 1161830 
81161 84 
811 61860 
81 161 860 
81161870 
81 161880 
81161890 



PROG 10 
PAGE 



081 1-A 
4b 



ST* 

o 



1C9F 





6500 0000 


1CA1 


1 


4C80 0U91 


1CA3 





C251 


1CA4 





4 2FD 


1CA5 





42FA 


1CA6 





DO 30 


1CA7 





1090 


1CA8 





D0 2F 


1CA9 





C252 


ICAA 





4 2FA 


1CAB 





1090 


1CAC 





D02E 


1CAD 





42E5 


1CAE 





1 6B 


1CAF 


1 


1CDD 


ICBO 





4209 


1CB1 


1 


1CBE 


1CB2 





7005 


1CB3 





4 2E5 


1CB4 





016B 


1CB5 


1 


1 COD 


1CB6 





4209 


1CB7 


1 


ICtF 


ICB8 





4?<>0 


1CB9 





70CB 



IR1 



1CB« 4209 
1CBB 1 1CFA 



1CBC 4C80 12E 



1CBE 




00 1 5 


1CCD 





FFOO 


1CCE 




00 14 


1C0C 





FEFF 


1C0D 




000? 


1CDF 




002 


1CE1 




0001 


1CE2 




0003 


1CE5 




0001 


ICEo 




0008 


icte 





FFFF 


1CEF 




00 10 


1CF9 





FTFF 


1CFA 




0013 


1D07 





FFFF 



» 

1* 
* 

* 

Ml 

M2 

* 
M5 

M6 

M7 



* 
MX 

* 
* 
* 



1D08 0006 
1009 4007 
1D0A 1 1D0F 



1D0B 0005 
1D0C 00 1 A 
100D 1 091JC 



* 
* 



LDX L 


1 *-» 


RESTORE IR1 




81161900 


BSC I 


SKTV 


RETURN TO CALLER 




811619 10 
61161920 


LD 


2 HA-TB 


CYL NO 




81 161930 


BSI 


2 TCVHO-TB 


HEX TO DECIMAL 




8)1619*0 


BSI 


2 TCVBE-TB 


DECIMAL TO 1443 




61 1 61950 


STO 


M2+9 






8 1161 960 


SLT 


16 






81 161970 


STO 


M2+10 


EST. CYL NO. 




811 619C0 
81 161990 


LD 


2 HA-tl-TB 


HFAD NO. 




8 11 62000 


DS1 


2 TCVBE-TB 


HEX TC 144 3 




81 1620 10 


SLT 


16 






811 62020 


STO 


M2+13 


EST. HEAD NO. 




81 1 6?i?30 
6 1 1 62040 


BSI 


2 Fl O'JT-TB 


CALL ERROR OUT ROUTINE 


81 1620 50 


DC 


/Ol 6B 


FLAG BITS 




8 11 62060 


DC 


M5 


MSG NO OR ADDRESS 




a 1 162O70 


BSI 


2 TLGMS-TW 


CALL LOG ROUTINE 




81 1 6 20(!0 


DC 


Ml 






81 1620 90 


KOX 


ERR6 


GO WAIT FOR OPEH 


ACTICN 


611 62100 
61 162". 1 


BSI 


2 FROUT-TU 


CALL ERROk OUT ROUTINE 


811 621 20 


DC 


/Ol 6B 


FLAG BITS 




81 1621 30 


DC 


M5 


MSG NO OR ADDRESS 




81 1 621 40 


BSI 


2 TLGMS-TB 


CALL LOG ROUT INF: 




81 1 62 1 60 


DC 


M8 






811 62160 


BSI 


2 THALT-TO 






81 1621 70 


MDX 


BR1 


RETRY SIO 




61 162! 80 
Bl 162190 


BSI 


2 TLGMS-TB 


CALL LOG ROUTINE 




6 1 162200 


DC 


MX 






81 16221 
811 62220 


BSC 


1 END 


TERMINATE; 




81 1622 30 
811 62240 


PRINT HARD ERROR MISS. AM) EXIT 




8l 162250 










811 62260 










Bl 1622 70 


p:;nt 


. HA EXPECT EDs CYL 1 98.1 ID 


00 . 


8 1 1 622 80 


DC 


/FFOO 


NEW LINE 




81 1 62290 


PR NT 


. HA RE AD 


= CYL XXXX.hO 


XX. 


8 1 162 300 


DC 


-1 






81 162 310 
61 1 62 320 


PR NT 


.25 • 






81 162 330 


PR NT 


.sect. 






8! 1 62 440 


PR NT 


. . 






81 1 62 350 


PRNT 


. i RTN. 






6 11 62 360 


PR NT 


. . 






61 162370 


PRNT 


. < ERROR ON SEEK. 




8 1 1 62380 


DC 


-1 






8 1 1 62 390 
8 1 ! 624O0 


PRNT 


.«■»* TIMEOUT ***. 




8 1 1 62 4 I 


DC 


-1 






81 1 62 4 20 
81 162430 


PRNT 


,**HARO 


ERROR** PROG TERM. 




81162440 


DC 


-1 






81 1624 50 
611 62460 
81 1 62470 
61162480 


YL DC 


6 


BYTE COUNT 




81 1624 90 


DC 


/40*256+SEEKC FLAGS AND OP 


CODE 


8 1 1 62500 


DC 


SKARG 


ADDRESS 




81)62510 
811 62520 
81 162530 


DC 


5 


BYTE COUNT 




6 1162540 


DC 


0*256-4ROHA FLAGS MO OP CODE 


61 162560 


DC 


RAREA 


ADDRESS 




81 162560 
81 162570 



S *jgr 










DATE 


14N0V69 


30JAN70 
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2841 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



1D0E 0001 

IDOF 0000 

1D10 00C6 

1D11 0000 



BSS E 1 
SKARG DC. 

DC 198 
DC 



ALIGN TO ODD BOUNDARY 



CYLINDER 190 
HEAD 



ID 12 

1D12 C2D6 

1D13 1 4C18 1D1.7 

1015 O 42F7 

1D16 70FB 

1D17 O C209 

ID I 8 D2D6 

1019 1 0400 1E06 

1D1I3 1 6F00 1E00 

1D1D 1 6O00 1E02 

1D1F C283 

1D20 1000 

1D21 1 4C2H 10 FO 

1023 C294 

ll>24 1 4C10 \0Z7 

1026 70FF 



1D27 C29S 

102a i 4Cio 1036 

1D2A 1010 

1D2B 1 U4t0 1E07 

ID2D O C29E 

102E D2o3 

ID2F 42F7 

1D30 1 74FF 0.1B2 

1D32 7 0FC 

1D33 4 2E8 

1D34 1 6C00 1E07 

1036 4440 0131 

1D36 1 1D4F 

1039 1 08 13 

1D3A 1 1DC3 

1D3B 1 OBOC 

1D3C C2DE 

1D3D 1 4C04 1D44 

1D3F C2AA 
ID40 ) LCOO 1DC3 
1D42 D256 
1D43 7004 

ID44 C2AD 

1045 1 ECOO 1DC3 

1047 0256 

1D4H C2AE 

1D49 1 ECOO 1DC3 

104B D258 



***************** t«««»?t*t*«««*«*««;««st«»*t* ****** 

* * 

*************************************************** 

*************************************************** 

* * 
*************************************************** 
TLGME EQU „ * ENTRY POINT 

Ur 2 LGBSY-TB GET LOG BUSY SW 

BR IF NOT BUSY 

GO VISIT MONITOR 
CLGE LOOP 

GET CALLING AODRS 
SET LOG BUSY SW 
SFT RETURN ADDRS 

..VE PEG 
SAVE REG 
GET OPTION SwS 

BR IF BYPASS PRNTOUT 

GET EDIT FOR PRINTER 
BR IF NOT SELECTED 

**************************** **^*** ***************** 

MDX *-l TRAP STOP 

******************** **¥*** ****************** ******* 

* RELEASE SC IN CASE SHARED CHANNEL 

TLG01 LD 2 TSCFD-TB GET ODLF 

BR IF NOT SEL 





BZ 




TLGNB 




BS1 


2 


STMLS-liJ 




B 




TLGME 


TLGNB 


LD 


2 


TLGMS-Tb 




STO 


2 


LGBSY-TB 




STO 


L 


LEX IT+1 




STX 


L3 


TLGX3+1 




STX 


LI 


TLGX3+3 




LD 


2 


TSKO-TB 




SLA 




OBYPR 


* 


BN 




TLGEN 


LD 


2 


TLGFD-TB 




BNN 




TL601 



\ "N 

St A 

STO 

LD 

STO 

BSI 

MDX 

MDX 

US I 
STX 



TLG02 

16 

L FRESW 
2 K20-TB 
2 SCSN1-TS 
2 STMLS-TB 

L SCSNl.-l 
*-'. 



CLEAR CHANNEL FREED SW 
* 

SET COUNTER FOR DELAY 
** 

GO TO MONITOR 
DECRt COUNTER 
LOOP UNTIL FINISHED 



2 FREDV-1B FREE SEL CHNL 



FRESW 
TLG02 BSI I REOOV 



DC 
DC 
DC 
DC 

* 

LD 
BOD 

* 

OR 

STO 

MDX 

* 

TLO-40 LD 
OR 
STO 

TLGCM LD 
OR 
STO 



TLG03 
TLGED 
TLGOA 
TERM 

2 T45SW-TB 
TLG40 



SET SC FREED SW 

REQUEST DEVICE 
BUSY RETURN 
ED IT FOR PRINTED 
AREA CUDE GIVEN BACK 

TERMINATOR 

GET 43/53 SW 
BR IF 1443 

ELSE BUILD WRITE IOCC 



2 H0100-TB 
L TLGOA * 

2 TLGWP+1-TB * 

TLGCM * GO TO COMMON RTN 

2 H0500-TB CREATE. WR IOCC 

L TLCOA OR IN AREA CODE 

2 TLGWRll-TB 

2 M0700-TB CREATE SENSE IOCC 

L TLGOA OR IN AREA CODE 

2 TLGSN4 1-T8 



PAGE 



81 162580' 
81162590 
81 162600 
81162610 
61 162620 
81162630 
81 16264 
811 62650 
81 162660 
81162670 
81 162680 
8 11 O2690 
81 162700 
8 1 1 62710 
81 162 720 
81162730 
81 162740 
811 62 750 
81 163760 
61 1 on 770 
81 162 780 
81162790 
81 162B00 
6 ! 1 62810 
81 162 62C 
8 1 1 62 830 
81 16*'840 
81162850 
81 1 62 860 
81162870 
81 162880 
8 1 1 62890 
91 162900 
81 1 62910 
61 1O2920 
8 11 629 30 
81 162940 
81162950 
81 162960 
81 1 62970 
81 1 62980 
811 O2990 
81 163CO0 
8 11O30 10 
61 1630 2 
81! 630 30 
81 163040 
61 1 63050 
81 163060 
6l!o30 70 
81 1630 60 
611 63090 
8116310 
8 11631 10 
81 ;63120 
8 11 63130 
81 163" 40 
8 1163150 
81 163160 
81163170 
81 163180 
61163190 
81 1O3200 
81163210 
81 1632 2 
811632 30 
81 1632 4 
81163250 
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284 1 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



w 



'--/ 



1D4C EA97 
1D4D D25C 
1D4E 7002 

1D4F 42F7 
ID50 70E5 

1D51 1 6580 1E06 

1D53 C100 

1D54 0001 

1D5S O 6500 0000 

1D57 1 6D00 1E0A 

1D59 1 67H0 08D4 

1D5B 6B16 



1D5C 





C100 


1D5D 





F28D 


1D5E 


1 


4C18 ID 64 


1060 





C280 


1061 





E2C16 


1D62 





4 2FA 


1D63 





DB02 


1D64 





1010 


ID 66 





D25A 


1D66 





D25B 


1D67 





D05A 


1D68 





C299 


1D69 





DoOO 


1D6A 





7301 


1D6B 


1 


4400 1E03 


1D60 





700F 


1D6E 





1008 


106F 





EA57 


1D70 





0303 


1071 


c 


74C1 0000 


1D73 


1 


44 00 1108 


1D75 





7007 


1D76 





1888 


1D77 





C303 


1078 





1808 


1D79 





1 0B6 


1D7A 





D303 


1D7B 





7301 


1D7C 





70EL 



OR 

STO 

MDX 

* 

TI.G03 BSI 
MDX 

* 

TLG0 4 LDX 
LD 
STO 
LDX 
STX 
LDX 
STX 

* 

LD 

EOR 

BZ 

» 

LD 
AN) 
BSI 
STD 

ILG05 SLA 
STO 
STO 
STO 
LD 
STO 
MDX 



TLG06 



TLGBP 



1 1 

1 

LI 
LI 

13 
3 

1 
2 



Kl-TO 
TLGSR+ 1- 
TLG04 

ST MLS- T t) 
TLG02 

LEXITtl 



*+l 

*-* 

TLGCH+2 
TL6WR 
TL6BP+1 



BSI 

MDX 

SLA 

OR 

STO 

MD X 

USI 

MDX 

SRT 

LD 

SRA 

SLT 

STO 

MDX 

MDX 



2 
3 

L 

L 



1LRM-T0 
TL605 

TP1D-TH 
H7FFF-TB 
TCVHE-TB 
2 

16 

TLGSW-TB 

TLGSW+ 1-T 

1LG1S 

K3-TB 



1 

TLGCH 

TLG07 

8 

TLGSP-T3 

3 

*-* .1 

TLGCH 

TLG0 7 

8 

3 

8 

8 

3 

1 

TLG06 



SET RESET BIT 

T b * * * 

GO TO PRINT 

GO TO MONITOR 
LOOP TO TRY AGAIN 

GET CALLING R1N ADDR 
GET MSG ADDRESS 
SET FOR LOAD INDEX 
LOAD REG 
SAVE IN 'GET CHAR' RTN 
GET WW COUNT ADDRESS 
SET FOR BUMPING 

GET FIRST DATA WORD 
COMPARE WITH /FFFF 
BC. IF YES 

GET PIO 

DROP SELECT BIT 
CONVERT 10 1443 CODE 
SET IN MSG 

CLEAR - 

* 1ST/2N0 CHAR SW 



* INTERRUPT SW 



BUMP TO PT TO BUFFER 

GET A CHARACTER 

COME HERE FOR HEX FF 
POT 'N HIGH ORDER BYTE 

SET LOW ORDER TO SP 
STORE IN BUFFER 
BUMP WORD COUNT 
GET ANOTHER CHARACTER 

IF CHARACTER IS HEX Fl 
CHARACTER TO O 
GET LAST CHARACTER 
BYTE TO LOW P0S1 T 1 ON 
COMBINED BYTES IN A 
STORE IN BUFFER 
BUMP SINK 
LOOP UNTIL HEX 



IF 



TEST FOR 14'.3i IF YES GO TO XIO 
IF 1053 DO A CARRIAGE RETURN 



1D7D C2DL 

1D7C 1 4C04 10AA 

1D80 C25B 

10'!l 1 4C18 1D85 

1083 C2B9 

1084 D303 

1085 C2A9 
1D86 EH0 3 
1D87 D303 

1D88 1 6500 1E27 

1D6A 6936 

1D8B 10 10 

ID8C D25A 



TLG07 LD 2 T45SW-TB GET 43/53 

BOD TLG42 BR IF 1443 

* PUT TERMINATOR IN MESSAGE 



LD 
BZ 
LD 
STO 

* 

TLG06 LD 
OR 

sro 

* 

LDX 
STX 
SLA 
STO 



2 TLGSW-tl-TB GET 15T/2ND CHAR SW 



2 

3 

? 
3 

3 

LI 
1 



TLG08 

HFFOO-TB 

3 

HOOFF-TB 

3 

3 

TLGBA+1 

TLGSV 

16 

TLGSW-TB 



BR IF 2ND CHAR 
ELSE GET TERMINATOR 
PUT IN MESSAGE 

GET TERMINATOR 
PUT IN MESSAGE 



SET UP BUFFER POINTER 
SAVE 

CLEAR- 
* SECOND CHAR SW 



RT 
PAGE 



8 1 1632C.0 
81163270 
8 11632 80 
61 163290 
81 163300 
81 163310 
81 163320 
01 163330 
81163340 
81 163350 
8 1 1 63360 
8 1 163370 
8 1 1 63380 
61 1 63390 
811 63400 
6 1 1 634 10 
8 11 63420 
61 163430 
811 63440 
81 1 63450 
81 1 63460 
01 1634 7 
61163480 
61 163 90 
8 1 1 63500 
81163510 
811 63520 
81 163530 
el 1 6354 
61 163550 
8 1 1 63660 
61 1 63570 
811 63580 
81 163590 
811 63600 
81 1 63610 
611 63620 
81 163630 
8 1 1 63640 
fl 1 63650 
6 1 1 63660 
81 163670 
8 1 I S3660 
81 163690 
611 63700 
81 1637! 
611 63720 
81 1637 30 
811 63 740 
81 163750 
81163760 
81 163770 
Bl 1 63760 
81 163790 
8 11 63800 
61 163610 
811 63820 
81 163830 
811 63840 
61 163650 
8 1 163660 
81163870 
8 11 63880 
81 163890 
61163900 
81 1639 10 
61163920 
81 163930 
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2841 DIAGNOSTIC - PHASE A 

1800 DIAGNOSTIC MAINTENANCE PROGRAM 



1D8D 





C032 






LD 


1D8E 


1 


0*00 


1E26 




STO 


1090 





70i>3 




* 
* 


MDX 










COME 










* 




1D91 


1 


6580 


1DC1 


TLGPR 


LDX 


1093 





C25A 






LD 


1D94 


1 


4C18 


1D9D 


* 


BZ 


1096 





1010 




SLA 


1D97 





D2SA 






STO 


1098 





CI 00 






LD 


1099 





1006 






SLA 


109A 





7101 






MDX 


109B 





692S 






STX 


109C 





7 005 






MDX 



START LINE WITH A **CARR1AGE RF.TURN** 

TLGCR GET CR CHARACTER 

L TLGBA PUT IN OUTPUT AREA 

TLG4S GO PRINT 

COME HERE FROM INTERRUPT ROUTINE IF 1053 

II TLGSV RESTORE POINTER 

2 TLGSw-TB GET 2ND CHAR SW 



TLG09 BR IF (CHAR 
ELSE RESET SW 



) 



GET CHARACTERS 
SAVE 2ND CHAR 
BUMP POINTER 
SAVE POINTER 

GO TO COMMON RTN 



1D9D C100 
1D9E 1803 
ID9F O 1008 
1DA0 1 6CO0 080 9 

10A2 92B9 

10A3 1 4C18 1DE6 

IDAS B2D9 

1DA6 1808 

1DA7 1 44 00 1EAD 

1DA9 D07C 



16 
2 TLGSW-Ti 
1 

8 
1 1 
1 TLGSV 

TLG10 

* GET HERE IF PRINTING CHARACTER 1 
TLG09 LD 1 GET CHARACTERS 

SRA 8 

SLA 8 

STX L TLGSW SFT 2ND CHAR SW 

* GET HKRE IF PPInTINu CHARACTER 2 
TLG10 S 2 Ht'FOO-TB TEST FOR END OF LINE 

BZ TLGX2 BR IF YES 

«• 

A 2 HFFOO-TB ELSE RESTORE CHAR 
SRA 8 RIGHT JUSTIFY CHAR 

BS1 L TCV4S CONVERT TO 1016 CODE 
STO TLGbA PUT IN OUTPUT AREA 

* 

************************************************* 

* 

♦♦a********************************************** 

* 

* XIO WRITE- 

* PRINT 4 LINE ( 1443 ) 

* PRINT A CHARACTER (1053) 
* 

****** * ** ******##**»*****«**** ****** ****** ******* 

* 

******************** 9* ******** ************»*****] 

* 



1DAA 0A57 




TLG42 


XIO 


2 


TLG.'N-TB 


SENSE DSW 


10AB o moo 






RTE 




16 


f AVE 


1DAC C2DE 






LD 


2 


T4 5SW-TB 


GET 43/53 SW 


1DAD 4804 






SKP 




E 


SKIP IF 53 


1DAE 108 A 






SLT 




10 


SHIFT 31 FOR 4 3 


1DAF 109b 






SLT 




21 


SHIFT 21 FOR S3 


lDDO 1 4C10 


1DB4 




BNN 




TLG43 


BR IF READY 


I0b2 4 2F7 






bsi 


2 


STMLS-TB 


ELSE GO TO MONITOR 


1DB3 70F6 






MDX 




TLG42 


LOOP UNTIL READY 


1DB4 0AG5 




TLG43 

* 


XIO 


2 


TLGWP-TB 




10b5 680C 




STX 




TLGIS 


SET INT SW 


1DB6 C280 






LD 


2 


TERM-T6 


GET /FFFF 


1DB7 0259 




* 
TLGU 


STO 


2 


TLGCT-TB 


SET LOOP COUNT 


10B8 42F7 




BSI 


2 


STKLt-TB 


GO TO MONITOR 


1DB9 C008 






LD 




TLGIS 


TEST FOR INT 


1DBA 1 4C1B 


IDE 2 




BZ 




TLGXft 


bR IF IT HAPPENED 


1DBC 1 74FF 


08D8 




MDX 


L 


TLGCT.-l 


DECR COUNT 


1DBE 70F9 






MDX 




TLGU 


LOOP 



1DBF 70FF 



********#****)**************** «»**•***»***«***** 
MDX *-l TRAP STOP 
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81163950 
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S II 64210 
81 164220 
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81164330 
81 164 34 
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* 81164370 
81 164360 
61164390 
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2841 DIAGNOSTIC - PHASE A 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 






■ \ 
■-J 









J 






****************** x, i******* ************************* 

*************************************************** 
* * 

*************************************************** 

* 

* PRINT INTERRUPT ROUTINE 



1DC0 
1DC1 
IDC 2 
1DC3 

IDC 4 



o eioo 

0000 

0000 

0000 

0000 

10C5 1 6E00 1DDF 

1DC7 1 -6600 087F 

1DC9 COFb 

IDC A 4618 

1DCB 70FF 

1DCC 1 OCOO OUDA 
1DCE 1 4C28 1DD4 

1DD0 1002 

1DD1 1 4C28 1DDC 

1DD3 70FF 



TLGCR DC 
TLGSV DC 
TLGIS DC 
TLGDA DC 
TLGIN 



/8100 



L2 
L2 



TLGl 3t3 

TB 

TLGIS 

^ - 



CARRI AGE'RETURN 
SAVE BUFFER POINTER 
INT SW 

AREA CODE PUT HERE BY MON 
INTERRUPT ENTRY POINT 
SAVE X2 
SET X2 

GET INT SWITCH 
SKIP IF NONZERO 
*************************************************** 

MDX «~1 TRAP STOP 

*************************************************** 

XIO L TLGSR SENSE RESET D SW 

TLGl 2 BR IF XFER COMPLETE (1443 

* OR SVC RESPONSE (1053) 
2 TEST FOR PRINT COMPLETE 

TLGl 3 BR IF YFS 

**>************************************************ 

K>X *-l TRAP STOP 

*************»*******, >***** ************************ 



COMPLETE) 



DC 

STX 

LDX 

LD 

SKP 



UN 



SLA 

bN 



lDDt 





16D0 




TLGl 2 


RTC 




16 


SAVE DSW 


1DD5 





cr.jii 






LD 


2 


T45SW-T6 


GET 43/53 SW 


1DD6 





F297 






EOR 


2 


Kl-TB 


It ST FOR 1443 


1DD7 


1 


4C20 


1DDC 




BNZ 




TLG13 


BR IF 1053 


1DD9 





1092 






SLT 




18 


GET DSW (PRINT 


1DDA 


1 


4C10 


1DDE 


* 
TLG13 


bNN 




TLG13+2 




1 DDC 





1010 




SLA 




16 




1DDD 





D0E4 






STO 




TLGIS 


CLEAR IrtT SWITCH 


1DDE 





6600 


0000 




LDX 


L2 


*-* 


RESET X2 


1DE0 


1 


4C80 


1DC4 




DSC 


I 


TLGIN 


EXIT INT RTN 



*************************************************** 

* * 

****** ********************* *********,,, ************** 
* 

* MONITOR COMES HERE FROM INT R IN 



IDE 2 





C043 




1DE3 





1808 




IDE'l 


1 


4C20 


1D91 


IDE 6 


1 


6780 


08D4 


1DE8 


1 


6F00 


ID 72 


1UF.A 





C299 




1DI.H 





D300 




1DEC 





7301 




10LD 





10A0 




IDEE 





DE^Ol 




10E.F 





D25A 




1DF0 





40 17 




1DF1 





7002 




IDF 2 


1 


4C00 


1D6E 



TLGXft 



TLGX2 



1DF4 4480 0132 
1DF6 1 0813 
1DF7 1 OfcOC 
IDF6 CODE 
1DF9 4820 
1DFA 42EB 



TLGl! 



LO 

SRA 

BNZ 

LDX 

STX 

LD 

STO 

MD X 

SLT 

STD 

STO 

BSI 

MDX 

BSC 

BSI 

DC 

DC 

LD 

bSC 

BSI 



13 

L3 

2 

3 

3 

3 
2 



TLGUA 

8 

TLGPR 

TLGWR 

TLGBP+1 

K3-1B 



I 

32 

1 

TLGSW-TB 

TLGCM 

TLC15 

TLG06+3 

?ELDV 

TLGED 

TERM 

FRESW 

Z 

GETDV-TB 



GET 
TE 
BR IF 



WCRO CNT 
T FOR 1053 
1053 



GET 
SET 
SET 
• ** 

BUMP PO 
SET P1D 



BUFFER ADDRESS 

PTR TO WORD COUNT 
WRD CNT = 3 



!NTER 
= BLANKS 



IN MESSAGE 



RESET 1ST/2ND CHAR 
GET A CHARACTER 
HERE IF HEX /OOFF 
ELSF. LOOP 

CO RELEASE DVC 
ADDRS OF ED IT WRD 

GET CHNL RELS SW 
SKIP IF NOT SET 
ELSE GET CHNL 



8 1164 6.:0 
81 164630 
81 164b40 
81 164 650 
8 1 I 64660 
81164670 
81164 6 80 
8 1 164690 
8 1 164 700 
8 1 1 64 7 1 O 
81164 720 
81164730 
811 64 740 
81 164 750 
8 1 1 64 760 
61164 770 
811 64780 
81 164790 
811 64000 
8 1 1 64 8 1 
81164820 
Kl 164B30 
811 64H40 
81 164H50 
81 164860 
81 164b70 
8 1164880 
81 16*690 
81 1 64900 
61 164910 
81164920 
81 164930 
611 6494 
81 164 9 50 
811 64 960 
61 I 64970 
81164980 
81 164990 
8 1 I 65000 
8 1 1 650 1 
81165020 
81 1650 30 
81 i »j5040 
81165050 
811^5060 
81 165070 
81165080 
81 165090 
81165100 
81165110 
81 165120 
81 1651 30 
81165140 
61 165150 
811 651 60 
<fU 1651 70 
81165180 
81165190 
8 1 165200 
81 165210 
8 1 1 65220 
61 1652 30 
81165240 
81165250 
61165260 
81 1652 70 
811652 80 
81 165290 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431326 



PROG ID 
PAGE 



0811- A 
48 



'^ DATE 



EC NO. 



■'% 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG I D 
PAGE 



0811-A 
48A 









o 
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\n> dat s : 

EC NO. 



c 



r-- 

w 





* 








81 165300 


1DFO 1010 




SLA 


16 


RESET- 


811 65310 


1DFC DOOA 


* 


STO 


FRESW 


* CHNL RELS SW 


81 165320 
81165330 


1DFD 1 740 1 1E06 


TLGEN 


MOX L 


LEXIT+1 ,1 


BUMP RETURN BY 1 


81 165340 


1DFF 6700 0000 


TLGX3 


LDX L3 *-* 


RESTORE REG 


31165350 


1E01 6600 0000 




'-OX LI *-» 


RESTORE REG 


81 165360 


1E03 1010 




SLA 


16 


RESET LOG BUSY SW 


811,65370 


1E04 D2D6 




STO 


2 LGBSY-TB 


* 


81 165380 


1E05 4CC0 0000 


LEXIT 

* 


BSC L 


»-» 


EXIT PRINT RTN 


811 653 90 
81 165400 


1E07 0000 


FRESW 


DC 





CHNL RELEASED SW 


31 1 654 10 




♦ft***************** »,**************ri* ************* «» 


81 165420 




* 






* 


8 11 654 30 




****************»*******************■>*******<■****** 


81 1 65440 




* 








8 1 1 654 50 




* 


FETCH 


ONE CHARACTER FROM SOURCE MESSAGE 


81 I 65460 




* 








8 11 654 70 


1E03 0000 


TLGCH 


DC 


*-* 


EN1HY POINT 


81 1654 60 


1E0J 6600 0000 




LOX LI *-* 


SET UP POINTER 


611 654 90 


1E0C C25.l1 




LO 


2 TLGSW+1-TB 


GET 1/2 CHAR SW 


81 1 65500 


1E0C 1 4C20 1E13 




BNZ 


TLG16 


BR IF SET 


81165510 


1E0E 1 f.COO 08DA 




STX 


L TLG5W+1 


SET 1/2 CHAR SW 


81 165520 


IE 10 CI 00 




LD 


1 


G' 1 TWO CHARACTERS 


811 S5530 


1E11 1B08 




SRA 


8 


KEEP HIGH ORDER ONE 


81 16554 


It 12 7007 


* 


MOX 


TL017 


GO TO CMN RTN 


81165550 
81165'60 


1L13 1010 


TLG16 


SLA 


16 


CLEAR 15T/2ND CHAR SWITCH 


811 65570 


IE 14 026B 




STO 


2 TLGSW+1-Tfc 


*** 


81 165580 


IE 15 CI 00 




LD 


1 


GET TWO CHARACTERS 


811 65590 


1E*6 1006 




SLA 


8 


KEEP LOW ORDER ONE 


81 165600 


1E17 1808 




SKA 


8 


**** 


Bll 65610 


1E18 7101 




MDX 


1 1 


BUMP SOURCE POINTER 


81 165620 


1E1 i 691" 


* 


STX 


1 TLGCH-t2 


SAVE 


81 1 65630 
81 166640 


1E1A 1 4C20 IE1D 


TLG17 BNZ 


TLG18 


SET TO SPACE IF ZERO 


8 1 1 65650 


1E1C C267 




,. • 


2 TLGSP-TB 


*** 


CI 165660 


1E1D F2A9 


TLG1F ►.... 


2 HOOFF-TQ TEST FOR HEX FF 


8116S670 


1E1E 1 4C9B 1E08 




L l 


I TLGCH 


EXIT IF HEX FF 


81 165680 


1L20 F2A9 




EOR 


2 HOOFF-TB 


-IE-INVERT IT 


81165690 


1K21 1 7401 1E08 




MDX 


L TLGCH, 1 


BU..P RETURN ADDRESS 


81 165700 


1E23 1 4C80 1E08 


* 


BSC 


1 TLGCH 


EXIT THIS RTN 


61165710 
81 165720 


1E26 0000 




BSS 


E 




811 65730 


1E26 0000 


TLGBA DC 


*-* 


WORD COUNT FOR PRNT LINE 


81 166 74 


If 27 0003 




PR NT 


. xxxx. 


P10 GOES HERE 


81165750 


IE2A 0032 




BSS 


50 


LENGTH OF BUFFER 


81165760 




** it ***** * ** * ***************************** * ********* 61165 770 




* 








* 81165780 




*************************************************** 1 1 65790 




*************************************************** (ill 65800 




* 








* Bll 65810 




*************************************************** 811 65 82 




* 








81 166030 




* 


CONVERT HEX WORD 


TO 1443 COSE 


81 lob040 




* 








611 66850 




*******»*********»**************.******************* 811 65860 




* 








* 81166870 




*************************************************** 811658H0 


1ESC 


TCVBN LQU 


* 


ENTRY POINT 


8 1 1 65890 




* 








81 1 65900 


1E5C 16D0 




RTE 


16 




81165910 


1E5D 400E 




BSI 


TCV01 


GET NEXT CHARACTER 


81 165920 


1E5U 1008 




SLA 


e 




81 1 659 30 


ltbF D2BE 




STO 


2 TCVSl-Tb 




81 165940 


IE 60 4 0011 




BSI 


tcvoi 


GET NEXT CHARACTER 


81165950 


1L61 EABE 




OH 


2 TCVS1-TB 




81 165960 


1E62 02BE 




STO 


2 TCVG1-TB 




8 1 1 65970 



14N0V69 30JAN70 15SEP71 
431319 431319A 431328 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



" '5 






U 



o 



/ ' '", 






1E63 
1E64 
1E65 
IE 66 
1E67 
1E68 
1E69 



1E6A 1 

1E6C 
IE 60 
1E6E 
1E6F 1 
1E71 



4008 
1008 
D2BF 
4005 
EABF 
1890 
C2BE 
4C80 0879 

0000 
1010 
1084 
4C20 1E74 



C2A3 



1E72 I 4C80 1E6C 

1E74 929C 
1E75 4830 
1E76 82A7 
1E77 829C 

1E78 1 4C80 IE6C 



* 
TCV01 



* 
TCV02 



BSI 
SLA 
STO 
BSI 

OR 
SRT 
LD 
BSC 

DC 

SLA 

SLT 

BNZ 

LD 

use 

s 

SKP 
A 

A 



TCV01 

6 

TCVS2-TB 

TCV01 

TCVS2-TB 

16 

TCVS1-TB 

TCVBF 

*-» 

16 

4 

T C V 02 

HOOCA-TB 

TC. -Jl 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



K9-TB 
Z- 

H0027- 
K9-TB 



ENTRY 



BR IF NOT ZERO 

0=/0A 
EXIT 

SUBTRACT 9 



To 



BSC I TCV01 



ADD BACH A CONSTANT 



EXIT 



ftAft* >********************************************** 

* * 
******* ***»*#**.«*******************»****** ********* 
* 

* CONVERT HEX TO DECIMAL, A REG TO A REG 



*********** 



* *** CALL - B'SI 2 TCVI-O-TB *** 

********* ****** ************* ****** ****** 

* * 
*************************************************** 



1E7A 1 


4CA8 007C 


1L7C 


1890 


1('7D 


AAA2 


1 h 7E 


100C 


1E7F 


DOOD 


1E60 


1004 


1E81 


AAAO 


1E82 


1008 


1E63 


E8 09 


1E64 


0008 


1L85 


1008 


1E86 


AA9D 


1EH7 


108C 


1E88 


180C 


1K89 


1084 


1E8A 


F802 


1E8B 1 


4C80 067C 



THEXD 



1E6D 0000 



UN 
SRT 



SLA 
STO 
SLA 

D 

SLA 

OH 

STO 

SLA 

D 

SLT 

SRA 

SLT 

OR 

BSC 

DC 



I 



TCVKJ 
16 

K1000-TB 
12 

THEXS 

4 

K100-TB 

H 

THEXS 

THEXS 
8 

Kl O-Tb 

12 

12 

A 

THEXS 
TCVH) 



EXIT IF NEG 



MOST SIGNIFICANT DIGIT 
POSITION DIGIT 



CLEAR A REG 



NEXT SIGNIFICANT DIGIT 
POSIT ION D IGI1 



CLEAR A REO, 

NEXT SIGNIFICANT DIGIT 
COMBINE LAST TWU DIGITS 

*** 
*** 



TEMP STORAGE 



************************************* 



THEXS 
* 

************** 

* * 
ft****************************************?********* 
*************************************************** 

* * 
*************************************************** 
* 

* CALL BSI L TCVSR 

* GET AO = SPACE/SECT/SPACE/RTN 



PAGc 



8 11 669F0 
81 165990 
811 66000 
81 1660 10 
81 166020 
81 166030 
8 1 166040 
81 166050 
81 1 66060 
81166070 
81 1660 BO 
81 166090 
811 66100 
81166110 
8 1 1 66120 
81 166130 
81166140 
81 166150 
81166160 
81 1 661 70 
81 1 66) 60 
81' 66190 
81 166200 
81 1662 10 
81166220 
8 1 1662 30 
8116624 
81 166250 
611 66260 
81 166270 
811 662 80 
81 166290 
8 1 1 66300 
81 166310 
8 1 166320 
81 166330 
811 6634 
81 166350 
8 1 1 66160 
81 166370 
8 1 t 66380 
81 166390 
811 66400 
81 1664 10 
8 1 1 664 20 
61 1 66430 
8 116644 
61 1664 60 
8 1 1 664 60 
81 166470 
B 1 1 664 80 
81 166490 
8 1 1 66500 
81 166610 
811 66620 
8! 166530 
8116654 
61 166550 
81166560 
81 166570 
81166580 
81 166690 
81166600 
61 16661 
8 1 1 66620 
81 166630 
81166640 
61 166650 



W DAT 



DATE 
EC NO. 



14N0V69 30JAN70 15SEP71 
431319 431319A 431328 
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o 
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1EBE 





0000 




IE OF 





6B0A 




1E90 


1 


6780 


0815 


1EV2 


1 


C700 


IE90 


1E94 





1890 




1E95 


1 


6780 


OBOO 


1E97 


1 


C700 


1E9C 


1E99 





6700 


0000 



1E9B I 4CBO 1E0E 



* * 

TCVSR DC *-* 

SAVE REG 

GET ROUT INI NUMBER 

GT PSINTABLE CODE 

A TO O 

GET SECT NUMBER 

GET PRINTABLE CODE 

RESTORE REG 

EXIT 



1E9D 



0016 



STX 3 TCVSZ+1 

LDX 13 TRID 

LD L3 O IG1T 

SRT 16 

LOX 13 TSID 

LD 1.3 DIG IT- 1 

TCVSZ LOX L3 *-* 

bSC I TCVfR 
* 
DIGIT PRNT .0123456789ABCDEF. 

* » 

* 

* CONVERT 1443 CODE lO 1816/1053 CODE 

* 

******* ******************************************** 

* * 
********»*******************«******#**********»**»* 



SAVE 1443 CHAR 
SET UP POINTER 

CLEAR AO 

PICK UP NEXT ENTRY IN TBL 

DELETE TR CHAR 
TEST CHAR 

CHAR COMPARES 



1EAD 


0000 




TCV45 


uc 




*-* 


ItAE 


6B45 






STX 


3 


TCVSV+1 


1EAF 


0043 






STO 




TCVSV 


lEbO 


1 6700 


IEC6 




LOX 


L3 


TCVTB 


lbHH 


10A0 






SLT 




32 


1EB3 


C300 




TCV03 


LD 


3 





1EH4 


18C6 






RTF. 




8 


lEBS 


F03D 






EOR 




TCVSV 


lfclifc 


1 4C18 


1EBF 


* 


faZ 




TCV04 


liHB 


o ;oaa 




SLT 




8 


iei)9 


F2A9 






AND 


2 


H00FF-1 


1EBA 


F2A9 






EOR 


2 


H00FF-1 


1EBB 


1 4C18 


1RC1 


* 


7 




TCVEN 


lfcBD 


7301 




MDX 


3 


I 


1EUE 


70F4 




* 
TCV04 


H>X 




TCV03 


JEBF 


1K0 




XCH 






1LC0 


4818 






SKP 




+ - 



1ECI C030 

1EC2 1 6700 1KF4 

1EC4 I 4C80 1F.AO 



TCVEN LD TCVSP 

LDX L3 TCVSV+1 
I'.' C I TCV4S 



1EC6 





313E 


1EC7 





32i A 


lEce 





33 IE 


IEC9 





3432 


1ECA 





3536 


1ECB 





3612 


IfcCC 





3716 


leco 





3820 


1ECE 





3922 


1ECF 





217E 


IfcDO 





225A 


ltDl 





23bE 


1ED2 





2472 


JtD3 





2576 


1ED4 





26S2 


1E05 





2756 


1ED6 





2866 


1ED7 





2962 



RESTORE REG*0 
SET UP TO TEST 
> FOR TERMINATOR 
00 TO END ROUTINE 



INC POINTER 
RETURN TO LOOP 



RESTORE TR CHAR 
EXIT 



SET UP SPACE 
RESTORE XR3 
EXIT 

*************************************** *********** 
* 

************************************************** 
TCVTB DC /313E A ( 1 443 . T ILT-ROTATE ) 

DC /321A B 

DC /331E C 

DC Z3432 D 

DC /3S36 E 

DC /3612 F 

DC /3716 G 

DC Z3826 H 

DC /3922 I 

DC /217E J 

DC /225A K 

DC /23SE L 

DC /2472 M 

DC Z2576 N 

DC /265£: O 

DC Z2756 P 

DC Z2866 

DC Z2962 R 



PART NO. C279471 
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8 1 166660 
81 1 66670 
8 1 1 66680 
8 1166690 
61 166700 
81166710 
81 1 66720 
81166730 
81 166740 
8 1 166750 
Bl 166760 
81166770 
81 166780 
811 66790 
81 1 66800 
81166810 
81 166820 
81166830 
81 166640 
8 1 1 66850 
81 166860 
81 1 66H70 
81 1 66880 
>- 11 66890 
81 1 66900 
811 66910 
81 1 669 2 
81 1 66930 
81 166940 
81166950 
81 166960 
81 166970 
81 1669 80 
811 66990 
81 167000 
81167010 
81 167020 
81167030 
81 167040 
81167050 
81 167060 
81167070 
81 167080 
8 1 167090 
hi 167100 
8116 7110 
81167120 
v 8 1167130 

* 81167140 

* 81167150 
8 1 167160 
81167170 
81 167180 
81167190 
81 167200 
81167210 
81167220 
81167230 
81 167240 
81167250 
81 167260 
81167270 
81167200 
81167290 
81 167300 
81167310 
81 167320 
81167330 
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DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
* 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
* 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

TCVTC DC 

TCVSP DC 

TCVSV DC 

DC 



( } 






1ED8 





129A 


1ED9 





139E 


IEDA 





14b2 


I BOB 





1SB6 


1EDC 





1692 


1EDD 





1796 


1E0E 





1RA6 


ltDF 





19A2 


1EE0 





01FC 


1EE1 





020 8 


1EE2 





03DC 


1EE3 





04F0 


1EE4 





0SF4 


1EE5 





06D0 


1EE6 





07D4 


1EE7 





08E4 


ICE 8 





09E0 


1EE9 





0AC.4 


1EEA 





0021 


lfcEB 





2 CO 6 


1LEC 





1CFE 


1 E.ED 





3CF6 


IEEE 





1 1BC 


1ELF 





2084 


1EF0 





0BC2 


1LF1 





OOFF 


1EF2 





2100 


1EF3 





0000 


1LF4 





ooao 



1EFS 
1EF5 C28D 
1LF6 O D233 

1LF7 C277 

1EF8 1 4C20 1106 

1EFA 1 74FF 08B2 
1LFC 70FA 



1 1: FD 





0A33 


1EFE 





D249 


1 tFF 





0A37 


1F00 





D24A 


i~oi 





0A39 


1F02 





D24B 


1F03 





0A3B 


IF 04 


c 


D24C 


1F05 





7006 



/129A 
/139E 
/14B2 
/15R6 
/1692 
/1796 
/18A6 
/19A2 

/01FC 

/02D8 
/03DC 
/OAFO 
/65F4 
/0600 
/07D4 
/08E4 
/09E0 
/0AC4 

/0021 

/2C0 6 

/1CFE 

/3CF6 

/xlBC 

/2084 

/CBC2 

/OOFF 

/2100 







1443, TILT-ROTATE) 



S 

T 
U 
V 

w 

X 

Y 
Z 

1 ( 

2 

3 

4 

5 

6 

7 

8 

9 





SP( 1443, TILT-ROTATE) 

< 
) 

/ 



TERM 

SPACE 

TEMP STORAGE 



It**********/.*********************************** 

* 

**«.*********«•*«*»**********♦*******»**#******»* 

* WAIT FOR 1/0 INTERRUPT 

*#*♦**»********«****»**»« *«*v****************** 

* 

************»»********************<•-************ 



** ** 

* 
***■* 



1F06 1 7401 0894 

1F08 1010 

1F09 D277 

1F0A 1 4C80 0894 

1F0C 1 C480 0B94 



TINTS EOU 




* 


ENTRY POINT 




LD 


2 


TF.RM-TH 


SET TIMEOUT COUNTER 


* 
TI 


STO 


2 


SCaNl-TB 


» 


NS? LD 


2 


WlOSW-TB 


FETCH WAIT SWITCH 


* 


BNZ 




TINS3 


BRANCH IF SFT 


MDX 


L 


SCSN1 ,- 1 


DEC WAIT COUNTER 


* 

* 


MDX 




T1NS2 


LOOP BACK AN} WAIT 


COME HERE 


IF TIMEOUT 




XIO 


2 


SCSN1-TB 


GET SELECTOR CHANNE 




STO 


2 


SCSXC-TB 


UNIT STATUS. 




XIO 


2 


SCSN3-TB 


* 




STO 


2 


SCSXC-tl-TB 


* 




XIO 


2 


SCSN4-TB 


* 




STO 


2 


SCSXC+2-1B 


* 




XIO 


2 


SCSN5-TB 


* 




STO 


2 


SCSXC+3-TB 


* 


* 

T 


MD X 




TINS 4 


GO TO ERRO*» RETURN 


INS3 MDX 


L 


WAITS. +1 


BUMP RETURN 




SLA 




16 


RESET WAIT I/O SW 


* 

* 
T 


STO 


2 


WIOSW-TB 


* 


BSC 


1 


WAITS 


RETURN TO USER 


INS4 LD 


I 


WAITS 


SET-UP ERROR RETUR 



PAGE 



81167.J' O 
81 16 73^0 
811673&0 
81 1673*0 
811 6 73B0 
81 1673^0 
9 1 167*00 
8 1 1 6.T* I 
81 lte7*?0 
81 1*74 30 
8 1 167440 
81 167450 
8!16?*60 
81 167* 7 
8116/480 
81 lt.7^90 
8 1 16 7500 
81 16.7510 
81 167SJ:0 
81 I 6.7S30 
8ll65"->40 
81167550 
81 167560 
81 1 ft. 570 
8 1 1 6.7580 
8) lfc.7590 
8116 7600 
61 167610 
81 lfc7620 
81 1 fc7fe30 
81 I 6 764 
81 1&7650 
81 167660 
ftl lf.7670 
811 6 7680 
81 SC7690 
1 1.67700 
81 1*77 10 
81167720 
81 1«,7730 
8 1 1 »j77«0 
81 167750 
81 i 67760 
81 167770 
811 67780 
81 167790 
81*67 600 
81 16781 O 
81167620 
81 « 1.7830 
8 1*6784 
81 167350 
81 167860 
61 167670 
8 1167880 
81 \tr, 890 
81167900 
61 1679)0 
8 1 I&7920 
81 16 79 30 
81*67940 
81 165950 
6 11*7960 
81 167970 
811 67980 
81367990 
81168000 
811680 10 



5 0A 



CATC 

EC NO. 



>4, 



14N0V65 
431319 



30.IAN70 
431319A 



15SEP71 
431326 



PROG ID 
PAGE 



081 l-A 
50 



<"S 










Sjy 


DATc 


14N0V69 


30JAN70 


15SEP71 




EC NO. 


431319 


431319A 


431328 



o. 

Q 
O 



*»»OG I D 
PAGE 



0811-A 

5 0A 



OOOOOODOOOOOOOOO 
^^ IBM^HnNTENW»CE DI7WW0STIC*^06RAPP^OR TlW^l 800 Tfc^TEM ^^ ^*"^ ^^ ^"^ PllPff NO .^*T/ 94 7%^ 
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* 
1F30 

1F30 690D 

1F31 1 C480 0861 

1F33 D001 

1F34 6S03 0000 



w 

O 

c 
c 



CVMAE EOU 


* 


ENTRY POINT 


STX 

• 

LD 


1 CVHA1+1 


SAVE XR1 


I CVHA 


FETCH PARAMETER 


STO 


* + l 


PLACE IN LDX 


LDX 


LI *-» 


XR1=PARM 



* 



CONVERT HEAD OR CYLINDER 



1F36 1 C500 09BD 

1F38 1800 

1F39 1 CbOO 09BC 

1F3B 10H8 

1F3C 42FA 

1F3D 6600 uOOO 

1F3F 1 740 1 0861 

1F4 1 1 4C80 0861 



LD LI RAREA+1 

RTE 16 

LD LI RAREA 

SLT 8 

BSI 2 TCVBE-TB 

* 

CVHA1 LDX LI *-* 

MDX L CVHA.+l 

BSC I CVHA 



FETCH DATA 
PLACE IN O 
FETCH DATA 

CALL CONVERT RTN 

RESTORE XR1 

SET RETURN ADDRESS 

RETURN TO USER 



DATE 
EC HO. 



♦ at**********************************************-** 
* 
************************************* *** ******** 

* HOME ADDRESS COMPARE ROUTINE 

* 



1F43 


HACRT 


EQU 




* 


ENTRY POINT 


1F43 692 4 


STX 


1 


HACR3+1 


SAVE XR1 


1F4 4 6B2b 


* 


STX 


3 


HACR3+3 


SAVE XR3 


IF45 1010 


SLA 




16 


CLEAR ACC 


lf-46 D027 


* 


STO 




HACR5 


RESET PASS SWITCH 


1F«7 1 C480 0870 


LD 


I 


HABLC 


FETCH WAS ADDRESS 


1F49 D00 1 




i '! . 




*+l 


*ET in ldx 


1F4A 6500 0000 


* 
* 


.l>.' 


LI 


*-* 


XR1=WAS ADDRESS 


1F4C I 7401 0870 


MDX 


L 


HABLC. +1 


ADVANCE PARM LIST 


1F4E 1 C4F.0 0870 


LD 


I 


HABLC 


FETCH S/B ADDRESS 


1F50 D001 




STO 




* + ] 


SET IN LDX 


1FS1 6700 0000 




LDX 


L3 


*-* 


XR3=S/B ADDRESS 


1F53 1 740 1 0670 


if 


MDX 


L 


HABLC .+ 1 


SET-UP RETURN ADDRESS 


IF55 CI 01 


HACR1 


LD 


1 


+ 1 


FETCH WAS +1 


If t>6 1600 




RTE 




16 


PLACE IN REG 


1F57 C100 




LD 


1 





FETCH WAS +0 


1F58 1088 




SLT 




8 


SET-UP CYLINDER ONLY 


lFt.9 DO 13 


* 


STO 




HACR4 


SAVE 


1F5A C301 


LD 




+ 1 


FETCH S/B WORD 


1F5B FOU 




EOR 




HACR4 


TEST FOR MATCH W I TH W 


1F5C I 4C20 lf-67 


* 


BNZ 




MACR3 


BRANCH IF ERROR 


JFSfc COOF 


LD 




HACR5 


FETCH SECOND PASS SW 


lFbF 1 4C20 11-66 


* 


UHi 




HACR2 


BRANCH IF SET 


1F61 COOO 


LD 




* 


FETCH A VALUE 


1F62 DOOB 


* 


STO 




HACR5 


SET PASS SW 


IF 63 7 101 


MDX 




1 +1 


AOV TO HEAD TEST 


1F64 7301 




MDX 




3 +1 


* 


IF 65 70EF 




MDX 




HACR1 


CONTINUE 


1F66 1010 


HACR2 SLA 




16 


CLEAR ACC 



PAGE 



6 - 168700 
81168710 
81168720 
81 168730 
8116e740 
81168750 
81168760 
81 168770 
81168780 
81 168790 
81168800 
8116B810 
811 68820 
81 168830 
81168040 
811688b0 
81168860 
81 16887 
81 16 88H0 
81 168890 
8 1 I 68900 
■t 81168910 

* 81168920 

* 81168930 
PI I 68940 

•i 81168950 
t 81168960 

* 8 1 16J./70 
811 68980 
81 168990 
81169000 
81 16901 O 
8 1 169020 
81 169030 
81 1 69040 
81 169060 
811 69060 
81 169070 
811 690B0 
81 169090 
81169100 
6 1 I 69 1 1 
61169120 
81 169130 
811 69140 
81 1691' O 
811 69160 
81 169170 
81 169180 
81 169190 
81 169200 
81 169210 
01169220 
81 1692 30 
811 69240 
81 169250 
8 1 169260 
81 1692 10 
81 1692 80 
81 169290 
81169300 
8 1 1 69 3 1 
81169320 
81169330 
81169340 
81 169 360 
81169360 
81169370 



51 A 



14N0V69 
431319 



30JAN70 
431319A 



1SSEP71 
431328 



PROG 10 
PAGE 
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081 1-A 
51 A 



I F Ob. 





0003 




STO 


* + 3 


1F0F 





1010 




SLA 


16 


1F10 





D277 




STO 


2 WIOSW-TB 


1F11 





4C00 


0000 


BSC 


L ■»-* 



DATE 
EC NO. 



81 I6P0?'> 
8U68030 
81 1680 4 
81168050 

* 81 168060 
tt*ttt*t»*»*t»*«t»*»t*»»»»t»»t*»tl»t»**»t»*it*t»«* 811 68070 

* * 81168080 
***»********* + **♦ ****»**»*»:>******«***»* ************ 81 I 680 90 

* 81168100 

611681 10 
81 168120 
811681 30 
81 1 68140 
81168150 
61 168160 
81168170 
81168180 
6 1 168190 

* 31168200 
******»»************************«#*?*****»+»******» 811 682 10 

* * 81 168220 
*#»**¥* •>«**««««t«ttt*«««tt«*lt«*«<l|t«*t*)««lt*««** 8 '. 1 6 02 30 



RESET-WAIT SW 
RETURN TO USER 



SPECIAL T10 ROUTINE 

WILL RETURN THE FOLLOWING CONDITIONS 

VIA THE A REG WHEN USER RETURN IS ISSUED. 

/OOOO DEVISE IS AVAILABLE — NO STATUS 

/8000 CSV* STORED 

/4000 ADAP1ER BUSY 

/2000 NOT OPERATIONAL 



1F13 


TIOSE EOU 
* 

SLA 


1F13 1010 


IF 14 024 7 


STO 



ENTRY POINT 



16 CLEAR- 

2 SCSX8+2-TB * INTERRUPT SW 



TEST FOR ADAPTER BUSY 



GET CHANNEL STATUS WORD 
TEST FOR ADAPTER BUSY 
bRANCH IF NOT BUSY 



FETCH RETURN CODE 
GO TC EXIT 



81 168240 
81 168250 
81 168260 
81168270 
61 168280 
81 16 82 90 
81 168300 
6 1 168310 
SI 16B320 
81 1 6H33C) 
81 168340 
8 1 168350 
81 1 68360 
81168370 
81 168360 
8 1 1 68390 
81 166400 
8 1 1 684 10 
81 168420 
81 168430 
81 168440 
811 684 50 
81 1684 60 
8 1 1 6H4 70 
81 1684 80 
8 116 84 90 
81 16Ori0 
81168510 
81 16PL20 
81166530 
81 16854 
611 68550 
61 168560 
8 1 1 68570 
81 168580 
8 1168590 
81 16860 
81168610 
81 16862 
*****#**#*«#«***«***«<-**** **«****#*# ****«. ***•>»#***# 811686 30 

* « 81168640 
*****»*«*»*»**#****»***»*************»********«**** 811 68650 

* CONVERT HOME ADDRESS TO 1443 C O) E 81168660 
*************************************************** 8 11680 70 

* * 81166680 
***«.**«<»**»*i»»t*»***t***»*»«t*********ftii.****»**»*»«. oil 68690 



IF 15 0A3 1 






XIO 


2 


SCSNO-TB 


IF 16 1007 






SLA 




SCABZ 


1 r 1 7 1 4C 1 


1F1C 


s 


ISNN 




T 1 OS 1 


IF 19 0A3B 




XIO 


2 


SCSNS-TB 


1F1A C2B4 






LD 


2 


H4000-TB 


1F1B 7012 




» 
TIOSl 


MDX 




T 1 0S3 


1F1C 0A3B 




XIO 


2 


SCSNb-TH 


1F1D 0A29 




* 
T10SF 


XIO 


2 


TIOXX-TB 


1F1E 42F7 




US I 


2 


STMt.S-TB 


IF IF C247 






LD 


2 


SCSX8+2-1 


IF 20 1 4C10 


IHE 


* 


BZ 




T10SF 


1F22 C245 




LD 


2 


SCSX6-TB 


1F23 1 4C10 


1F27 


* 


BNN 




T 1 0S2 


lF2b C2B1 




LD 


2 


H2 000-TB 


1F2.6 7007 




* 
TI052 


MDX 




TI0S3 


1F27 C246 




LD 


2 


SCSX8+1- 


1F28 1000 






SLA 




6 


1FV9 t 4C18 


1F2D 


* 


BZ 




T10S4 


1F2B C2B7 




LD 


2 


H8000-TB 


1F2C 700 1 




* 
TI0S4 


MDX 




T10S3 


1F2D 1010 




SLA 




16 


1F2E ) 4C80 


0885 


T10S3 

* 


BSC 


I 


TIOSN 



EXECUTE T10 



GO VISIT MONITOR 

FETCH INTERRUPT £ 
bRANCH IF NOT YET 



FETCH CHANNEL STATUS 
BRANCH IF OPERATIONAL 



FETCH RETURN CODE 
GO TO EXIT 



CLPAR UNIT AODRCSS 
BRANCH IF STATUS ZERO 



FETCH RETURN CODE 
GO TO EXIT 



SET RETURN CODE 
RETURN TO USER 



14N0V69 
431319 



30JAN70 
431319A 



16SEP71 
431328 
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PAGE 
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51 
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1F67 6S0O 0000 

1F69 6700 0000 

1F6B 1 4CB0 0870 

1F6D 0000 

1F6E 0000 

1F6E 

JF70 0A87 



HACK 3 LDX LI *-* 

LDX L3 *-* 

DSC I HABLC 

* 

HACR4 DC *-* 

HACR5 DC »-* 

* 

PEN2 EQU *-l 

END BG1N 



RESTORE XR! 
RESTORE XR3 
RETURN TO USER 

SAVE AREA 
PASS SWITCH 

END OF PGM 
XFER ADDRESS 



Jjl 169380 
81169390 
81169400 
8 11 694 10 
81 169420 
81169430 
81169440 
81 169450 
Bl 169460 
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NO STATEMENTS FLAGGED IN THE AbOVE ASSEMBLY 






,-\ 



L' 









<**?* 









Ht r, 1 N 

BGIN 

bRl 

CAWSV 

CNTDN 

CNTRL 



CRCK 

CUUU 

CVHA 

CVHAE 

CVHA1 

CO 

DIGIT 

DVADR 

END 

EPA 

Ef ADR 

ERASE 

ERMSG 

EROUT 



012C 
0A87 
1C85 
0B40 
0839 
085E 



0133 

0B3F 
0861 
1F30 
1F3D 
085C 

1E9D 
08 4 F 
012E 
0808 
1C71 
001 1 
1B56 
0864 



ERROR 
ERRSW 



0A87 
IF 70 
1CB9 
1979 
19D9 
0B29 
1167 
1945 

OAFb 
0F00 
0862 
1F30 
10E7 
1830 
£92 
090B 
1930 

0B7F 
13 5F 
IBC3 
OB AD 
0C68 
GO 86 
OF 06 
114F 
13CC 
1732 
18F6 
lf»« 



0130 
003F 



ERHX 

tiRR 1 

ERH2 

ERR6 

ERTNE- 

ERTN2 

ERTN3 

ERTN4 

ERTNb 

ERTN6 

ERTN7 

ERTN8 

ERTN9 

tRTSV 

ERT10 

EKT11 

ERT12 

ERT13 

ERT14 

ERT15 

ERT16 

ERT17 

ERT1B 

FBRST 

FDRDY 

FECYL 

FEOCY 

FLCCH 

FLbKP 

FLSL1 

FNORC 



1FSF8 
19E4 
0891 
1200 



0BE1 
12F2 



0C25 
13F2 



0CD7 
1460 



0D43 
1490 



0D95 
1502 



0E1E 
15A6 



CE8A 0EE9 0F77 OFBA 1098 
16SF 16F0 17FA 18ES 1925 



0F03 1F31 1F3F 1F41 



1CBA 

1CB3 

1CA3 

1CB8 

1B98 

1BAB 

1BB3 

1BBD 

1BC7 

1DCB 

1 BD 4 

1BE0 

1BE9 

0B42 

1BEB 

1 BFD 

1C2F 

1C3C 

1C59 

1C60 

1C65 

1C67 

1C60 

0004 

0018 

0010 

OOOA 

0040 

0008 

0020 

OOOC 



101-6 
1906 
IF97 
0AF5 

lcec. 

0BC9 
142C 
IBC7 
OBBO 
0C6F 

00 ,-.4 
0. Hft 

1 179 
13F.S 
1796 
18F9 
1C2D 



119F 11AE 1217 1406 151A 150 1 



194F 1B04 



3E0 1711 1720 181C 1 82B 



OCOD 0CA9 00 IE 00 78 ODD 4 OFDB *020 188 1 1C6B 



0D71 

0ED6 

1140 

16E9 

18A!. 

1C88 

1C7E 

1C99 

1CB2 

0865 

1B99 

1BAF 

1 BBC 

1BC0 

1 BB8 

1BCA 

1B0E 

1BE5 

1C3D 

1BB5 

1BF1 

1RFF 

1C58 

1C31 

IB ED 

1C62 

189B 

lCf.E 

0C65 
0C73 

0FA6 
122E 
142C 



OOOA 
OEFE 

1 1 ;>3 

17C9 
18CI 



lfiCO 
0BB3 
0C76 

00 f 4 
0F94 

1 1 7F 
1487 
179F 
19AA 
1CG0 

0D8E 
0FE2 
1 1 59 
1740 
1 fiOA 



1BCF 
0BF3 
0C79 

00 EF 
1029 

1 187 
14B1 
1 7B8 
19B6 
1C6F 

0DC6 
1045 
1 170 
1786 
1'iDE 



1BD 1 
0BF6 
0C7F 
OOF 7 
1030 
1 IE? 
14F1 
1703 
I9CE 
1CAD 

00 E 6 
105A 
) 183 
17 9A 



1BEA 
0BF9 
OCBC 

00 rt: 

1 03 7 
1 1F1 

141-9 
I 70 f- 
19FE 
1CB3 

0E10 
1060 
12 SB 
17A3 



0C38 
0CE4 
OF 05 
103E 
1265 
1581 
1 7EB 
1A0F 



01" 14 
107E 
1269 
17BC 



0C3B 
0CL7 
OEOC 
104 1 
12 93 
1 58 A 
18 OF 
1 A83 



0E34 
100A 
1 2 6E 
1 •> 7 



0C46 0C4E 

OCEA 00 56 

0E30 0E36 

1054 )07A 



12BI 
16BF 
1888 
1 A8F 



12D2 
16CD 
188F 
1B9F 



0CS1 
0059 
CF6E 
10B0 
139A 
16D8 
ieA6 
1BA4 



0C5A 
Df-C 
0E9A 
10RB 
13B8 
16E t 
18 BO 
1BA8 



0C61 
0D7F 
OEFA 
1 126 
1 3BC 
170':- 
18D6 
1BAB 



0E3A 0E5E 0E76 0F.83 0EB3 

»0B4 110D 1110 112A 1 I ?£: 

167A 16C3 16D1 1 6DC HI 5 

17E3 17EF 17F3 1813 1 85C 



1C90 



1BC6 



1BI-8 1C3A 1C4D 1C56 



0FA9 OFAC 1216 1219 121F 1222 1405 1408 1411 141A 1426 14 32 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



IT.SEP71 
431326 



PROG 
PAGE 



ID 



0811- A 
52 
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o 
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PHASE A 



FONLN 
FOVRN 
PROVE 
FREOV 

FRE&W 
FSEI'.D 
FSKCK 

fSKir 

FTROV 
FUNSF 
FUNfl 
FONSL 
GI;T0V 

GtiTSN 
GTDVIi 
GTOVI 
GTSNS 
GTSNX 
GTSNO 
GTSN1 
GTSN2 
GTSN3 
GTSIJ4 
GT SMS 
HA 



0019 
0005 
1968 
08o7 

1F07 
0012 
0007 
001F 
0009 
0010 
001 A 
0015 
086A 

0B6O 
1946 
1946 
1A55 
I A 60 
iASB 
1A61 
1 A75 
1 AS 7 
I A8C 
1A93 
OtDO 



0C5E 

0868 

0AE8 OB80 0BI5D 0C21 0CD3 0O44 00 9 1 OE 1 A 0F86 0FF.5 0F73 

11FC 12EE 13EE 148C 14FE 1SA2 16EC 17F6 18E1 196E 1033 

0A90 1D2B 1034 1DF8 1DFC 



1094 1163 



HABLC 

HftCfcT 

HACR1 

HACR2 

HACR3 

HACK 4 

HACP5 

HCCFF 

HFFOQ 

HIGXX 

HOE 00 

H0OC6 

HOOFF 

HO00A 

HOOll 

H0013 

H0020 

H0027 

H01GO 

H0200 

H04 00 

HU500 

H0700 

H0707 

H2000 

H2100 

H3 000 

H4 000 

H5900 

H7FFF 

HB000 

IPA 

Kl 



K10 
K100 



0870 

IF 43 

1F55 

1F66 

1T67 

1F60 

1F6E 

0837 

0838 

08AA 

082F 

0827 

0123 

0B22 

0H23 

0«?fl 

0025 

0820 

0829 

082A 

0820 

082C 

0821) 

0H2E 

0830 

0831 

0832 

0833 

0834 

0835 

0636 

0806 

1C9F 

0816 



081C 
08 IF 



19C0 

1290 13B5 

0C57 

0C.6C 

0AE7 0B7C 0BC6 OCOA 0CA6 00 1 B 006F OOCO 0E5C OEAF 0F58 0FD2 1 1 OA 

11D1 1248 136F 1478 14DB 1 54C 1677 173D 185A 1966 IDFA 

0C54 0OE9 0F64 1 10 1121 1 2 8E 1 3B3 1308 14F4 1585 19BE 1A73 1BA6 

0860 

1949 

086E 

1A55 1A56 

1A86 1A92 

1A63 

1 ASF 1 A69 

1 A7E 

1A94 

1 AB9 

0F60 OFfl 0F69 0F8B 0F8E 0F91 OFAA OFAQ 0FE6 10EA HOE 11A2 lib) 

1100 1107 11DA 1255 138A 138F 167B 1714 1741 I8IF 1C8F 1C96 1C9B 

1CA3 1CA9 

OECD IF47 1F4C 1F4E 1F53 1F6B 

087! 

IF 65 

IFSF 

1F43 1F44 1FSC 

1F59 IF5B 

IF 46 1F5E 1F62 

1371 

0A9B 1279 V 6:. 1DA2 1DA5 

09IF 094A OSCD OBCE 16C7 16C8 1 7CD 17CE 1950 1A12 

1381 

003C 

0B07 0FF8 124C 1251 1270 1085 1 E 10 1E20 1EB9 1EBA 

1L71 

19B1 19CA 

19A0 19C6 

OF 66 

IE 76 

1252 1278 12A9 131 13A6 I 3C4 I860 1951 1 AOB 10 3F 

1577 1A93 

1940 

1044 

1955 10 48 

137E 

IrSB 

1A80 1ABC 

0AE2 

0C1A OCAB 0CC3 002A OOCA 0EC2 14E1 1566 1572 1F1A 

0C4B 

10 61 

0E5F 106E 1479 1 6AF 1772 17A8 1F2B 

1C72 

0A9O 0AB9 0AE4 0AE5 0B19 0B73 OBBO 0C01 OC 90 00 12 0066 0DB7 0OC1 

0OC8 0E53 0EA6 0F4F 0FC9 1101 1137 11C8 123F 1366 1 46F 1402 14EE 

1543 1540 166E 169E 1729 J7J4 1764 1834 1846 1051 1950 195F 1961 

1963 19B2 1BC2 1 BO 9 1C4E 1D4C 1006 

0F50 105E 108Z 1150 1550 1683 1749 1E86 

0FE9 1202 13AA 1304 1E81 
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- .f 



o 



,J 



o 
o 






w,5 



o 

o 



n 



K100C/ 

K2 

K20 

K256 

K3 

K50 

K6 

K« 

K9 

LEXIT 

LGbSY 

LOG 

L.PA 

LPCNT 

LPCT1 

MATC 

MLSCF 

Ml. SCO 

ML SCI 

MLSC2 

MX 

Ml 

M2 

M5 

M6 

M7 

MB 

NOPCC 

013YPH 

OCHt.7 

OEBYP 

OECA* 

OhCSH 

OECXC 

OECXO 

0ECX4 

OECXS 

OEERa 

OEGSM 

0EL1B 

OLPBL 

OEShS 

OEXIT 

OHALT 

ULPE8 

OLPST 
OPNO*" 
OPk.> 
OPRSS 

or'St*s 

OPTIC 

OPT 10 

OPKR 

ORTRV 

OSALC 

OTTLE 

PASS* 
PCAC 
PC Si* 
PEf«& 
PRINT 
PSCKT 
PSNS 
RAKE A 



0821 
0817 

oeio 

0820 
0818 
081E 
0819 
081 A 
08 IB 
1E05 
0855 
012F 
0807 
0858 
0859 

0134 
0809 
0009 
OOOA 
080B 
1CFA 
1C0E 
1CCE 
1C00 
1CE1 
1CE5 
1CEF 
0"97 
0000 
OOOF 
0009 

00 oo 
000E 
0003 
0000 
00 1 
0002 
OOOC 
OOOA 
OOOB 
0007 
OOOF 
0006 
OOOt 
OOOC 

0008 
0003 
0002 
OOOA 

0004 

oooe 

0000 
0001 
OOOB 
0009 
OOOA 

0851 
0848 
084A 
1F6E 
1B5C 
0852 
084C 
09BC 



1E7U 

195fc 

10 2D 

OFPC 

092^. 092E 0938 1060 IDEA 

100* 

ISfc'j 1959 

0912 0DF4 130A 1C39 

IE 7- IE 77 

1011 1051 1DFD 

0A92 0AB8 1012 1018 1E04 



0F5€ 0P6E 110 5 11F9 1 3D 5 13F.9 
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BEGIN EQU 300 

BEGIN+1 

START+1 

END+1 

LOG+1 

ERROR+1 

REODV+1 

RELOV+1 

CRCK+1 



START EQU 
END EOU 
LOG EOU 
ERROR EOU 
REQDV EOU 
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LOOP ERROR 
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HALT ON ERROR 

CLEAR ERROR HALT 

SELECT OPTIONS 
SELECT SECT AND RTN 
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INIT PRGM ADDRESS 
LOOP PRGM AODRS 
END PRG ADDRS 
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ENTRY ZERO 
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TWO 
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* 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B> 
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DATE 
EC NO. 









* 








81100700 


087F 







TB 


EOU 


TPID+128 


SO TBL CAN REACH PST T8L 


81100710 


0816 





0001 


Kl 


DC 


1 


CONSTANT ONE 


81100720 


0817 





0002 


K2 


DC 


2 


CONSTANT 


61100730 


0818 





0003 


K3 


OC 


3 


CONSTANT 


81100740 


0819 





0006 


K6 


DC 


6 


CONSTANT 


81100750 


081A 





0008 


KB 


DC 


8 


CONSTANT 


81100760 


081B 





0009 


K9 


DC 


9 




81100770 


081C 





OOOA 


K10 


DC 


10 


* 


81100780 


08 ID 





0014 


K20 


DC 


20 




81100790 


081E 





0032 


K50 


DC 


50 




81100800 


081F 





0064 


K100 


DC 


100 




81100810 


0820 





0100 


K256 


DC 


256 




81100820 


0821 





03E8 


K1000 


DC 


1000 




81100830 


0822 





OOOA 


HOOOA 


DC 


/OOOA 


CONSTANT 


81100840 


0823 





0011 


H0011 


DC 


/0011 




81100850 


0824 





0013 


H0013 


DC 


/0013 


CONSTANT 


81100860 


0825 





0020 


H0020 


DC 


/0020 




81100870 


0826 





0027 


H0027 


DC 


/0027 


CONSTANT 


81100880 


0827 





00C8 


H00C8 


DC 


/00C8 




81100890 


0828 





OOFF 


HOOFF 


DC 


/OOFF 


LINE TERMINATOR 


81100900 


0829 





0100 


H0100 


DC 


/0100 


CONSTANT 


81100910 


082A 





0200 


H0200 


OC 


/0200 


CONSTANT 


81100920 


082B 





0400 


H0400 


DC 


/0400 


CONSTANT 


81100930 


082C 





0500 


H0500 


DC 


/0500 


CONSTANT FOR WRITE IOCC 


81100940 


0820 





0700 


H0700 


DC 


/0700 


CONSTANT FOR SENSE DSW IOC 


81100950 


082E 





0707 


H0707 


DC 


/0707 


THE THING THAT LOOKS LIKE 


81100960 


082F 





OEOO 


HOEOO 


DC 


/OEOO 




81100970 


0830 





2000 


H2000 


DC 


/2000 




81100980 


0331 





2100 


H2100 


DC 


/2100 




81100990 


0832 





3000 


H3000 


DC 


/3000 




81101000 


0833 





4000 


H4000 


DC 


/4000 


CONSTANT 


81101010 


0834 





5000 


H5000 


OC 


/5000 


CONSTANT 


81101020 


0835 





7FFF 


H7FFF 


DC 


/7FFF 




81101030 


0836 





8 000 


H8000 


DC 


/8000 




81101040 


0837 





CCFF 


HCCFF 


DC 


/CCFF 




81101050 


0838 





FFOO 


HFFOO 


DC 


/FFOO 




81101060 


08 39 





0000 


CNTDN 


DC 







81101070 


083A 





0000 


TSCTN 


OC 


*-* 


SECTION NUMBER 


81101080 


08 3B 





0000 


TRTNN 


DC 


*-* 


ROUTINE NUMBER 


81101090 


083C 





0000 


TCNSW 


DC 





ERROR SWITCH FOR RTNS 


81101100 


0830 





0000 


TCVS1 


DC 







81101110 


083E 





0000 


TCVS2 


DC 







81101120 


08 3F 





0000 


ERRSW 


DC 







81101130 


0840 





oooo 


CAWSV 


DC 


*-* 


CCW ADDRESS SAVE AREA 


81101140 


0842 




0002 


ERTSV 


BSS E 


2 


SENSE INFO SAVE 


81101150 


0844 




0002 


TYP2 


PRNT 


.SIO,. 




81101160 


0846 




0002 


TYP3 


PR NT 


.SNS». 




81101170 


0848 




0002 


PCAW 


PRNT 


.CAW . 




81101180 


084A 




0002 


PCSW 


PRNT 


.CSW . 




81101190 


084C 




0002 


PSNS 


PRNT 


. SNS. 




81101200 


084E 




0001 


SPACE 


PRNT 


. 


SPACES IN 43 CODE 


81101210 


084F 





0000 


DVADR 


DC 


*-* 


DEVICE ADDRESS TO BE TESTED81101220 


0850 





0000 


SIOSW 


DC 


#-« 


FOR SIO RTN 


81101230 


0851 





0000 


PASSW 


DC 


*-* 


USED TO TEST FOR ERROR 


81101240 


0852 





0001 


PSCNT 


DC 


1 


PASS COUNTER 


81101250 


0853 





0000 


STKSW 


DC 





SWITCH FOR RE-ENTRANCE 


81101260 


0854 





0000 


TIOSW 


DC 





TEST 10 SW 


81101270 


0855 





0000 


LGBSY 


DC 


*-* 


LOG RTN BUSY SW 


81101280 


0856 





0000 


T23LC 


DC 


*-* 


LAST CYLINDER 


81101290 


0857 





0000 


T23LH 


DC 


*-* 


LAST HEAD 


81101300 


0858 





0000 


LPCNT 


DC 


*-* 


LOOP CNTR 


81101310 


0859 





0000 


LPCT1 


DC 


*-* 


SPECIAL LYNN LOOP COUNTER 


81101320 


085A 





0000 


TEMPI 


OC 


*-* 


TEMP STORAGE AREA 


81101330 


085B 





0000 


TEMP2 


OC 


#_* 


TEMP STORAGE AREA 


81101340 


085C 





COOO 


CO 


OC 


/COOO 


SET FILE MASK 


81101350 


085D 





0000 


T45SW 

* 


DC 





0= NOT CALLED 
1-1443 


81101360 
81101370 
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IBM MAINTENANCE 01 4GN0STIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



© 1 . 








© j 








© ': 


DATE 
EC NO. 


14N0V69 
431319 


30JAN70 
431319A 


© 








© | 








© 






' - • , ■:; 


© I 








© 








• !:' 









2*1053/1816 



CONTROL ROUTINE 
GO TO ROUTINE 



CONVERT HA TO 1443 CODE 
GO TO RTN 



GO TO CHECK ROUTINE 

ERROR PRINTOUT ROUTINE 
GO TO RTN 

RELEASE CHANNEL ROUTINE 
GO TO ROUTINE 

C 4NNEL ROUTINE 
GO TO ROUTINE 

,ET DEVICE SENSE INFO 
GO TO ROUTINE 

COMPARE HA 
GO TO RTN 

START I/O ROUTINE 
GO TO RTN 

SET MLSCF ROUTINE 
GO TO RTN 

CONVERT HEX TO 1443 
GO TO RTN 

CONVERT HEX TO DEC 
GO TO RTN 

ENTRY POINT 
GO TO RTN 

TEST I/O 
GO TO RTN 

SPECIAL TEST I/O 
GO TO RTN 

PRINT RTN 
GO TO RTN 

TEST LOOP ON ERROR 
GO TO RTN 

TEST LOOP START I/O 
GO TO RTN 



GO TO ROUTINE 



GO TO WAIT 10 RTN 

* 

******************** ******************************* 

» * 

*************************************************** 

* 

* EQUATES AND CONSTANTS FOR CCW'S 



085E 
085F 




1 


0000 
4C00 


0B04 


CNTRL 


DC 
BSC 


L 


*-* 
TCNTE 


0861 
0862 




1 


0000 
4C00 


iefa : ; 


. CVHA 


DC 
BSC 


L 


*-* 
CVHAE 


0864 
0865 




1 


0000 
4CO0 


17FE 


CKTV 


DC 
BSC 


L 


*-* 
CHECK 


0867 
0868 




1 


0000 
4C00 


1B68 


EROUT 


DC 
BSC 


L 


*-* 
ERTNE 


086A 
086B 




1 


0000 
4C00 


140A 


FREDV 

. * 
GETDV 

* 


DC 
BSC 


L 


*-* 
FRDVE 


0860 
086E 




1 


0000 
4C00 


13E8 


DC 
BSC 


L 


*-* 
GTDVE 


0870 
0871 




l 


0000 
4CO0 


177D 


GETSN 

* 
HABLC 

* 
SIO 


DC 
BSC 


L 


*-* 
GTSNS 


0873 
0874 




1 


0000 
4CO0 


1F0D 


DC 
BSC 


L 


*-* 
HACRT 


08 76 
0877 




1 


0000 
4C00 


1698 


DC 
BSC 


L 


*-* 
SIONT 


0879 

087A 




l 


0000 
4CO0 


17BD 


STMLS 


DC 
BSC 


L 


*-* 
STMLE 


08 7C 
087D 




1 


0000 
4C00 


1E26 


TCVBE 

* 
TCVHD 

* 
THALT 


DC 
BSC 


L 


*-* 
TCVBN 


087F 
0880 




1 


0000 
4C00 


1E44 


DC 
BSC 


L 


*-* 
THEXD 


0882 
088 3 




1 


0000 
4C00 


1AC6 


DC 
BSC 


L 


*-* 
THLTE 


0885 

0886 




1 


oooo 

4C00 


1712 


TIO 


DC 
BSC 


L 


*-* 
TIONT 


0888 
0889 




1 


0000 
4C00 


1EDD 


TIOSN 

* 
TLGMS 


DC 
BSC 


L 


*-* 
TIOSE 


088B 
088C 




1 


0000 
4C00 


1CE2 


DC 
BSC 


L 


*-* 
TLGME 


088E 
088F 




1 


0000 
4C00 


1AA5 


TLPER 

* 
TLPST 

* 
SKTV 

* 
WAITS 


DC 
8SC 


L 


*-* 
TERLP 


0891 
0892 




1 


0000 
4C00 


1AB2 


DC 
BSC 


L 


*-* 
TSTLP 


0894 
0895 




1 


0000 
4C00 


1C42 


DC 
BSC 


L 


*-* 
SEEKX 


0897 

0898 




1 


0000 
4C00 


1EBF 


DC 
8SC 


L 


*-* 
TINTS 
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81101380 
81101390 
81101400 
81101410 
81101420 
81101430 
81101440 
81101450 
81101460 
81101470 
81101480 
81101490 
81101500 
81101510 
81101520 
8U01530 
81101540 
81101550 
81101560 
81101570 
81101580 
81101590 
81101600 
81101610 
81101620 
81101630 
81101640 
81101650 
81101660 
81101670 
81101680 
81101690 
81101700 
81101710 
81101720 
81101730 
81101740 
81101750 
81101760 
81101770 
81101780 
81101790 
81101800 
81101810 
81101820 
81101830 
81101840 
81101850 
81101860 
81101870 
81101880 
81101890 
81101900 
81101910 
81101920 
81101930 
81101940 
81101950 
81101960 
81101970 
81101980 
81101990 
81102000 
81102010 
81102020 
81102030 
81102040 
81102050 
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1800-2841 FUNCTION TEST (PHASE B) 
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DATE 
EC NO. 



0080 





0040 





0020 





0008 





0010 





0000 





oooi 





0002 





0003 





0005 





0006 





0004 





0007 





0011 





0008 





OOOB 





0013 





0012 





001A 





001E 





0029 





oooe 





OO0D 





0016 





009A 





00 IB 





0039 





0049 





0051 





0069 





0071 





0031 





001F 





001D 





0019 





0015 






0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 



14N0V69 
431319 



30JAN70 
431319A 



OGRAM 


FOR THE 


1800 


SYSTEM 


PART NO. 2279472 


E B) 








PAGE 2A 


*************************************************** 


81102060 


* 






* 


81102070 


*************************************************** 


81102080 


* 








81102090 


* 


FLAGS 






81102100 


* 








81102110 


FLOCH 


EOU 


/80 


DATA CHAINING 


81102120 


FLCCH 


ECU 


/40 


COMMAND CHAINING 


81102130 


FLSLI 


EOU 


/20 


SUPPRESS INCORRECT LNG 


81102140 


FLSKP 


EOU 


/08 


SKIP BIT 


81102150 


FLPCI 


EOU 


/10 


PGM CONTROLLED INTERRUPT 


81102160 


* 








81102170 


* 


OP COOES 




81102180 


* 








81102190 


OPTIO 


EOU 


/OO 


TEST I/O 


81102200 


OPWR 


EOU 


/Ol 


WRITE OP CODE 


81102210 


OPRD 


EOU 


/02 


READ OP CODE 


81102220 


OPNOP 


EOU 


/03 


NO-OP 


81102230 


WROAT 


EOU 


/05 


WRITE DATA 


81102240 


RDDAT 


EOU 


/06 


READ DATA 


81102250 


OPSNS 


EOU 


/04 


SENSE I/O 


81102260 


SEEKC 


EOU 


/07 


SEEK CYLINDER 


81102270 


ERASE 


EOU 


/ll 


ERASE RECORD 


81102280 


OPTIC 


EOU 


/OS 


TRANSFER IN CHANNEL 


81102290 


SEEKB 


EOU 


/OB 


SEEK BIN . 


81102300 


RCAL 


EOU 


/13 


RECALIBRATE 


81102310 


RDCNT 


EOU 


/12 


RD COUNT 


81102320 


ROHA 


EOU 


/1A 


READ HOME AODRESS 


81102330 


RDCKD 


EOU 


/IE 


RD COUNT KEY DATA 


81102340 


SRCKE 


EOU 


/29 


SEARCH KEY EQUAL 


81102350 


RDKD 


EOU 


/OE 


RD KEY DATA 


81102360 


WRKD 


EOU 


/OD 


WR KEY DATA 


81102370 


RDRO 


EQU 


/16 


READ RECORD ZERO 


81102380 


RDHMT 


EOU 


/9A 


READ HA MULTI TRACK 


81102390 


SKHD 


EOU 


/IB 


SEEK HEAD 


81102400 


SRCHA 


EOU 


/39 


SEARCH HA 


81102410 


SRCKH 


EOU 


/49 


SEARCH KEY HI 


81102420 


SI OH I 


EOU 


/51 


SEARCH ID HI 


81102430 


SKHE 


EOU 


/69 


SEARCH KEY HI/EQ 


81102440 


SIDHE 


EOU 


/71 


SEARCH ID HI/EQ 


81102450 


SRCID 


EOU 


/31 


SEARCH ID 


81102460 


SFILM 


EOU 


/IF 


SET FILE MASK 


81102470 


WRCKD 


EOU 


/ID 


WRT CNT, KEY, DATA 


81102480 


WRHA 


EOU 


/19 


WRITE HA 


81102490 


WRRO 


EOU 


/15 


WRITE RECORD 


81102500 


* 








81102510 


*************************************************** 


81102520 


* 






* 


81102530 


*************************************************** 


81102540 


* 








81102550 


* 


EOUATES 


FOR 


CHANNEL STATUS DSW<S 


81102560 


* 








81102570 


SCUNO 


EOU 





UNIT NOT OPERATIONAL 


81102580 


SCUSP 


EOU 


1 


UNIT STATUS PENOING 


81102590 


SCPCI 


EOU 


2 


PGM CNTRL INT. 


81102600 


SCPCK 


EQU 


3 


PGM CHECK 


81102610 


SCDCK 


EOU 


4 


DATA CHECK 


81102620 


SCICC 


EOU 


5 


INTERFACE CNTRL CHECK 


81102630 


SCILG 


EQU 


6 


INCORRECT LENGTH INDICATOR 


81102640 


SCABZ 


EQU 


7 


ADAPTER BUSY 


81102650 


SCUOP 


EOU 


8 


UNIT OPERATIONAL 


81102660 


* 








81102670 


*************************************************** 


81102680 


* 






* 


81102690 


*************************************************** 


81102700 


*************************************************** 


81102710 


* 






» 


81102720 


A************************************************** 


81102730 
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0008 

0009 
OOOA 
OOOB 
OOOC 
0000 
OOOE 
OOOF 



0004 




0005 




0007 




0009 




OOOA 




OOOC 




0010 




0012 




0015 




0018 




0019 




001A 




0010 




001F 




089A 


0001 


089B 


2003 


089C 1 


0890 


0890 


0001 


089E 


2013 


08 9F 1 


06AO 


08A0 


0001 


08A1 


2000 


08A2 1 


08A3 


08A3 


0000 


08A4 


0006 


08A5 


000* 


08A6 1 


08A8 


08A8 


000* 


08A8 




08A9 




08AA 




08AB 




08AC 1 


08 AO 


08A0 


oooo 


08AE 


0000 


08AF 


0000 


08 BO 1 


08A* 


08B1 


0000 


08B2 


0000 


08B3 


oooo 


08 B4 


0000 


08B5 


oooo 



OATE 
EC NO. 



14N0V69 
431319 



* 






81102740 


* EQUATES 


FOR UNIT 


STATUS OSW 


81102750 


* 






81102760 


UNATN EOU 


8 


UNIT STATUS-ATTENTION 


81102770 


UNSMD EOU 


9 


STATUS MODIFIER 


81102780 


UNCUE EOU 


10 


CONTROL UNIT END 


81102790 


UN8ZY EOU 


11 


UNIT BUSY 


81102800 


UNCHE EOU 


12 


CHANNEL END 


81102810 


UNOVE EOU 


13 


DEVICE END 


81102820 


UNCHK EOU 


14 


UNIT CHECK 


81102830 


UNEXC EOU 


15 


UNIT EXCEPTION 


81102840 


»#*»******************»#*******#******************* 


81102850 


* 




* 


81102860 


*************** **^**** ****************** *********** 


81102870 


* 






81102880 


* EQUATES 


FOR 2311 


SENSE BYTES 


81102890 


* 






81102900 


FBRST EOU 


* 


'BURST) DATA CK 


81102910 


FOVRN EOU 


5 


t IANNEL/2841 OVERRUN 


81102920 


FSKCK EQU 


7 


SEEK CK 


81102930 


FTROV EQU 


•) 




81102940 


FEOCY EQU 


10 


END OF CYLINDER 


81102950 


FNORC EOU 


12 


NO RECORD FOUND 


81102960 


FUNSF EQU 


16 




81102970 


FSERO EQU 


in 


SERDES CHECK 


81102980 


FUNSL EQU 


21 




81102990 


FDRDY EQU 


24 


DRIVE READY 


81103000 


FONLN EQU 


25 




81103010 


FUNSI EQU 


26 


UNSAFE 


81103020 


FECYL EQU 


29 


END OF CYLINDER 


81103030 


FSKIN EQU 


31 


SEEK INCOMPLETE 


81103040 


» 






81103050 


* 






81103060 


NOPCC DC 


1 


BYTE COUNT 


81103070 


DC 


/20»256+OPNQP FLAGS AND OP CODE 


81103080 


DC 


* 


ADDRESS 


81103090 


# 






81103100 


* 






81103110 


RECAL DC 


1 


BYTE COUNT 


81103120 


DC 


/20*256+RCAL FLAGS AND OP CODE 


81103130 


DC 


* 


ADDRESS 


81103140 


* 






81103150 


* 






81103160 


TSCCH DC 


1 


BYTE COUNT 


81103170 


DC 


/20*256+OPTIO FLAGS AND OP CODE 


81103180 


DC 


TSWDS 


ADDRESS 


81103190 


« 






81103200 


TSWDS DC 


*-* 




81103210 


* 






81103220 


SNCCW DC 


6 


BYTE COUNT 


81103230 


DC 


O*256+0PSNS FLAGS AND OP CODE 


81103240 


DC 


SNWDS 


ADDRESS 


81103250 


» 






81103260 


SNWDS BSS E 


4 


SENSE BYTES 


81103270 


SNWOO EQU 


SNWDS 




81103280 


SNH01 EQU 


SNWDS+l 




81103290 


SNW02 EQU 


SNWDS+2 




81103300 


SNWD3 EQU 


SNWDS+3 




81103310 


TIOXX DC 


TSCCW 


TIO CCW 


81103320 


DC 


*-* 


TO BE FILLED IN 


81103330 


HIOXX DC 


*-* 




81103340 


DC 


*-* 




81103350 


SENSE DC 


SNCCW 


SENSE 10 W/SUPPRESS POLL 


81103360 


DC 


*-» 


TO BE FILLED IN 


81103370 


SIOXX DC 


*-* 


TO BE FILLED WITH CCW ADDR 81103380 


DC 


*-» 


TO BE FILLED IN 


81103390 


SCSNO DC 


*-» 




81103400 


DC 


*-* 


. 08 


81103410 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



08 B6 
08B7 
08B8 
08B9 
08BA 
08BB 
OBBC 
08 BD 
08BE 
OOBF 
08CO 
08C4 
08C8 
08CC 
08D0 
08D4 
0808 
08D8 
0809 
080A 
08DA 
08DB 
08DC 
08DD 
OBOE 
08DF 



OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 

oooo 

oooo 

0004 
0004 
0004 
0004 
0004 
0003 

oooo 

1 1DF0 

oooo 
oooo 



oooo 
o oooo 
oooo 
oooo 
oooo 



08E0 0008 
08E8 0007 
08EF FFFF 
08F0 0009 

08F9 FFFF 



08FA OOOO 
08FB OOOO 
08FC OOOO 
08FD OOOO 
08FE OOOO 
08FF 68FA 

0900 6A6D 

0901 696E 

0902 1 6600 087F 

0904 C27D 

0905 1 4C18 0959 

0907 0A35 

0908 1001 

0909 1 4C10 0923 

090B 0A39 
090C 18D0 
090D 
090E 
090F 

0910 1 



1010 
1088 
F2D0 
4C18 0918 

0912 1092 

0913 1 4C10 0959 

0915 C2D5 

0916 1 4C18 0959 

0918 C2D5 

0919 1 4C18 0923 



SCSN1 DC 

DC 
SCSN2 DC 

DC 
SCSN3 DC 

DC 
SCSN4 OC 

DC 
SCSN5 DC 

OC 
SCSXO BSS 
SCSX4 BSS 
SCSX8 BSS 
SCSXC BSS 
SCSVS BSS 
HA BSS 

BSS 
TLGWR DC 

DC 
TLGSP DC 
TLGSN EQU 

DC 
TLGCT DC 
TLGSW DC 
TLGSR DC 

DC 
* 
STSER PRNT 

PRNT 

DC 
UNAOR PRNT 

DC 
* 
* SELECTOR 



WIOSW DC 
WATSW DC 
SCISW DC 
TSCAC DC 
SCI NT DC 
STX 
STX 
STX 
LOX 
LD 
BZ 
* 

XIO 
SLA 
BNN 
* 

XIO 
XCH 
SLA 
SLT 
EOR 
BZ 
SLT 
BNN 
* 

LD 
BZ 



*-* 

*-* 

*-* 

*-* 

*-» 

*-* 

*-» 

*-» 

*-* 

«-* 

4 

4 

4 

4 

4 

3 



TLGBA 

*-* 

/OOOO 

TLGSP 

*-* 





#-* 



= 09 

» OA 

» OB 

* OC 

= 06 

START I/O SAVE AREA 

START I/O SAVE AREA 2 

TIO SAVE AREA 

SENSE I/O SAVE AREA 

SAVE AREA FOR SENSE INFO 



IOAREA ADDRESS 
TO BE FILLED IN 
SPACE IN 1**3 CODE 

SENSE DSW IOCC 
TO BE FILLED IN 
LOOP COUNT FOR PRNTR INT 
IST/2ND CHAR SW ( 1053) 
1ST/2ND CHAR SW (TLGCH) 
SENSE/RESET DSW 



•XX ERROR ON XXX . 

.SECT X,RTN X . 

/FFFF 

. UNIT XX.ADRS XXXX. 

/FFFF 

CHANNEL INT ROUTINE 



2 

1 

L2 

2 



*-* 
*-* 
*-* 
*-* 

wiosw 

SCIN7+1 

SCIN7+3 

TB 

SCISW-TB 

SCIN* 

SCSNO-TB 

1 

SCINO 



2 SCSN2-TB 

16 
8 
2 DVADR-TB 
SCINC 
8+UNCUE 
SCIN4 

2 TIOSW-TB 
SCIN4 



SCINC LD 2 

BZ 
* 

* GET HERE 

* IF STATUS 



TIOSW-TB 
SCINO 



WAIT FOR USER INTERUPT 
WAIT FOR SYST TIO INT. 
INTERRUPT SWITCH 
SEL.CHAN AREA CODE 

INT. RTN ENTRY 
SET INTERUPT SWITCH 
SAVE REG 

SET UP POINTER TO TBL 
GET INT SWITCH 
BR IF NOT SET 

FETCH CHANNEL STATUS 
TEST FOR USP 
BRANCH IF NOT USP 

GET UNIT STATUS 

SAVE STATUS 

CLEAR A REG 

GET DEVICE ADDRS 

TEST FOR MY DEVICE 

BRANCH IF MINE 

TEST FOR CONTROL UNIT END 

BRANCH IF NOT CU END 

GET TIO SW 

BR IF INT NOT DUE TO TIO 

FETCH TIO SW 
BRANCH IF USER TIO 



IF INTERRUPT FROM TIO AFTER SIO 
IS NON BUSY THEN PLACE IN SCSXO 



14N0V69 
431319 



30JAN70 
431319A 



PART NO, 
PAGE 



81103420 

81103430 

81103440 

81103450 

81103460 

81103470 

81103480 

81103490 

81103500 

81103510 

81103520 

81103530 

81103540 

81103550 

81103560 

81103570 

81103580 

81103590 

81103600 

81103610 

81103620 

81103630 

81103640 

81103650 

81103660 

81103670 

81103680 

81103690 

81103700 

81103710 

81103720 

81103730 

81103740 

81103750 

81103760 

81103770 

81103780 

81103790 

81103800 

81103810 

81103820 

81103830 

811038*0 

81103850 

81103860 

81103870 

81103880 

81103890 

81103900 

81103910 

81103920 

81103930 

81103940 

81103950 

81103960 

81103970 

81103980 

81103990 

81104000 

81104010 

81104020 

81104030 

81104040 

81104050 

81104060 

8110*070 

81104080 

81104090 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B> 



DATE 
EC NO. 





* 


AND SCSX8 


091B 0A39 
091C 100B 
091D 1 4C28 092D 


$ 
g 


XIO 
SLA 

BN 


2 SCSN2-TB 
UNBZY 
SCINX 


091F 0A39 

0920 EA42 

0921 D242 




XIO 

OR 
STO 


2 SCSN2-TB 
2 SCSXO+1- 
2 SCSXO+1- 



0922 700A 



0923 C22F 

0924 1 4C20 094D 

0926 0A3D 

0927 D23D 

0928 C22D 

0929 8299 
092A F230 
092B 1 4C20 0931 



B 



SCINX 



FETCH UNIT STATUS 

TEST FOR UNIT OR CU BUSY 

BR TO SET POINTER TO SCSX8 

FETCH UNIT STATUS 



BR SET POINTER TO SCSXO 



« GET HERE IF TIOSW HAS NOT ON AND TEST 

'« FOR USER TIO IF SO PLACE STATUS IN SCSX8, 

* ELSE GO TEST FOR SENSE OPERATION INTERUPT 
* 

SCINO LD 2 HIOXX-TB C *T HIO SW 
BNZ SCIN3 B< IF SET 

* 

XIO 2 SCSN4-TB LSE GET CCW ADDRS REG 
STO 2 SC5N4-T6 SAVE FOR LATER USE 
LD 2 TIOXX-TB GET TEST I/O ADDRESS 
A 2 K3-TB ADD THREE 

EOR 2 SCSN4-TB COMPARE WITH CCW ADRS REG 
BNZ SCIN1 BR IF NOT THE SAME 
■■» 

* GET HERE IF USER TIO OR SYSTEM TIO 

* FOUND THAT THE UNIT OR CU WAS BUSY 

* AFTER A TEST I/O. 



092D 1 


6700 


08C8 


SCINX 


LDX 


L3 SCSX8 


ELSE POINT TO SAVE AREA 


092F 


68CB 






STX 


WATSW 


SET TIO INTERRUPT SW 


0930 


702E 






MDX 


SCIN5 


GO TO COMMON RTN 








* 


GET 


HERE IF NO TEST I/O WAS INDICATED 








* 


BY THE PRIOR ROUTINES 


0931 


C231 




SCIN1 


LD 


2 SENSE-TB 


GET CCW AODRESS FOR SENSE 


0932 


8299 






A 


2 K3-TB 


POINT TO FOLLOWING 


0933 


F230 






EOR 


2 SCSN4-TB 


COMPARE 


0934 1 


4C20 


0939 




BNZ 


*+3 


BR IF NOT 


0936 1 


6700 


08CC 




LDX 


L3 SCSXC 


POINT TO SAVE AREA 


0938 


7026 






MDX 


SCIN5 


GO TO COMMON RTN 



GET HERE IF SENSE WAS FOUND NOT TO 
BE THE CAUSE OF THE INTERRUPT AND TEST 
FOR START I/O TO BE THE CAUSE, IF NOT 
THEN SET THE INTERRUPT TO THE UNEXPECTED. 



0939 C233 
093A 1 6780 08B2 



093C 
093D 
093E 
093F 
0941 
0942 
0943 
0945 
0946 
0947 
0948 
094A 
094B 
094C 



6299 

0224 

F230 

4C18 094D 

C301 

180E 

4C20 094A 

C301 

F29B 

1008 

4C20 0959 

7303 

C224 

70EF 



SCIN2 



094D 1010 



LD 
LDX 

A 

STO 

EOR 

BZ 

LD 

SRA 

BNZ 

LD 

EOR 

SLA 

BNZ 

MDX 

LD 

MDX 



SCIN3 SLA 



2 SIOXX-TB GET START I/O CCW ADDRESS 

13 SIOXX SET IN REG TOO 

2 K3-T8 POINT TO NEXT ADRS AFTER 

2 TSWOS-TB SAVE IN TEMP STORAGE 

2 SCSN4-TB COMPARE 
SCIN3 BR IF SAME 

3 i GET OPCODE/FLAGS 

14 SAVE CMD CHAIN/OATA CHAIN 

*+5 BR IF SET 

3 1 GET IT AGAIN 

2 K8-T8 TEST FOR TIC 

8 SAVE OPCODE ONLY 
SCIN4 BR IF NOT TIC 

3 3 POINT TO NEXT CCW IN CHAI 
2 TSWDS-TB GET ADDRESS 

SCIN2 LOOP 

16 CLEAR HIO SW 



PART NO. 2279472 
PAGE 4 



81104100 
81104110 
81104120 
81104130 
81104140 
81104150 
81104160 
81104170 
81104180 
81104190 
81104200 
81104210 
81104220 
81104230 
81104240 
81104250 
81104260 
81104270 
81104280 
81104290 
81104300 
81104310 
81104320 
81104330 
81104340 
81104350 
81104360 
81104370 
81104380 
81104390 
81104400 
81104410 
81104420 
81104430 
81104440 
81104450 
81104460 
81104470 
81104480 
81104490 
81104500 
81104510 
81104520 
81104530 
81104540 
81104550 
81104560 
81104570 
81104580 
81104590 
81104600 
81104610 
81104620 
81104630 
81104640 
81104650 
81104660 
81104670 
81104680 
81104690 
81104700 
81104710 
81104720 
N 81104730 
81104740 
81104750 
81104760 
81104770 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



PART NO. 2279472 
PAGE 4A 



DATE 
EC NO. 



094E D22F 




STO 


2 


HIOXX-TB 


* 


8 1104 /BO 


094F 1 6700 08C0 




LDX 


L3 


SCSXO 


POINT TO SIO SAVE AREA 


81104790 


0951 C301 




LD 


3 


1 


GET LAST UNIT STATUS 


81104800 


0952 100D 




SLA 




UNDVE 


TEST FOR DEVICE END 


81104810 


0953 1 4C28 095F 
0955 1001 




BN 
SLA 




SCIN5 BR IF SET 

UNCHK-UNDVE TEST FOR UCHK 


81104820 
81104830 


0956 1 4C28 095F 




BN 




SCIN5 


BR IF SET 


81104840 


0958 7008 


# 


MDX 




SCIN6 


ELSE 'OR' IN STATUS 


81104850 
81104860 


0959 1 6700 0975 


SCIN4 


LDX 


L3 


SCIN8 


SET MLSCF ENTRY FOR RETURN 


81104870 


095B 1 6F00 0809 




STX 


L3 


MLSCO 


*** 


81104880 


095D 1 6700 08C4 


* 


LDX 


L3 


SCSX4 


POINT SAVE AREA 


81104890 
81104900 


095F 1010 


SCIN5 


SLA 




16 


CLEAR WORD TO ZERO 


81104910 


0960 0301 


* 


STO 


3 


1 


FOR OR'ING IN STATUS 


81104920 
81104930 


0961 0A37 

0962 D300 


SCIN6 


XIO 
STO 


2 
3 


SCSN1-TB 



GET CHAN. STATUS 
SAVE 


81104940 
81104950 


0963 1001 




SLA 




1 


TEST FOR USP 


81104960 


0964 1 4C10 0973 


$ 


BNN 




SCINA 


BRANCH IF NOT ON 


81104970 
81104980 


0966 0A3B 




XIO 


2 


SCSN3-TB 


GET UNIT STATUS 


81104990 


0967 EB01 




OR 


3 


1 


COMBINE WITH EXISTING 


81105000 


0968 D301 


SCINB 


STO 


3 


1 


SAVE 


81105010 


0969 0A3D 




XIO 


2 


SCSN4-TB 


GET CCW ADDRESS REG. 


81105020 


096A D302 




STO 


3 


2 


SAVE 


81105030 


096B 0A3F 




XIO 


2 


SCSN5-TB 


GET BYTE COUNTER 


81105040 


096C D303 


* 


STO 


3 


3 


SAVE 


81105050 
81105060 


096D 6600 0000 
096F 6500 0000 


SCIN7 

* 


LDX 
LDX 


L2 
LI 


*-* 
*-* 


RELOAD REG 2 
REG 1 


81105070 
81105080 
81105090 


0971 1 4C80 08FE 


* 


BSC 


I 


SC1NT 


EXT INT. RTN 


81105100 
81105110 




* 


GET 


HERE IF USP WAS NOT THE CAUSE OF 


81105120 




* 


THE 


INTERRUPT AND 


SET US TO 0000 


81105130 




* 










81105140 


0973 1010 


SCINA 


SLA 




16 


CLEAR ACC 


81105150 


0974 70F3 


* 


MDX 




SCINB 


RETURN 


81105160 
81105170 




* 


RETURN 


HERE AFTER UNEXPECTED INT 


81105180 




* 










81105190 


0975 1 6600 087F 


SCINB 


LDX 


L2 


TB 


SET UP TABLE POINTER 


81105200 


0977 610C 




LDX 


1 


12 


SET UP POINTER 


81105210 


0978 1 6700 08C7 


* 


LDX 


L3 


SCSX4+3 


SET UP CSW POINTER 


81105220 
81105230 


097A C300 


SCIN9 


LD 


3 





GET CHNL STATUS 


81105240 


0978 42FD 




BSI 


2 


TCVBE-TB 


CONVERT TO 1443 CODE 


81105250 


097C 1 D500 0997 




STO 


LI 


SCIM2-1 


PUT IN MESSAGE 


81105260 


097E 18D0 
097F 1 D500 0998 
0981 73FF 




XCH 
STO 
MDX 


LI 
3 


SCIM2 
-1 


* 
* 


81105270 
81105280 
81105290 


0982 71FD 




MDX 


1 


-3 




81105300 


0983 70F6 


* 


MDX 




SCIN9 




81105310 
81105320 


0984 420C 

0985 1 0988 

0986 4C80 012D 


6 


BSI 

DC 

BSC 


2 
I 


TLGMS-TB 
SCI MS 
START 




81105330 
81105340 
81105350 
81105360 


0988 0015 


SCI MS PR NT 


.** ER 00 


UNEXPECTED INTERRUPT. 


81105370 


0997 FFOO 




DC 




/FFOO 




81105380 


0998 0013 


SCIM2 PR NT 


.CSW XXXX 


, XXXX, XXXX, XXXX. 


81105390 


09A5 FFFF 




DC 




/FFFF 


j.xj.^^*^^**d<«.*.4*.***ft]lAA*tt 


81105400 
* nil A^Al n 



14N0V69 
431319 



30JAN70 
431319A 



t * 81105420 

»***»***♦*»*****»**»*»*«* »**»***»*»*»****»***»**»»* 8 1105430 
* WAIT FOR INTERRUPT 81105440 

a************************ i*»»**»*»*»»»********»**** 81105450 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



*************************************************** 



09A6 





0000 




TINTW 


oc 




»-* 


ENTRY 


POINT 


09A7 





C280 






LD 


2 


TERM-TB 


FETCH 


TIME OUT CONSTANT 


09A8 





0237 




* 
TINT2 


STO 


2 


SCSN1-TB 








09A9 





C27C 




LD 


2 


WATSW-TB 








09AA 


1 


4C20 


09BA 




BNZ 




TINT3 








09AC 





42FA 






BSI 


2 


STMLS-TB 


GO 


VISIT MONITOR 


09AD 


1 


74F6 


08B6 




MOX 


L 


SCSNlt-10 








09AF 





70F9 




* 


MDX 




TINT2 








09B0 





0A37 




XIO 


2 


SCSN1-TB 


GET 


CHANNEL STATUS 


09B1 





0240 






STO 


2 


SCSXC-TB 


* 


AND SAVE FOR ERR 


09B2 





0A3B 






XIO 


2 


SCSN3-TB 


* 


MESSAGE 


09B3 





D24E 






STO 


2 


SCSXC+1-TB 


* 






09 BA 





0A3D 






XIO 


2 


SCSN4-TB 


* 






09B5 





D24F 






STO 


2 


SCSXC+2-TB 








09 86 





0A3F 






XIO 


2 


SCSN5-TB 








09B7 





D250 




* 

* 
TINT3 


STO 


2 


SCSXC+3-*P 








09B8 


1 


4C80 


09A6 


BSC 


I 


TINTW 






EXIT RTN 


09BA 


1 


7401 


09A6 


MDX 


L 


TINTW, 1 








09BC 





1010 






SLA 




16 








09B0 





027C 






STO 


2 


WATSW-TB 








09B6 


1 


4C80 


09A6 




BSC 


I 


TINTW 






EXIT RTN 



09C0 0064 
0A24 FFFF 
0A26 0064 
0A8A FFFF 



0A8B 4480 012C 
0A80 1 07FF 



*************************************************** 

* * 
*************************************************** 
* 

* READ/WRITE AREA FOR ALL ROUTINES 
* 
*************************************************** 

* * 
*************************************************** 
RAREA BSS E 100 RESERVE 200 BYTES 

DC /FFFF 
WAREA BSS E 100 RESERVE 200 BYTES 

DC /FFFF 
*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 

BGIN BSI I BEGIN GO TO MONITOR BEGIN RTN 
DC TPID ADDRESS OF PID 

*************************************************** 

* 
*************************************************** 



0A8E 





0000 




ZIPA DC 




*-* 


ENTRY POINT 


0A8F 





COFE 




LD 




ZIPA 


MOVE RETURN ADDRS 


0A90 





0013 




STO 




ZLPA 


* 


0A91 


1 


6600 


087F 


LDX 


L2 


TB 


SET UP POINTER 


0A93 





1010 




SLA 




16 


RESET- 


0A94 


1 


D400 


1DD1 


STO 


L 


FRESW 


RESET CONTROL SWS 


0A96 





D2D6 




STO 


2 


LGBSY-TB 


* 


0A97 





D27B 




STO 


2 


WIOSW-TB 


* 


0A98 





D2D5 




STO 


2 


TIOSW-TB 


* 


0A99 





D27C 




STO 


2 


WATSW-TB 


* 


0A9A 





D283 




STO 


2 


TSWO-TB 


* SW 


0A9B 





D284 




STO 


2 


TSW1-TB 


* SW 1 


0A9C 





D286 




STO 


2 


TSW3-TB 


* SW 3 


0A9D 


1 


D400 


17F0 


STO 


L 


STMPT 


RESET STMLS POINTER 
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81105460 

81105470 

81105480 

81105490 

81105500 

81105510 

81105520 

81105530 

81105540 

81105550 

81105560 

81105570 

81105580 

81105590 

81105600 

81105610 

81105620 

81105630 

81105640 

81105650 

81105660 

81105670 

81105680 

81105690 

81105700 

81105710 

81105720 

81105730 

81105740 

81105750 

81105760 

81105770 

81105780 

81105790 

81105800 

81105810 

81105820 

81105830 

81105840 

81105850 

81105860 

81105870 

81105880 

81105890 

81105900 

01105910 

81105920 

81105930 

81105940 

81105950 

81105960 

81105970 

81105980 

81105990 

81106000 

81106010 

81106020 

81106030 

81106040 

81106050 

81106060 

81106070 

81106080 

81106090 

81106100 

81106110 

81106120 

81106130 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1800-2841 FUNCTION TEST (PHASE B> 

0A9F C2B9 LD 2 HFFOO-TB 

OAAO D285 STO 2 TSW2-TB 

0AA1 C297 LD 2 Kl-TB 

0AA2 D2D3 STO 2 PSCNT-TB 

0AA3 7001 MOX ZLPA+1 



FETCH CONSTANT 
PLACE IN SW 2 
FETCH CONSTANT OF 
SET PASS C0UNT=1 

CONTINUE 



DATE 
EC NO. 



*************************************************** 
* * 

*************************************************** 



0AA4 
0AA5 
0AA7 
0AA9 
OAAB 
OAAC 
OAAE 
OABO 
0AB1 
0AB2 
0AB3 
0AB5 
0AB7 
0AB8 
0AB9 
0AB9 
OABA 
OABB 
OABC 
OABO 
OABE 
OABF 



0000 

1 6700 
6F00 
6600 
C294 
4C10 
4480 



1 0813 



1 080C 

C295 

1 4C10 
4480 

0814 
080C 



0A04 
080B 
087F 

0AB2 
0132 



0AB9 
0132 



1 

1 



1010 

D2D4 

D2D1 

D2D6 

C297 

0281 

1 4C80 



0AA4 



ZLPA DC 
LDX 
STX 
LDX 
LD 
BNN 
BSI 
DC 
DC 

ZLPA1 LD 
BNN 
BSI 
DC 
DC 

ZLPA2 EOU 
SLA 
STO 
STO 
STO 
LD 
STO 
BSC 



*-* 

L3 TCNPR 
L3 MLSC2 
L2 TB 
2 TLGED-TB 

ZLPA1 
I RELDV 

TLGED 

TERM 
2 TSCEO-TB 

ZLPA2 
I RELDV 

TSCED 

TERM 

* 

16 

STKSW-TB 

SIOSW-TB 

LGBSY-TB 

Kl-TB 

TSID-TB 
I ZLPA 



LOOP PGM RTN 
GET MLSCF ADDRESS 
SET IN TBL 
SET UP TBL POINTER 
LOOK AT LOG EDIT 
BR IF RELEASED 
ELSE RELEASE DEVICE 
ADDR OF EDIT WORD 
TERMINATOR 
SEL. CHAN. EDIT 

RELEASE DEVICE 



RESET- 

* STACK SW 

* SIO SW 

* LOG BUSY SW 
FETCH CONSTANT OF 1 
SET SECTION ID = 1 
EXIT 



*************************************************** 
* * 

*************************************************** 



0AC1 





0000 




0AC2 


1 


6600 


087F 


0AC4 





C294 




0AC5 


1 


4C10 


OACB 


0AC7 





4480 


0132 


0AC9 


1 


0813 





ZEPA 



OACA 1 080C 

OACB C295 
OACC 1 4C10 0AD2 

OACE 4480 0132 
OADO 1 0814 
0A01 1 080C 
0AD2 I 4C80 0AC1 



ZEPA1 



DC 

LDX 

LD 

BNN 

BSI 

DC 

DC 

LD 

BNN 



*-* 
L2 TB 
2 TLGED-TB 

ZEPA1 
I RELDV 

TLGED 

TERM 



END PGM RTN 
SET UP TBL POINTER 
LOOK AT LOG EDIT 
BR IF RELEASED 
ELSE RELEASE DEVICE 
ADDR OF EDIT WORD 
TERMINATOR 



2 TSCED-TB SEL CHANNEL EDIT 



ZEPA2 

RELDV 
TSCED 
TERM 

ZEPA 



BR IF RELEASED 

RELEASE DEVICE 
ADDRS OF EDIT WORD 



BSI 
DC 
OC 
ZEPA2 BSC I ZEPA EXIT BACK TO MONITOR 

*************************************************** 

* * 
*************************************************** 
* 

* PRE-CONTROL ROUTINE 
* 
*************************************************** 

* * 
*************************************************** 

SET UP TABLE POINTER 
GET 43/53 SWITCH 



REOUEST DEVICE 
BUSY RETURN 
EDIT FOR PRINTER 
AREA CODE GIVEN BACK 
TERMINATOR 



0A04 1 6600 087F 


TCNPR 


LDX 


L2 


TB 


0AD6 C2DE 




LO 


2 


T45SW-TB 


0A07 1 4C20 OAEB 




BNZ 




TCN01 


0AD9 42FA 


TCNRQ 


BSI 


2 


STMLS-TB 


OADA 4480 0131 




BSI 


I 


REOOV 


OADC 1 0AD9 




DC 




TCNRO 


OADD 1 0813 




DC 




TLGED 


OADE 1 1D93 




DC 




TLGDA 


OADF 1 080C 




DC 




TERM 
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81106140 

81106150 

81106160 

81106170 

81106180 

81106190 

81106200 

81106210 

81106220 

81106230 

81106240 

81106250 

81106260 

81106270 

81106280 

81106290 

81106300 

81106310 

81106320 

81106330 

81106340 

81106350 

81106360 

81106370 

81106380 

81106390 

81106400 

81106410 

81106420 

81106430 

81106440 

81106450 

81106460 

81106470 

81106480 

81106490 

81106500 

81106510 

81106520 

81106530 

81106540 

81106550 

81106560 

81106570 

81106580 

81106590 

81106600 

81106610 

81106620 

81106630 

81106640 

81106650 

81106660 

81106670 

81106680 

81106690 

81106700 

81106710 

81106720 

81106730 

81106740 

81106750 

81106760 

81106770 

81106780 

81106790 

81106800 

81106810 
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IBM MAINTENANCE U ! AGMO ST i C PROGRAM FOR THE 1800 SYSTEM 



o 


1800-28*1 FUNCTION TEST < PHAS 


o 




0A60 4480 0132 




0AE2 1 0813 








0AE3 1 080C 




o 




0AE4 1 C400 1093 




0AE6 F2B3 








0AE7 4820 




o • 




0AE8 C297 






0AE9 8297 




T— " 




OAEA 020E 




So 




OAEB 
OAEB 42EE 




o 




OAEC 42EB 






OAED C285 




I ' ! 




OAEE 1808 




o ■ 




OAEF 1 4C18 0AF8 




0AF1 420C 








0AF2 1 085A 




© : 




0AF3 42FA 
0AF4 C285 




. © ! 




0AF5 1808 






0AF6 4820 




; ■ 




0AF7 70FB 




O !. 

i ■ 




OAFS C285 
0AF9 02D0 









OAFA 42FD 






OAFB 1090 




■ 




OAFC 0045 




■: ; ' 




OAFD CO* 








OAH= 4200 




9. ;"■ 




OAFF 42FD 






OBOO 1800 








OBOl 0045 




o 1 




OB02 420C 






0B03 1 0B33 




j°i 








o ; 




0B04 




o 




0B04 1 6600 


087F 




OB06 C284 




I 




OB07 100C 




: © :;■. 




0B08 180C 






0B09 02BC 




■ 




OBOA C284 




o ; 




080B E2A9 






OBOC 1884 




1 




OBOO D2BB 




, ©'■; 




OBOE 1 4C20 


0B2I ; 




0B10 1090 




! 




0B11 180C 




. O 




0B12 1 4C20 


0B25 


' ! '.. 




0B14 1 6580 


0800 


© '■ 




0B16 1 C500 


0B2E 




0B18 0282 








0B19 1010 




: o ' 




0B1A D2B0 






081B 0296 








0B1C C281 




o 




081D 8297 






0B1E 0281 




O ; 








© ';.■■ 


DATE 


14N0V69 


3OJAN70 


EC NO . 


431319 


431319A 


© ;'■'' 








1 -_ .-I 
.' © ; 






. ';■'• 


' ; ° ! 
















© ; 








■■ o \ 






■■'■'■ 



TCNOl 



* 
TCN02 



BSI 

DC 

DC 

ID 

EOR 

SKP 

LD 

A 

STO 

EOU 

BSI 

BSI 

LD 

SRA 

BZ 

BSI 

DC 

BSI 

LD 

SRA 

SKP 
MDX 

LD 

STO 

BSI 

SLT 

STO 



RELDV 

TLGEO 

TERM 

TLGDA 

H3000-TB 

Z 

Kl-TB 

Kl-TB 

T45SW-TB 



RELEASE DEVICE 

EDIT FOR PRINTER 

TERMINATOR 

GET PRINTER AREA CODE 



ADD ONE 

SET SW FOR 43 OR 



53 



GETDV-TB GET DEVICE FOR USE 

FREDV-TB RELEASE DEVICE 

TSW2-TB GET SW FNC 2 (DEV ADDR ) 

8 SAVE BITS 0-7 

TCN02 3R IF ZERO 

TLGMS-TB PRINT MESSAGE 

TCNE2 'ENTER OEV ADDRESS' 

STMLS-1B GO TO MONITOR 

TSW2-TB GET SW FNC 2 

8 SAVE BITS 0-7 

I SKIP IF ZERO 

4-5 LOOP UNTIL OK 

TSW2-TB GET SW FNC 2 

DVADR-T8 SET FOR SIO/TIO/SNS 

TCVBE-TB CONVERT ADDR TO EBC 

16 Q TO A 

CUU11 STORE FOR PRINT 



LD 

BSI 

BSI 

XCH 

STO 

BSI 

DC 



PSCNT-TH 
TCVMO-TH 
TCVBfc-TB 

TTL01+3 

TLGMS-T8 

TTLOO 



THIS ROUTINE CONTROLS ALL TESTS 



GFT PASS COUNT 
CVT TO DFX I HAL 
CONVERT TO 1443 CODE 
TO A 
PUT IN MSG 
PRINT PROGRAM TITLE 
m , , ,u UU MSG ADDRESS 

*************************************************** 

» 

*************************************************** 

* 

* 

TCNTE EOU * ENTRY POINT 

LDX L2 TB SET TABLE ADDRESS 
GET SW FNC 1 

SAVE BITS 12-15 
** 
** 

GET SW FNC 1 
DROP BAD BITS 
SAVE BITS 8-11 
SAVE SECTION NUMBER 

BR IF NOT ZERO 
GET BACK BITS 12-15 
SAVE THEM 
ERR, NO SECTION SPECIFIED 



LD 

SLA 

SRA 

STO 

LD 

AND 

SRT 

STO 

BNZ 

SLT 

SRA 

BNZ 



* 

TB 

TSW1-TB 

12 

12 

TRTNN-TB 

TSW1-TB 

HOOFF-TB 

4 

TSCTN-TB 

TCN04 

16 

12 

TCNER 



TCN03 LOX 
LO 
STO 
SLA 
STO 
STO 
LD 
A 
STO. 



II TSID GET SECTION NUMBER 

LI TCNTA GET SECT. PREFACE ADDRESS 

2 TSAO-TB STORE IN SEC ADORS 

16 CLEAR ERROR COUNTER 

2 TCNSW-TB **» 

2 TRID-TB CLEAR RTN ID TO ZERO 

2 TSIO-TB INCREMENT SECTION 

2 Kl-TB * 

2 TSIO-TB * 
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81106820 

81106830 

81106840 

81106850 

81106860 

81106870 

81106880 

81106890 

81106900 

81106910 

81106920 

81106930 

81106940 

81106950 

81106960 

81106970 

81106980 

81106990 

81107000 

81107010 

81107020 

81107030 

81107040 

81107050 

81107060 

81107070 

81107080 

81107090 

81107100 

81107110 

81107120 

(111 07 130 

It) 107140 

iinoa'.o 

81107160 

81107170 

81107180 

81107190 

81107200 

81107210 

81107220 

81107230 

81107240 

81107250 

81107260 

81107270 

81107280 

81107290 

81107300 

81107310 

81107320 

81107330 

81107340 

81107350 

81107360 

81107370 

81107380 

81107390 

81107400 

81107410 

81107420 

81107430 

81107440 

81107450 

81107460 

81107470 

81107480 

81107490 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1800-2841 FUNCTION TEST (PHASE B) 



0B1F 1 4C80 0801 

0B21 D281 
OB22 9008 
0B23 1 4C28 0B14 



BSC I TSAD 



OB25 
0B26 
0B27 
0B28 
0B29 
0B2A 
0B2B 
082C 
0B2D 



C284 
42FD 
D02E 
1090 
D02D 

420C 

1 0B4B 
4203 
42DF 



TCN04 STO 
S 
BN 

* 

TCNER LD 
BSI 
STO 
SLT 
STO 
BSI 
DC 
BSI 
BSI 



TSIO-TB 

TCNTA 

TCN03 

TSW1-TB 

TCVBE-TB 

TTLER+11 

16 

TTLER+12 

TLGMS-TB 

TTLER 

THALT-TB 

CNTRL-TB 



GO TO SECTION PREFACE 

STORE SECT. NUMBER 
SUB. NUMBER OF SECTIONS 
BR IF OK 

GET SW FNC 1 
CONVERT HEX TO PRNT CODE 
PUT INVALID SWITCH 
* SETTING INTO MESSAGE 



0B2E 0005 
0B2F 1 0B6A 
0B30 1 0DF9 

1 



GO TO RETRY RTN SELCT 

+ 1 



0B31 
0832 

0B33 



10BC 
1 13CA 





0B33 
0B42 
0B43 
0B44 
0B49 
0B4A 
0B4B 
OBbfl 
0859 
0B5A 
0B66 
0B67 



0015 

0001 
FFOO 

0005 
FFOO 
FFFF 

0013 
OOFF 
FFFF 

0012 
FFOO 
FFFF 



2841 DIAGNOSTIC TEST ON UNIT 



TCNTA DC TCNTZ-TCNTA LENGTH OF TBL 
DC T10NT SECTION ADDRESS 
DC T20NT SECTION ADDRESS 
DC T30NT SECTION ADDRESS 
DC T40NT SECTION ADDRESS 
TCNTZ EOU * END OF TABLE 

♦a************************************************* 
• * 

*************************************************** 

TTLOO PRNT 
CUU11 PRNT 

DC 
TTL01 PRNT 

OC 

DC 
TTLFR PRNT 

DC 

DC 
TCNE2 PRNT 

DC 

DC 



XX . 

TERMINATOR 

INVLO SWS FNC I XXXX, 



/FFOO 

.PASS- 

/FFOO 

/FFFF 

. **FR 

/OOFF 

/FFFF 

. **♦ SELECT OPTIONS *»*. 

/FFOO 

/FFFF 

* * 

a************************************************** 



SECTION NUMBER 

SW FNC 1 BITS 12-15 
BR IF RUN ALL RTNS 
TEST FOR VALID 
BR IF INVALID RTN NUMBER 
RESTORE RTN NUMBER 
. ..„» GO TO FIRST RTN 

* * 
***»**#**»♦*****************»********************** 
* 

* 
* 

* ♦Hi********************************************** 
* 

* ROUTINE —1— SEARCH OPS 
* 
************************************************* 







* 
* 
TIOPR 


SECTION 


PREFACE 


0868 0001 




DC 


/0001 


0B69 0001 




* 


DC 


1 


0B6A C2BC 




T10NT 


LO 2 


TRTNN-T 


0B6B 1 4C18 


0B72 




BZ 


T1101 


0B60 90FB 






S 


T10PR+1 


0B6E 1 4C30 


0B25 




BP 


TCNER 


0B70 80F8 






A 


T10PR+1 


0B71 7000 






MDX 


T1101 



THIS ROUTINE TESTS SEARCH HIGH COUNT, 
SEARCH HIGH KEY, SEARCH HIGH OR EQUAL 
COUNT, AND SEARCH HIGH OR EQUAL KEY. 
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81107500 

81107510 

81107520 

81107530 

81107540 

81107550 

81107560 

81107570 

81107580 

81107590 

81107600 

81107610 

81107620 

81107630 

81107640 

81107650 

81107660 

81107670 

81107680 

81107690 

81107700 

81107710 

81107720 

81107730 

81107740 

81107750 

81107760 

81107770 

81107780 

81107790 

81107800 

811078)0 

81107820 

111 107830 

81107840 

81107850 

81107860 

81107870 

81107880 

81107890 

81107900 

81107910 

81107920 

81107930 

81107940 

81107950 

81107960 

81107970 

81107980 

81107990 

81108000 

81108010 

81108020 

81108030 

81108040 

81108050 

81108060 

81108070 

81108080 

81108090 

81108100 

81108110 

81108120 

81108130 

81108140 

81108150 

81108160 

81108170 



DATE 
EC NO. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



THESE SEARCHES ARE TESTED FOR EACH OF THE 
FOLLOWING FIVE CASES, 

1. CORE SEARCH FIELD G.T. FILE SEARCH FLD 

2. CORE SEARCH FIELD EQ FILE SEARCH FLD 

3. CORE SEARCH FIELD L.T. FILE SEARCH FLO 

4. SEARCH COMMAND TESTED SPECIFIED FEWER 
BYTES THAN FILE SEARCH FIELD 

5. SEARCH COMMAND TESTED SPECIFIED MORE 
BYTES THAN FILE SEARCH FIELD 



THE SEARCHES ARE TESTED BY A COMMON ROUTINE 
WHICH RUNS SEQUENTIALLY THROUGH A TABLE OF 
CCW'S. THE COMMANDS ARE TESTED BY GIVING 
THE SEARCH AND THEN READING THE EXPECTED 
RECORD. A COMPARISON IS PERFORMED AND THE 
RESULTS INDICATED. 



* 

* 

***************** *****»,-*< ************************* 

* * 
************************ > ************** *********** 
*************************************************** 

* * 
*************************************************** 



0B72 

0B72 1 7401 0815 
0B74 1 4C18 0B79 
0B76 9297 
0B77 1 4C20 0DF6 

0B79 C283 
0B7A 100A 
0B7B 1 4C10 0B7F 
0B70 420C 
0B7E 1 0BC2 

0B7F 42EE 

0B80 4215 

0B81 1010 
0B82 1 D400 0C01 

0B84 C29D '•'.; 
0B85 0073 



0B86 1 4400 OBOE 



T1101 



* 
T1102 



* 
T1103 



EQU 

MDX 

BZ 

S 

BNZ 

LO 

SLA 

BNN 

BSI 

DC 

BSI 

BSI 

SLA 
STO 

LD 
STO 



» TEST ENTRY POINT 

TRID,1 BUMP RTN ID 

T1102 BR IF TEST NUMBER ZERO 

Kl-TB DECREMENT BY ONE 

T1201 BR IF NOT THIS TEST 

TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T1103 BR IF NOT SET 

TLGMS-TB GO TO PRINT ROUTINE 

TTLll MESSAGE ADDRESS 

GET CHANNEL FOR RTN 

BRANCH TO SEEKX ROUTINE 

RESET END OF TEST SW 

» ■ ■ 

SET UP ERROR COUNTER 



GETDV-TB 



SKTV-TB 



16 
T11YY 



K10-TB 
T11CE 



GO FORMAT TRACK 



BSI 



0B88 
0B8A 



6500 0C37 
696F 



0B8B C051 
0B8C 1 D400 0C30 



0B8E 
0B8F 
0890 
0B91 
0B92 
0B9 3 
0B94 
0B95 



C100 
D06B 
C101 
006A 
C102 
D069 
C103 
D068 



0B96 C104 
0B97 D067 
0B98 C105 



LDX 
T1104 STX 

LD 
STO 

LD 
STO 
LD 
STO 
LD 
STO 
LO 
STO 
* 

LD 

STO 

LD 



LI 
1 



T11F0 

T11TB 
T11SV 
T110F 
TUCK 



T11EX 

1 

T11EX+1 

2 

T11EX+2 

3 

T11EX+3 

4 

TllSN 

5 



SET UP TABLE POINTER 

SAVE 

SET CMP DATA SW • 

» 

SET UP EXPECTED - 
CS 

US 

AD 

BC 

SET UP EXPECTED SENSE 
* BYTES 

* 



14N0V69 
431319 



30JANT0 
431319A 



PART NO. 
PAGE 



81108180 
81108190 
81108200 
81108210 
81108220 
81108230 
81108240 
81108250 
81108260 
81108270 
81108280 
81108290 
81108300 
81108310 
81108320 
81108330 
81108340 
81108350 
81108360 
81108370 
81108380 
81108390 
81108400 
81108410 
81108420 
81108430 
81108440 
81108450 
81108460 
81108470 
81108480 
81108490 
81108500 
81108510 
81108520 
81108530 
81108540 
81108550 
81108560 
81108570 
81108580 
81108590 
81108600 
81108610 
81108620 
81108630 
81108640 
81108650 
81108660 
81108670 
81108680 
81108690 
81108700 
81108710 
81108720 
81108730 
81108740 
81108750 
81108760 
81108770 
81108780 
81108790 
81108800 
81108810 
81108820 
81108830 
81108840 
81108850 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B> 



PART NO, 2279472 
PAGE 7A 



DATE 
EC NO. 



0B99 





0066 




* 


STO 




T11SN+1 


* 


81108860 
81108870 


0B9A 





C106 






LD 


1 


6 


GET CK DATA WORD 


81108880 


0B9B 


1 


4C18 


0BA2 


* 


BZ 




T1105 


BR IF NO DATA CHECKED 


81108890 
81108900 


0B9D 


1 


D400 


0C35 




STO 


L 


T11CK+5 


PUT RD DATA AOR IN CK 


81108910 


0B9F 





C03C 






LD 




THON 


GET CHECK FLAG 


81108920 


OBAO 


1 


D400 


0C30 


* 


STO 


L 


TUCK 


REPLACE 


81108930 
81108940 


0BA2 





7107 




T1105 


MDX 


1 


7 


POINT TO ERROR NO 


81108950 


0BA3 


1 


6000 


0C36 




STX 


LI 


T11CK+6 


PUT IN CHECK CALL 


81108960 


0BA5 





7102 




* 


MDX 


1 


2 


POINT TO FIRST CCW 


81108970 
81108980 


0BA6 





690C 




* 


STX 


1 


T11G0+1 


PUT CCW ADDRS IN SIO CALL 


81108990 
8U09000 


0BA7 





C100 




T1106 


LD 


1 





LOOK FOR TABL TERMINATOR 


81109010 


0BA8 





F28D 






EOR 


2 


TERM-TB 


* 


81109020 


0BA9 


1 


4C18 


OBAD 


* 


BZ 




T1107 


BR IF END OF CURRENT TABL 


81109030 
81109040 


OBAB 





7101 






MDX 


1 


1 


ELSE BUMP POINTER 


81109050 


OBAC 





70FA 




* 


MDX 




T1106 


GO LOOK AGAIN 


81109060 
81109070 


OBAD 





C101 




T1107 


LO 


1 


1 


LOOK FOR LAST TABL 


81109080 


OBAE 





F28D 






EOR 


2 


TERM-TB 


* 


81109090 


OBAF 





4818 






BSC 




+- 


SKIP IF NOT END OF TABLS 


81109100 


OBBO 





6850 






STX 




T11YY 


ELSE SET END OF TEST SW 


81109110 


0BB1 





7101 




* 


MDX 


1 


1 


POINT TO NEXT TABL 


81109120 
81109130 


0BB2 





42F7 




T11G0 


BSI 


2 


SIO-TB 


GO DO SIO 


81109140 


0BB3 





0000 




* 


DC 




*-* 


CCW ADDRS GOES HERE 


81109150 
81109160 


0BB4 





4212 






BSI 


2 


TLPST-TB 


GO TEST LOOP SIO 


81109170 


0BB5 


1 


0BB2 






DC 




T11G0 


LOOP ADDRS 


81109180 


0BB6 





42E5 






BSI 


2 


CKTV-TB 


CALL CHECK ROUTINE 


81109190 


0BB7 


1 


0C30 






DC 




TUCK 


LIST ADDRESS 


81109200 


0BB8 


1 


4C20 


0BD3 


* 


BNZ 




T11ER 


BR IF ERROR ENCOUNTERED 


81109210 
81109220 


OBBA 





C046 




T11LP 


LO 




T11YY 


ELSE GET END OF TEST SW 


81109230 


OBBB 


1 


4C18 


0B8A 


* 
* 


BZ 




Til 04 


CONTINUE IF NOT SET 


81109240 
81109250 
81109260 










» 


GO TO NEXT ROUTINE IN SEQUENCE 


81109270 










• 










81109280 


OBBD 





42EB 




THEN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81109290 


OBBE 





C2BC 






LD 


2 


TRTNN-TB 


GET RTN SWS 


81109300 


OBBF 


1 


4C18 


0DF6 




BZ 




T1201 


GO TO NEXT RTN IN SEO 


81109310 


OBCl 





42DF 






BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81109320 


0BC2 




0007 




TTLll 

* 


PRNT 




. SECT 1, 


RT 1- . 


81109330 
81109340 


0BC9 




0009 






PRNT 




.SEARCH OPERATIONS. 


81109350 


0BD2 





FFFF 




* 


DC 




/FFFF 




81109360 
81109370 


0BD3 





420F 




T11ER 


BSI 


2 


TLPER-TB 


GO TEST LOOP ERROR 


81109380 


0BD4 


1 


0BD9 




* 


DC 




T1108 


LOOP ADDRS 


81109390 
81109400 


0B05 


1 


74FF 


0BF9 




MDX 


L 


T11CE.-1 


DECREMENT ERROR CNTR 


81109410 


0BD7 





70B2 






MDX 




Til 04 


LOOP IF LT 10 


81109420 


0BD8 





70E4 




* 


MDX 




THEN 


ELSE END RTN 


81109430 
81109440 


0BD9 


1 


6580 


OBFA 


T1108 


LDX 


11 


T11SV 


RESTORE POINTER 


81109450 


OBOB 





70AE 




* 


MDX 




T1104 


LOOP ON LAST SEQUENCE 


81109460 
81109470 


OBOC 





FF80 




THON 


DC 




/FF80 


DATA EXPECTED FLAGS 


81109480 


OBDD 





EF80 




T110F 


DC 




/EF80 


NO DATA EXPECTED FLAGS 


81109490 










*************************************************** 


81109500 










* 








* 


81109510 










********************* ********************* a******** 


81109520 










* 










81109530 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

1800-2841 FUNCTION TEST (PHASE B) 

* FORMAT DISK ( HA,P,0»R1 ,R2 »R7> 

< * 
*************************************************** 
* 
a************************************************** 



OBDE 





0000 


OBDF 





42F7 


OBEO 


1 


0BE3 


0BE1 


1 


4C80 


0BE3 





oooi 


0BE4 





401F 


0BE5 


1 


08 5C 


0BE6 





000* 


0BE7 





4039 


0BE8 


1 


08 D4 


0BE9 





0001 


OBEA 





0008 


OBEB 


1 


0BE6 


OBEC 





OOQA 


OBED 





4015 


OBEE 


1 


OC02 


OBEF 





0010 


OBFO 





40 ID 


0BF1 


1 


0C06 


0BF2 





0010 


0BF3 





401 D 


0BF4 


1 


OCOE 


0BF5 





0010 


0BF6 





001D 


0BF7 


1 


0C16 


OBFB 





08 00 


0BF9 





0000 


OBFA 





ocoo 


OBFB 





oooo 


OBFC 





0000 


OBFD 





oooo 


OBFE 





oooo 


OBFF 





oooo 


OCOO 





oooo 


0C01 





oooo 


0C02 





0OC6 


0C03 





oooo 


0C04 





oooo 


0C05 





0002 


0C06 





0OC6 


0C07 





oooo 


0C08 





0104 


0C09 





0004 


OCOA 




0004 



T11F0 


DC 


*-* ENTRY 




BSI 


2 SIO-TB GO 00 SIO 




DC 


T11XX CCW ADDRS 


* 


BSC 


I T11F0 RETURN TO TEST 


• 
T11XX 


DC 


1 BYTE COUNT 




DC 


FLCCH*256+SFILM FLAGS AND OP CODE 


* 


DC 


CO ADDRESS 


* 


DC 


4 PVTE COUNT 




DC 


FLCCH*256^Sf ;HA FLAGS AND OP CODE 


* 


DC 


HA ADDRESS 


• 


DC 


1 BYTE COUNT 




DC 


0*256+0PTIC FLAGS AND OP CODE 


* 


DC 


*-6 ADDRESS 


* 


DC 


10 BYTE COUNT 




DC 


FLCCH*256+WRR0 FLAGS AND OP CODE 


* 


DC 


T11WR ADDRESS 


* 


DC 


16 BYTE COUNT 




DC 


FLCCH»256+WRCK0 FLAGS AND OP CODE 


* 


DC 


T11EC ADDRESS 


* 


DC 


16 BYTE COUNT 




DC 


FLCCH*256+WRCKD FLAGS AND OP CODE 


* 


DC 


T11E2 ADDRESS 


» 


DC 


16 BYTE COUNT 




DC 


0*256+WRCK0 FLAGS AND OP CODE 




DC 


T11E7 ADDRESS 


# 
TUNO 


DC 


/0800 ALLOW ALL WRITES, NO SKS 


* 

* 


DATA 


AND CONSTANTS 


* 
T11CE 


DC 


*-* ERROR COUNTER (0-10) 


T11SV 


DC 


*-* SAVE PRESENT TABL POINTER 


T11EX 


DC 


*-* EXPECTED CS 




DC 


*-* US 




DC 


*-* AD 




DC 


*-* BC 


* 






T11SN 


DC 


*-* EXPECTED SENSE 




DC 


*_* BYTES 


T11YY 


DC 


*-* END OF TEST SW 


T11WR 


DC 


/00C6 




DC 


/OOOO 




DC 


/OOOO 




DC 


/0002 


T11EC 


DC 


/00C6 




DC 


/OOOO 




DC 


/0104 




DC 


/0004 




PRNT 


.REC1REC1. 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 
PAGE 



81109540 

81109550 

81109560 

81109570 

81109580 

81109590 

81109600 

81109610 

81109620 

81109630 

81109640 

81109650 

81109660 

81109670 

81109680 

81109690 

81109700 

B1109710 

81109720 

81109730 

81109740 

81109750 

81109760 

81109770 

81109780 

81109790 

81109800 

81109810 

81109820 

81109830 

81109840 

81109850 

81109860 

81109870 

81109880 

81109890 

81109900 

81109910 

81109920 

81109930 

81109940 

81109950 

81109960 

81109970 

81109980 

81109990 

81110000 

81110010 

81110020 

81110030 

81110040 

81110050 

81110060 

81110070 

81110080 

81110090 

81110100 

81110110 

81110120 

81110130 

81110140 

81110150 

81110160 

81110170 

81110180 

81110190 

81110200 

81110210 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



OCOE 





00C6 


OCOF 





oooo 


0C10 





0204 


0C11 





0004 


0C12 




0004 


0C16 





00C6 


0C17 





oooo 


0C18 





0704 


0C19 





0004 


0C1A 




0004 


0C02 







0C06 







0C1E 





00C6 


0C1F 





oooo 


0C20 





0600 


0C21 





00C6 


0C22 





oooo 


0C23 





0800 


0C24 




0002 


0C26 




0002 


0C28 




0002 


0C2A 




0002 


0C2C 




0002 


0C2E 




0002 


OC30 





oooo 


0C31 


1 


OBFB 


0C32 


1 


OBFF 


0C33 





0000 


0C34 


1 


09 CO 


0C35 





OOOO 


0C36 





OOOO 



0C37 





4000 


0C38 





OOOE 


0C39 


1 


0C43 


0C3A 





0005 


0C3B 





0008 


0C3C 





00C8 


0C3D 





OOOO 


0C3E 




0001 


0C3F 





FFFF 


0C40 





0005 


0C41 





4051 


0C42 


l 


0C21 


0C43 





0001 


0C44 





0008 


0C45 


1 


0C40 


0C46 





0008 


0C47 





OOOE 


0C48 


1 


09C0 



T11E2 DC 

DC 
DC 
DC 

PRNT 
TUE7 DC 
DC 
DC 
DC 

PRNT 
T11T0 EOU 
T11T1 EOU 
T11T6 DC 
DC 
DC 
T11T8 DC 
DC 
DC 
T11Y0 PRNT 
T11Y1 PRNT 
T11Y2 PRNT 
T11Y3 PRNT 
T11Y7 PRNT 
T11Y8 PRNT 



TUCK DC 
DC 



DC 
DC 
DC 
DC 
DC 



/00C6 

/OOOO 

/0204 

/0004 

.REC2REC2. 

/O0C6 

/OOOO 

/0704 

/0004 

.REC7REC7. 

T11WR 

T11EC 

/00C6 

/OOOO 

/0600 

/00C6 

/OOOO 

/0800 

•RECO. 

.REC1. 

.REC2. 

•REC3. 

•REC7. 

.REC8. 

CHECK TABLE 

*-* 

T11EX 

T11SN 

»-* 
RAREA 

*-* 
*-* 



FLAG WORD 
ADRS EXP CSW 
ADRS EXP SENSE 
WORD COUNT 
ADRS DATA WAS 
ADRS DATA S/B 
ADRS MESSAGE 



♦a************************************************* 

* * 
a************************************************** 

» 

* EXPECTED DATA AND CCW'S FOR TEST 

* 

* * 
$$**#*#***#**##************************************ 
#*##♦*#*#****##***** ***************** ************** 



T11TB DC 
DC 

DC 

DC 

DC 

DC 

DC 

PRNT 

DC 

* 

T1118 DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



/4000 EXP CHANNEL STATUS 

/OOOE EXP UNIT STATUS 

T1118+3 EXP CSW ADDRESS 

/0005 EXP BYTE COUNT 

/0008 EXPECTEO SENSE BYTES 

/O0C8 * 

/OOOO SHOULD NOT READ DATA 

.01. 

/FFFF TERMINATOR 

5 BYTE COUNT 
/40*256+SIOHI FLAGS AND OP CODE 
T11TB ADDRESS 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
*-6 ADDRESS 



8 BYTE COUNT 

/00*256+/0E FLAGS AND OP CODE 
RAREA ADDRESS 



PART NO. 2279472 
PAGE 8A 



81110220 

81110230 

81110240 

81110250 

81110260 

81110270 

81110280 

81110290 

81110300 

81110310 

81110320 

81110330 

81110340 

81110350 

81110360 

81110370 

81110380 

81110390 

81110400 

81110410 

81110420 

81110430 

81110440 

81110450 

81110460 

81110470 

81110480 

81110490 

81110500 

81110510 

81110520 

81110530 

81110540 

81110550 

81110560 

81110570 

81110580 

81110590 

81110600 

81110610 

81110620 

81110630 

81110640 

81110650 

81110660 

81110670 

81110680 

81110690 

81110700 

81110710 

81110720 

81110730 

81110740 

81110750 

81110760 

81110770 

81110780 

81110790 

81110800 

81110810 

81110820 

81110830 

81110840 

81110850 

81110860 

81110870 

81110880 

81110890 
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I8H MAINTENANCE DIAGNOSTIC PROGRAM FOR .THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (CHASE Bl 



DATE 
EC NO. 



0C49 





FFFF 


0C4A 





4000 


0C4B 





OOOE 


0C4C 


1 


0C56 


0C4D 





0005 


0C4E 





0008 


0C4F 





0OC8 


0C50 





0000 


0C51 




0001 


0C52 





FFFF 


OC53 





0005 


0C54 





4051 


0C55 


1 


0C16 


0C56 





0001 


0C57 





0008 


OC58 


1 


0C53 


0C59 





0008 


0C5A 





OOOE 


0C5B 


1 


09C0 



0C5C FFFF 



0C5D 





4000 


0C5E 





oooc 


0C5F 


1 


0C75 


0C60 





0000 


0C61 





0000 


0C62 





0OC8 


0C63 


1 


0C28 


0C64 




0001 


0C65 





FFFF 


0C66 





0005 


0C67 





4031 


0C68 


1 


0C02 


0C69 





0001 


0C6A 





0008 


0C6B 


1 


0C66 


0C6C 





0005 


0C60 





4051 


0C6E 


1 


0C06 


0C6F 





0001 


0C70 





0008 


0C71 


1 


0C6C 


0C72 





0008 


0C73 





OOOE 


0C74 


1 


09C0 


0C75 





FFFF 


0C76 





4200 



DC /FFFF TABLE TERMINATOR 



T1119 



DC 


/4000 


EXP CHANNEL STATUS 


DC 


/OOOE 


EXP UNIT STATUS 


DC 


T1119+3 


EXP CSW ADDRESS 


DC 


/0005 


EXP BYTE COUNT 


DC 


/0008 


EXPECTEO SENSE BYTES 


DC 


/00C8 


* 


DC 


/OOOO 


SHOULD NOT REAO DATA 


PR NT 


.02. 




OC 


/FFFF 


TERMINATOR 


oc 


5 


BYTE COUNT 


DC 


/40*256+/51 FLAGS AND OP CODE 


DC 


T11E7 


ADDRESS 


OC 


1 


i 'TE COUNT 


DC 


0*256+/B6 


= LAGS AND OP CODE 


DC 


*-6 


ADDRESS 


DC 


8 


BYTE COUNT 


DC 


/00*256+/ 


OE FLAGS ANO OP COOE 


OC 


RAREA 


ADDRESS 



DC /FFFF TABLE TERMINATOR 

♦ 

EXP CHANNEL STATUS > 
EXP UNIT STATUS 
EXP CSW ADDRESS 
EXP BYTE COUNT 
EXPECTED SENSE BYTES 



TU20 



DC 
DC 
DC 

oc 

OC 

OC 

DC 

PRNT 

OC 

DC 
DC 
DC 



/4000 

/OOOC 

T110A+3 

/OOOO 

/OOOO 

/00C8 

T11Y2 

.03. 

/FFFF 



ADOR OF EXPECTED DATA 



TERMINATOR 



/40*256+/31 
Til TO 



BYTE COUNT 
FLAGS AND OP CODE 
ADDRESS 



OC 
DC 
OC 



OC 
DC 
DC 



DC 
OC 
DC 

* 

* 

T110A OC 
DC 
OC 



0*256+/08 

*-6 



BYTE COUNT 
FLAGS ANO OP CODE 
ADDRESS 



BYTE COUNT 



/40*256+/51 FLAGS ANO OP CODE 



T11T1 



0*256+/08 
*-6 



ADDRESS 



BYTE COUNT 
FLAGS AND OP COOE 
ADDRESS 



8 BYTE COUNT 

/OO*256+/0E FLAGS AND OP COOE 
RAREA AOORESS 



OC /FFFF TABLE TERMINATOR 
DC /4200 EXP CHANNEL STATUS 



14N0V69 
431319 



30JAN70 
431319A 



811 


811 


811 


811 


8 1) 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


811 


Bll 


811 


811 


811 


811 





: Q 


\J 
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1 




11310 
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! 




11340 






11350 


! o 


o 



PROG ID 
PAGE 



0811-0 
9 



j o 

I 

j o 

I ° 

I 
o 

o 

o 

o 

o 

o 

o 

o 



i © 

I 
I © 

I. 

! G 



IBM MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST <PHASE B) 



o ! 

i 

O ! 

j 
i" 

O ! 

! 

O I 

°! 

I 
o | 

! 
O ! 

j 

O ; 

j 

O I 

I 

O I 
o i 
o i 

I 

oj 
o I 

j 

o I 
e ! 



OATE 
EC NO. 



0C77 





OOOC 


0C78 


1 


0C82 


0C79 





OOOO 


0C7A 





OOOO 


0C7B 





00C8 


0C7C 





OOOO 


0C70 




0001 


0C7E 





FFFF 


0C7F 





0004 


0C80 





4051 


0C81 


1 


0C06 


0C82 





0001 


0C83 





0008 


0C84 


1 


0C7F 


0C85 





0008 


0C86 





OOOE 


0C87 


1 


09C0 



0C88 FFFF 



0C89 





4200 


0C8A 





00 4C 


0C8B 


1 


0C9B 


0C8C 





0001 


0C8D 





OOOO 


0C8E 





00C8 


0C8F 





OOOO 


0C90 




0001 


0C91 





FFFF 


0C92 





0005 


0C93 





4031 


0C94 


1 


0C02 


0C95 





0001 


0C96 





0008 


0C97 


1 


0C92 


0C98 





0006 


0C99 





4051 


0C9A 


1 


0C02 


0C9B 





0001 


0C9C 





0008 


0C9D 


1 


0C98 


0C9E 





0008 


0C9F 





OOOE 


OCAO 


1 


09C0 



0CA1 FFFF 



0CA2 4000 
OCA 3 OOOE 
0CA4 1 OCAE 
0CA5 0004 
0CA6 0008 



OC 
OC 
DC 
DC 
DC 

nc 

PR 
OC 

* 

T1121 OC 
OC 

oc 



oc 

DC 
DC 



NT 



/oooc 

T1121+3 

/OOOO 

/OOOO 

/0OC8 

/OOOO 

.04. 

/FFFF 



EXP UNIT STATUS 
EXP CSW ADDRESS 
EXP BYTE COUNT 
EXPECTED SENSE BYTES 
* 
SHOULO NOT REAO DATA 

TERMINATOR 



4 BYTE COUNT 

/40*256+/51 FLAGS AND OP CODE 
T11T1 AOORESS 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
*-6 AOORESS 



DC 8 BYTE COUNT 

DC /00*256+/0E FLAGS AND OP COOE 

OC RAREA ADDRESS 

* 

DC /FFFF TABLE TERMINATOR 

at************************************************** 



OC 

DC 

DC 

DC 

DC 

OC 

DC 

PRNT 

DC 



/4200 

/004C 

T112A+3 

/0001 

/OOOO 

/00C8 

/OOOO 

.05. 

/FFFF 



EXP CHANNEL STATUS 
EXP UNIT STATUS 
EXP CSW AOORESS 
EXP BYTE COUNT 
EXPECTEO SENSE BYTES 
* 
SHOULD NOT REAO DATA 

TERMINATOR 



T1122 DC 

DC 
DC 



DC 
DC 
OC 

* 

* 

T112A DC 
OC 



DC 



OC 
DC 
OC 



DC 
DC 
DC 
* 

OC 

* 

DC 
DC 
OC 
DC 
OC 



5 BYTE COUNT 

/404-256+/31 FLAGS AND OP CODE 
T11T0 ADDRESS 



1 BYTE COUNT 

0*256+/08 FLAGS ANO OP CODE 
*-6 ADDRESS 



6 BYTE COUNT 

/40*256+/51 FLAGS AND OP CODE 
Til TO AOORESS 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
*-6 "AOORESS 



8 BYTE COUNT 

/00*256+/0E FLAGS AND OP CODE 
RAREA ADDRESS 

/FFFF TABLE TERMINATOR 

****************************************** 

/4000 EXP CHANNEL STATUS 
/OOOE EXP UNIT STATUS 

T1123+3 EXP CSW AOORESS 
/0004 EXP BYTE COUNT 
/0008 EXPECTEO SENSE BYTES 



PART NO, 2279472 
PAGE 9A 



81111580 
81111590 
81111600 
81111610 
81111620 
81111630 
81111640 
81111650 
81111660 
811U670 
81111680 
81111690 
81111700 
81111710 
81111720 
81111730 
81111740 
81111750 
81111760 
81111770 
81111780 
81111790 
81111800 
81111810 
81111820 
81111830 
81111840 
81111850 
81111860 
81111870 
81111880 
81111890 
81111900 
81111910 
81111920 
81111930 
81111940 
81111950 
81111960 
81111970 
81111980 
81111990 
81112000 
81112010 
81112020 
81112030 
81112040 
81112050 
81112060 
81112070 
81112080 
81112090 
81112100 
81112110 
81112120 
81112130 
81112140 
81112150 
81112160 
81112170 
81112180 
81112190 
81112200 
81112210 
81112220 
81112230 
81112240 
81112250 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



0CA7 00C8 
0CA8 0000 
0CA9 0001 
OCAA FFFF 

OCAB 0004 
OCAC 4049 
OCAD 1 0C2E 



OCAE 0001 
OCAF 0008 
OCBO 1 OCAB 



0C81 0004 
0CB2 0006 
0CB3 1 09C0 

0CB4 FFFF 



0CB5 





4000 


0C86 





000 E 


0CB7 


1 


0CC1 


0CB8 





0004 


0CB9 





0008 


OCBA 





00C8 


OCBB 





0000 


OCBC 




oooi 


OCBD 





FFPF 


OCBE 





0004 


OCBF 





4049 


OCCO 


1 


0C2C 


0CC1 





0001 


0CC2 





0008 


0CC3 


l 


OCBE 


0CC4 





0004 


0CC5 





0006 


0CC6 


1 


09C0 



0CC7 FFFF 



0CC8 





4000 


0CC9 





OOOC 


OCCA 


l 


OCEO 


OCCB 





0000 


OCCC 





ooob 


OCCO 





00C8 


OCCE 


1 


0C28 


OCCF 




0001 


OCDO 





FFFF 


0CD1 





0005 


0CD2 





4031 


0CD3 


1 


OC06 


0CD4 





0001 


0CD5 





0008 


0CD6 


1 


0C01 



Tl 



DC 
DC 

PRNT 
DC 


/00C8 
/OOOO 
.06. 
/FFFF 


* 

SHOULD NOT READ DATA 

TERMINATOR 


123 DC 
DC 
DC 


4 BYTE COUNT 
/40*256+/49 FLAGS AND OP CODE 
T11Y8 ADDRESS 


DC 
DC 
DC 


1 
0*256+/08 

*-6 


BYTE COUNT 
FLAGS AND OP CODE 
ADDRESS 


DC 
DC 
DC 


4 BYTE COUNT 
/00*256+/06 FLAGS AND OP CODE 
RAREA ADDRESS 



DC /FFFF 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

PRNT 

DC 



/4000 

/OOOE 

T1124+3 

/0004 

/0008 

/00C8 

/OOOO 

.07. 

/FFFF 



'ABLE TERMINATOR 

EXP CHANNEL STATUS 
EXP UNIT STATUS 
EXP CSW ADDRESS 
EXP BYTE COUNT 
EXPECTED SENSE BYTES 
# 
SHOULD NOT READ DATA 

TERMINATOR 



124 DC 
DC 
DC 



DC 
DC 
DC 



OC 
DC 
DC 



4 BYTE COUNT 

/40*256+/49 FLAGS AND OP CODE 
T11Y7 ADDRESS 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
#-6 ADDRESS 



4 BYTE COUNT 

/00«256+/06 FLAGS AND OP CODE 
RAREA ADDRESS 



DC /FFFF TABLE TERMINATOR 



* 

T1125 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

PRNT 

DC 

OC 

DC 
DC 



DC 
DC 
DC 



/4000 EXP CHANNEL STATUS 

/OOOC EXP UNIT STATUS 

T115A+3 EXP CSW ADDRESS 

/OOOO EXP BYTE COUNT 

/OOOO EXPECTED SENSE BYTES 

/00C8 * 

T11Y2 ADDR OF EXPECTED DATA 

.08. 

/FFFF TERMINATOR 

5 BYTE COUNT 
/40*256+/31 FLAGS AND OP CODE 
T11T1 ADDRESS 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
*-6 AOORESS 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 
PAGE 



81112260 
81112270 
81112280 
81112290 
81112300 
81112310 
81112320 
81112330 
81112340 
81112350 
81112360 
81112370 
81112380 
81112390 
81112400 
81112410 
81112420 
81112430 
81112440 
81112450 
81112460 
81112470 
81112480 
81112490 
81112500 
81112510 
81112520 
81112530 
81112540 
81112550 
81112560 
81112570 
81112580 
81112590 
81112600 
81112610 
81112620 
81112630 
81112640 
81112650 
81112660 
81112670 
81112680 
81112690 
81112700 
81112710 
81112720 
81112730 
81112740 
81112750 
81112760 
81112770 
81112780 
81112790 
81112800 
81112810 
81112820 
81112830 
81112840 
81112850 
81112860 
81112870 
81112880 
81112890 
81112900 
81112910 
81112920 
81112930 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



0CD7 
0C08 
0CD9 1 


0004 
4049 
0C26 


DC 
DC 
DC 
* 


OCDA 
OCDB 
OCDC 1 


0001 
0008 
0CD7 


* 

DC 

DC 
OC 
* 


OCDO 
OCDE 
OCDF 1 


0004 
0006 
09C0 


* 

T115A DC 

DC 
DC 



OCEO FFFF 



0CE1 





4200 


0CE2 





oooc 


0CE3 


1 


0CED 


0CE4 





0000 


0CE5 





OOOO 


0CE6 





00C8 


0CE7 





OOOO 


0CE8 




0001 


0CE9 





FFFF 


OCEA 





0002 


OCEB 





4049 


OCEC 


1 


0C26 


OCEO 





0001 


OCEE 





0008 


OCEF 


1 


OCEA 


OCFO 





0004 


0CF1 





0006 


0CF2 


1 


09C0 



0CF3 FFFF 



0CF4 





4200 


0CF5 





OOOC 


0CF6 


1 


OD06 


0CF7 





0001 


0CF8 





OOOO 


0CF9 





00C8 


OCFA 





OOOO 


OCFB 




0001 


OCFC 





FFFF 


OCFD 





0005 


OCFE 





4031 


OCFF 


1 


0C06 


ODOO 





0001 


0D01 





0008 


0D02 


1 


OCFD 


0D03 





0005 


0004 





4049 


0005 


1 


0C26 



4 BYTE COUNT 

/40*256+/49 FLAGS AND OP CODE 
T11Y1 AOORESS 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
*-6 ADDRESS 



4 BYTE COUNT 

/00*256+/06 FLAGS AND OP CODE 
RAREA ADDRESS 



DC 



/FFFF 



TABLE TERMINATOR 



»********«****************»**»*****«********#****** 





DC 


/4200 


EXP CHANNEL STATUS 




DC 


/OOOC 


EXP UNIT STATUS 




DC 


T1126+3 


EXP CSH ADDRESS 




DC 


/OOOO 


EXP BYTE COUNT 




DC 


/OOOO 


EXPECTED SENSE BYTES 




DC 


/00C8 


* 




DC 


/OOOO 


SHOULD NOT READ DATA 




PRNT 


.09. 






DC 


/FFFF 


TERMINATOR 


T1126 


DC 


2 


BYTE COUNT 




DC 


/40*256+/49 FLAGS AND OP CODE 


* 


or. 


T11Y1 


ADDRESS 


* 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


* 


DC 


*-6 


ADDRESS 


* 


DC 


4 


BYTE COUNT 




DC 


/00*256+/06 FLAGS AND OP CODE 




DC 


RAREA 


ADDRESS 



DC /FFFF TABLE TERMINATOR 
* 





DC 


/4200 


EXP CHANNEL STATUS 




DC 


/OOOC 


EXP UNIT STATUS 




OC 


T117A+3 


EXP CSW ADDRESS 




DC 


/OOOI 


EXP BYTE COUNT 




DC 


/OOOO 


EXPECTED SENSE BYTES 




DC 


/0OC8 


# 




DC 


/OOOO 


SHOULD NOT READ DATA 




PRNT 


.10. 




* 
T1127 


DC 


/FFFF 


TERMINATOR 


DC 


5 


BYTE COUNT 




DC 


/40*256+/31 FLAGS AND OP CODE 


* 


DC 


T11T1 


ADDRESS 


* 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


* 


DC 


*-6 


ADDRESS 


* 
T117A 


DC 


5 


BYTE COUNT 




DC 


/40»256+/49 FLAGS AND OP CODE 




DC 


urn 


ADDRESS 



PART NO. 2279472 
PAGE 10A 



81112940 

81112950 

81112960 

81112970 

81112980 

81112990 

81113000 

81113010 

81113020 

81113030 

81113040 

81113050 

81113060 

81113070 

81113080 

81113090 

81113100 

81113110 

81113120 

81113130 

81113140 

81113150 

81113160 

81113170 

81113180 

81113190 

81113200 

81113210 

81113220 

81113230 

81113240 

81113250 

81113260 

81113270 

81113280 

81113290 

81113300 

81113310 

81113320 

81113330 

81113340 

81113350 

81113360 

81113370 

81113380 

81113390 

81113400 

81113410 

81113420 

81113430 

81113440 

81113450 

81113460 

81113470 

81113480 

81113490 

81113500 

81113510 

81113520 

81113530 

81113540 

81113550 

81113560 

81113570 

81113580 

81113590 

81113600 

81113610 



14N0V69 
431319 



30JAN70 
431319A 
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I8M MAINTENANCE D I AGNO STI C PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



OATE 

EC NO. 



0D06 0001 
0007 0008 
0D08 1 0003 



0009 0004 
ODOA 0006 
ODOB 1 09C0 

ODOC FFFF 



ODOD 





4000 


OOOE 





OOOE 


OOOF 


1 


0019 


0010 





0005 


0011 





0008 


0D12 





00C8 


0013 





oooo 


0014 




oooi 


0015 





FFFF 


0016 





0005 


0017 





4071 


0018 


1 


0C21 


0019 





0001 


001A 





0008 


001B 


1 


0016 


001C 





0008 


0010 





OOOE 


0D1E 


1 


09C0 


0D1F 





FFFF 


0020 





4000 


0021 





OOOC 


0022 


1 


0038 


0023 





0000 


0024 





oooo 


0D25 





oo ci 


0026 


1 


OCt'o 


0027 




oooi 


0D28 





ffft- 


0029 





000 5 


002A 





40 31 


002B 


1 


0C02 


0D2C 





0001 


0020 





0008 


002E 


1 


0029 


0D2F 





0005 


0D30 





4071 


0D31 


1 


0C06 


0032 





0001 


0033 





0008 



oc 

DC 

oc 



oc 
oc 

DC 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
*-6 ADDRESS 



4 BYTE COUNT 

/00*256+/06 FLAGS AND OP CODE 
RAREA ADORESS 



/FFFF 



TABLE TERMINATOR 



a************************************************** 



DC 

DC 

DC 

DC 

OC 

DC 

DC 

PRNT 

DC 



/4000 

/OOOE 

T1128+3 

/0005 

/0008 

/00C8 

/OOOO 

.11. 

/FFFF 



EXP CHANNEL STATUS 
EXP UNIT STATUS 
EXP CSW ADDRESS 
EX, 8YTE COUNT 
TXPECTED SENSE BYTES 

"WOULD NOT READ DATA 

TERMINATOR 



T1128 DC 

OC 
DC 



DC 
OC 
DC 



5 BYTE COUNT 

/40*256+/71 FLAGS AND OP CODE 
T11T8 ADDRESS 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
*-6 ADDRESS 



OC 

DC 
OC 

♦ 

DC 



8 BYTE COUNT 

/00*256+/0E FLAGS AND OP CODE 
RAREA ADDRESS 



/FFFF 



TABLE TERMINATOR 



DC 


/4000 


EXP CHANNEL STATUS 


OC 


/OOOC 


EXP UNIT STATUS 


DC 


T119A+3 


EXP CSW ADDRESS 


DC 


/OOOO 


EXP BYTE COUNT 


DC 


/OOOO 


EXPECTED SENSE BYTES 


DC 


/00C8 


* 


OC 


T11Y1 


ADDR OF EXPECTED DATA 


PRNT 


.12. 




OC 


/FFFF 


TERMINATOR 


T1129 DC 


5 


BYTE COUNT 


OC 


/40*256+/31 FLAGS AND OP CODE 


DC 

* 


T11T0 


ADDRESS 


» 

DC 


1 


BYTE COUNT 


DC 


0*256+/08 


FLAGS AND OP CODE 


DC 

* 


*-6 


ADDRESS 


* 

DC 


5 


BYTE COUNT 


DC 


/40*256+/71 FLAGS ANO OP CODE 


DC 

* 


TllTl 


ADORESS 


• 

DC 


1 


BYTE COUNT 


DC 


0*256+/08 


FLAGS AND OP COOE 



PART NO, 2279472 
PACE 11 



81113620 
81113630 
81113640 
81113650 
81113660 
81113670 
81113680 
81113690 
81113700 
81113710 
81113720 
81113730 
81113740 
81113750 
81113760 
81113770 
81113780 
81113790 
81113800 
81113810 
81113820 
81113830 
81113840 
81113850 
81113860 
81113870 
81113880 
81113890 
81113900 
81113910 
81113920 
81113930 
81113940 
81113950 
81113960 
81113970 
81113980 
81113990 
81114000 
81114010 
81114020 
81114030 
81114040 
81114050 
81114060 
81114070 
81114080 
81114090 
81114100 
81114110 
81114120 
81114130 
81114140 
81114150 
81114160 
81114170 
81114180 
81114190 
81114200 
81114210 
81114220 
81114230 
81114240 
81114250 
81114260 
61114270 
81114280 
81114290 



14N0V69 
431319 



30JAN70 
431319A 
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PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 
0034 1 002F 



0035 0004 
0D36 0006 
0D37 1 09C0 

0038 FFFF 



PART NO, 2279472 
PAGE 11A 



DATE 
EC NO. 



0039 





4000 


00 3A 





OOOC 


003B 


1 


0D51 


0D3C 





oooo 


0030 





oooo 


0D3E 





00C8 


0D3F 


1 


0C26 


0040 




0001 


0D41 





FFFF 


0042 





0005 


0043 





4031 


0044 


1 


0C02 


0D45 





oooi 


0D46 





0008 


0047 


1 


0D42 


0048 





0005 


0049 





4071 


004A 


1 


0C02 


0D4B 





0001 


0D4C 





0008 


0040 


1 


0D48 


004 E 





0008 


004F 





OOOE 


0D50 


1 


09C0 



0051 FFFF 



0052 





4200 


0053 





004C 


0054 


1 


0D5E 


0055 





OOOO 


0056 





OOOO 


0057 





00C8 


0058 





OOOO 


0059 




0001 


005A 





FFFF 


0D5B 





0003 


005C 





4071 


0D5D 


1 


0C02 


005E 





0001 


0D5F 





0008 


0060 


1 


005 B 



0061 0002 





DC 


*-6 ADDRESS 


81114300 


» 






81114310 


* 






81114320 


T119A 


DC 


4 BYTE COUNT 


81114330 




DC 


/00*256+/06 FLAGS AND OP COOE 


81114340 




DC 


RAREA ADDRESS 


81114350 


* 






81114360 




DC 


/FFFF TABLE TERMINATOR 


81114370 


#*#*#****#*#***$*#*###**#*****#4*#>***#*3)?**#*****>># 


81114380 


* 






81114390 




DC 


/4000 EXP CHANNEL STATUS 


81114400 




DC 


/OOOC EXP UNIT STATUS 


81114410 




DC 


T110B+3 EXPECTED CSW ADDRESS 


81114420 




DC 


/OOOO EXP BYTE COUNT 


81114430 




OC 


/OOOO EXP SENSE BYTES 


81114440 




DC 


/00C8 * 


81114450 




DC 


T11Y1 AORESS OF EXP DATA 


81114460 




PRNT 


.13. 


81114470 




DC 


/FFFF TERMINATOR 


81114480 


* 






81114490 


T1130 


DC 


5 BYTE COUNT 


81114500 




DC 


/40*256+/31 FLAGS AND OP CODE 


81114510 




OC 


T11T0 ADDRESS 


81114520 


4 






81114530 


* 






81114540 




DC 


1 BYTE COUNT 


81114550 




DC 


0*256+/08 FLAGS ANO OP COOE 


81114560 




DC 


*-6 AODRESS 


81114570 


* 






81114580 


* 






81114590 




DC 


5 BYTE COUNT 


81114600 




DC 


/40*256+/71 FLAGS ANO OP CODE 


81114610 




OC 


T11T0 ADDRESS 


81114620 


* 






81114630 


* 






81114640 




DC 


1 BYTE COUNT 


81114650 




DC 


O*256+/08 FLAGS AND OP COOE 


81114660 




DC 


*-6 ADDRESS 


81114670 


* 






81114680 


* 






81114690 


T110B 


DC 


8 BYTE COUNT 


81114700 




DC 


/00*256+/0E FLAGS ANO OP CODE 


81114710 




DC 


RAREA ADORESS 


81114720 


* 






81114730 




DC 


/FFFF TABLE TERMINATOR 


81114740 


♦♦a************************************************ 


81114750 


* 






81114760 




DC 


/4200 EXP CHANNEL STATUS 


81114770 




DC 


/004C EXP UNIT STATUS 


81114780 




DC 


T1131+3 EXP CSW AODRESS 


B1114790 




DC 


/OOOO EXP BYTE COUNT 


81114800 




OC 


/OOOO EXPECTED SENSE BYTES 


81114810 




OC 


/00C8 * 


81114820 




OC 


/OOOO SHOULD NOT READ DATA 


81114830 




PRNT 


.14. 


81114840 




DC 


/FFFF TERMINATOR 


81114850 


* 






81114860 


T1131 


OC 


3 BYTE COUNT 


81114870 




DC 


/40*256+/71 FLAGS ANO OP CODE 


81114880 




DC 


T11T0 ADDRESS 


81114890 


* 






81114900 


* 






81114910 




DC 


1 BYTE COUNT 


81114920 




OC 


0*256+/08 FLAGS AND OP CODE 


81114930 




OC 


*-6 ADDRESS 


81114940 


* 






81114950 


* 






81114960 




oc 


2 BYTE COUNT 


81114970 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



0062 





OOOE 


0063 


1 


09C0 


006* 





FFFF 


0065 





4200 


0D66 





00'.C 


0D67 


1 


0D77 


0068 





000! 


0069 





0000 


006A 





00C8 


006B 





oooo 


0D6C 




0001 


006D 





FFFF 


006E 





0004 


006F 





4029 


0D70 


1 


0C28 


0D71 





0001 


0072 





0008 


0073 


1 


0D6E 


0074 





0006 


0D75 





40 71 


0076 


1 


OCIE 


0077 





0001 


0078 





0008 


0079 


1 


0074 


0D7A 





0008 


007B 





OOOE 


0D7C 


1 


09C0 


0D7D 





FFFF 


0D7E 





4000 


0D7F 





OOOE 


0080 


1 


0D8A 


0081 





0004 


0D82 





0008 


0083 





00C8 


0DB4 





0000 


OD85 




0001 


0D86 





FFFF 


0D87 





0004 


0D88 





4069 


0089 


1 


0C2E 


0D8A 





0001 


008B 





0008 


0D8C 


1 


0087 


0D8D 





0004 


0D8E 





0006 


0D8F 


1 


09C0 



DC 
DC 



/00*256+/0E FLAGS ANO OP CODE 
RAREA ADDRESS 



0D90 FFFF 



DC /FFFF TABLE TERMINATOR 





nc 


/4200 


EXP CHANNEL STATUS 




DC 


/004C 


EXP UNIT STATUS 




oc 


T113A+3 


EXP CSW ADDRESS 




DC 


/0001 


EXP BYTE COUNT 




DC 


/OOOO 


EXPECTED SENSE BYTES 




DC 


/00C8 


« 




OC 


/OOOO 


SHOULD NOT READ DATA 




PRNT 


.15. 




* 
T1132 


DC 


/FFFF 


TERMINATOR 


DC 


4 


BYTE COUNT 




DC 


/40*256+/29 .AGS AND OP CODE 


» 


DC 


T11Y2 


ADDRESS 


* 


DC 


1 


BYTE COUNT 




OC 


0*256+/08 


FLAGS AND OP CODE 


* 


DC 


*-6 


ADDRESS 


* 
T113A 


DC 


6 


BYTE COUNT 




DC 


/40*256+/71 FLAGS AND OP CODE 


* 


OC 


T11T6 


ADDRESS 


• 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


* 


DC 


*-6 


ADDRESS 


» 


DC 


8 


BYTE COUNT 




DC 


/00*256+/OE FLAGS AND OP CODE 




DC 


RAREA 


ADDRESS 



DC /FFFF TABLE TERMINATOR 

* 





DC 


/4000 


EXP CHANNEL STATUS 




DC 


/OOOE 


EXP UNIT STATUS 




DC . 


T1133+3 


EXP CSW ADDRESS 




DC 


/0004 


EXP BYTE COUNT 




DC 


/0008 


EXPECTED SENSE BYTES 




DC 


/00C8 


* 




DC 


/OOOO 


SHOULO NOT READ DATA 




PRNT 


.16. 




£ 


DC 


/FFFF 


TERMINATOR 


T1133 


DC 


4 


BYTE COUNT 




DC 


/40*256+/69 FLAGS AND OP CODE 


* 


OC 


T11Y8 


ADDRESS 


* 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


* 


DC 


*-6 


ADDRESS 


* 


DC 


4 


BYTE COUNT 




DC 


/00*256+/06 FLAGS AND OP CODE 




OC 


RAREA 


ADDRESS 



DC 



/FFFF 



TABLE TERMINATOR 



PART NO. 2279472 
PAGE 12 



81114980 
81114990 
81115000 
81115010 
81115020 
81115030 
81115040 
811 15050 
81 115060 
B1115070 
81115080 
81115090 
81115100 
81115110 
81115120 
81115130 
81115140 
81115150 
81115160 
81115170 
81115180 
81115190 
81115200 
81115210 
81115220 
81115230 
81115240 
81115250 
81115260 
81115270 
81115280 
81115290 
81115300 
81115310 
81115320 
81115330 
81115340 
81115350 
81115360 
81115370 
81115380 
81115390 
81115400 
81115410 
81115420 
81115430 
81115440 
81115450 
81115460 
81115470 
8 1115480 
81115490 
81115500 
81115510 
81115520 
81115530 
81115540 
81115550 
81115560 
81115570 
81115580 
81115590 
81115600 
81115610 
81115620 
81115630 
eill5640 
81115650 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 






DATE 
EC NO. 



0D91 





4000 


0D92 





oooc 


0093 


1 


00A9 


0D94 





0000 


0D95 





oooo 


01)96 





oor.n 


OD 9 7 


1 


oc?n 


0IJ9B 




0001 


0099 





FFFF 


00 9 A 





0005 


0D9B 





4031 


OD9C 


1 


0C06 


0D9D 





0001 


009E 





0008 


0D9F 


1 


0D9A 


ODAO 





0004 


ODA1 





4069 


0DA2 


1 


0C28 


0DA3 





0001 


0DA4 





0008 


0DA5 


1 


ODAO 


0DA6 





0004 


0DA7 





0006 


0DA8 


1 


09C0 



0DA9 FFFF 



00 AA 





4000 


OOAB 





oooc 


ODAC 


1 


00C2 


ODAO 





OOOO 


ODAE 





OOOO 


ODAF 





00C8 


OOBO 


1 


OC26 


0DB1 




0001 


0DB2 





FFFF 


0DB3 





0005 


0DB4 





4031 


0DB5 


1 


OC06 


0DB6 





0001 


0DB7 





0008 


0DB8 


1 


0DB3 


0DB9 





0004 


ODBA 





4069 


ODBB 


1 


0C26 


ODBC 





0001 


ODBD 





0008 


ODBE 


1 


0DB9 





DC 


/4000 


EXP CHANNEL STATUS 




DC 


/OOOC 


EXP UNIT STATUS 




DC 


T114A+3 


EXP CSW ADDRESS 




DC 


/OOOO 


EXP BYTE COUNT 




DC 


/OOOO 


EXPECTED SENSE BYTES 




OC 


/OOCB 


# 




DC 


T11Y2 


ADDR OF EXPECTED DATA 




PRNT 


.17. 




* 


DC 


/FFFF 


TERMINATOR 


T1134 


DC 


5 


BYTE COUNT 




OC 


/40*256+/31 FLAGS ANO OP CODE 


* 


DC 


T11T1 


ADDRESS 


# 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


* 


DC 


*-6 


ADDRESS 


* 


DC 


4 


BYTE COUNT 




DC 


/40*256+/69 FLAGS ANO OP CODE 


* 


DC 


T11Y2 


ADDRESS 


* 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


# 


DC 


*-6 


ADDRESS 


* 
T114A 


DC 


4 


BYTE COUNT 




DC 


/00*256+/06 FLAGS ANO OP CODE 




DC 


RAREA 


ADDRESS 



DC /FFFF TABLE TERMINATOR 
* 





OC 


/4000 


EXP CHANNEL STATUS 




DC 


/OOOC 


EXP UNIT STATUS 




OC 


T115B+3 


EXP CSW ADDRESS 




DC 


/OOOO 


EXP BYTE COUNT 




DC 


/OOOO 


EXPECTED SENSE BYTES 




DC 


/0OC8 


* 




OC 


T11Y1 


ADDR OF EXPECTED DATA 




PRNT 


.18. 






DC 


/FFFF 


TERMINATOR 


T1135 


DC 


5 


BYTE COUNT 




DC 


/40*256+/31 FLAGS AND OP CODE 


* 


DC 


T11T1 


ADDRESS 


* 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


• 


DC 


*-6 


ADDRESS 


* 


DC 


4 


BYTE COUNT 




DC 


/40*256+/69 FLAGS ANO OP CODE 


* 


DC 


T11Y1 


ADDRESS 


« 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 




DC 


«-6 


ADDRESS 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 
PAGE 



81115660 
81115670 
81115680 
8ill5690 
81115700 
81115710 
81115720 
81115730 
HI 11 5740 
H1115750 
81115760 
81115770 
81115780 
81115790 
81115800 
81115810 
81115820 
81115830 
81115840 
81115850 
81115860 
81115870 
81115880 
81115890 
81115900 
81115910 
81115920 
81115930 
81115940 
81115950 
81115960 
81115970 
81115980 
81115990 
81116000 
81116010 
81116020 
81116030 
81116040 
81116050 
81116060 
81116070 
81116080 
81116090 
81116100 
81116110 
81116120 
81116130 
81116140 
81116150 
81116160 
81116170 
81116180 
81116190 
81116200 
81116210 
81116220 
81116230 
81116240 
81116250 
81116260 
81116270 
81116280 
81116290 
81116300 
81116310 
81116320 
81116330 
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PAGE 
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0811-0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST I PHASE B) 



DATE 
EC NO. 



ODBF 0004 


T115B DC 


ODCO 0006 


DC 


0DC1 1 09C0 


DC 



0DC2 FFFF 



00C3 





4200 


00C4 





004C 


0DC5 


1 


0D05 


00C6 





0000 


00C7 





0000 


0DC8 





00C8 


0OC9 





0000 


ODCA 




0001 


OOCB 





FFFF 


ODCC 





0005 


ODCD 





4031 


OOCE 


1 


OC06 


ODCF 





0001 


ODDO 





0008 


00D1 


1 


ODCC 


0DD2 





0001 


0DD3 





406 9 


ODD* 


1 


0C28 


0DD5 





oooi 


0DD6 





0008 


0OD7 


1 


0DD2 


0D08 





0004 


0DD9 





0006 


ODDA 


1 


09C0 



ODDB FFFF 



4 BYTE COUNT 

/00»256+/06 FLAGS AND OP CODE 
RAREA ADDRESS 



DC /FFFF TABLE TERMINATOR 

*** *** ****** ** ** ** ** ******* ** ************* ********* 





OC 


/4200 


EXP CHANNEL STATUS 




DC 


/004C 


EXP UNIT STATUS 




oc 


T1136+9 


EXP CSW ADDRESS 




DC 


/OOOO 


EXP BYTE COUNT 




OC 


/OOOO 


EXPECTED SENSE BYTES 




DC 


/00C8 


* 




DC 


/OOOO 


SHOULD NOT READ DATA 




PRNT 


.19. 




* 
T1136 


DC 


/FFFF 


TERMINATOR 


DC " 


5 


BYiE COUNT 




DC 


/40*256+/31 FLAGS AND OP CODE 


* 


OC 


T11T1 


ADDRESS 


* 


DC 


1 


i3YTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


* 


DC 


*-6 


ADDRESS 


* 


DC 


1 


BYTE COUNT 




DC 


/40*256+/69 FLAGS AND OP CODE 


* 


OC 


T11Y2 


ADDRESS 


* 


DC 


1 


BYTE COUNT 




DC 


0*256+/08 


FLAGS AND OP CODE 


* 


DC 


*-6 


AODRESS 


* 


DC 


4 


BYTE COUNT 




DC 


/00*256+/06 FLAGS AND OP CODE 




DC 


RAREA 


AODRESS 



DC 



/FFFF 



TABLE TERMINATOR 



*************************************************** 



ODDC 





4200 




OC 


/4200 


EXP CHANNEL STATUS 


ODDD 





004C 




DC 


/004C 


EXP UNIT STATUS 


ODDE 


1 


ODEE 




DC 


T117B+3 


EXP CSW ADDRESS 


ODDF 





0002 




DC 


/0002 


EXP BYTE COUNT 


ODEO 





OOOO 




DC 


/OOOO 


EXPECTED SENSE BYTES 


0DE1 





00C8 




DC 


/00C8 


* 


0DE2 





OOOO 




DC 


/OOOO 


SHOULD NOT READ DATA 


0DE3 




0001 




PRNT 


.20. 




0DE4 





FFFF 




DC 


/FFFF 


TERMINATOR 


0DE5 





0004 


T1137 


DC 


4 


BYTE COUNT 


00E6 





4029 




DC 


/40*256+/29 FLAGS AND OP CODE 


CDS 7 


1 


0C28 


* 


DC 


T11Y2 


ADDRESS 


0DE8 





0001 


* 


DC 


1 


BYTE COUNT 


0DE9 





0008 




DC 


0*256+/08 


FLAGS AND OP CODE 


ODEA 


1 


0DE5 


: * 


OC 


*-6 


ADDRESS 


ODEB 





0C06 


* 
T1178 


DC 


6 


BYTE COUNT 


ODEC 





4069 




DC 


/40*256+/69 FLAGS AND OP CODE 


ODED 


1 


0C2A 




DC 


T11Y3 


ADDRESS 
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81116340 
81116350 
81116360 
81116370 
81116380 
81116390 
81116400 
81116410 
81116420 
81116430 
81116440 
81116450 
81116460 
81116470 
81116480 
81116490 
81116500 
81116510 
81116520 
81116530 
81116540 
81116550 
81116560 
81116570 
81116580 
81116590 
81116600 
81116610 
81116620 
81116630 
81116640 
81116650 
81116660 
81116670 
81116680 
81116690 
81116700 
81116710 
81116720 
81116730 
81116740 
81116750 
81116760 
81116770 
81116780 
81116790 
81116800 
81116810 
81116820 
81116830 
81116840 
81116850 
81116860 
81116870 
81116880 
81116890 
81116900 
81116910 
81116920 
81116930 
81116940 
81116950 
81116960 
81116970 
81116980 
81116990 
81117000 
81117010 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 







* 








* 




ODEE 


0001 




DC 


ODEF 


0008 




DC 


ODFO 1 


ODEB 


* 
* 


DC 


0DF1 


0004 




DC 


0DF2 


0006 




DC 


0DF3 1 


09C0 




DC 


0DF4 


FFFF 




DC 


0DF5 


FFFF 




DC 



0DF6 O 42DF 



0DF7 0002 
0DF8 0001 

0DF9 C2BC 
ODFA 1 4C18 0E01 
ODFC 90FB 
ODFD 1 4C30 0B25 
ODFF 80F8 
OEOO 7000 



1 BYTE COUNT 

0*256+/08 FLAGS AND OP CODE 
*-6 ADDRESS 



4 BYTE COUNT 

/00*256+/06 FLAGS AND OP CODE 
RAREA ADDRESS 

/FFFF TABLE TERMINATOR 
/FFFF END O' TABLE 

##******#********«********************************# 
******* #*****«**#******«*************************** 

* * 
*************************************************** 
* 

* SECTION END 

* 

T1201 BSI 2 CNTRL-TB GO TO CONTROL RTN 

*************************************************** 

* * 
*************************************************** 
* 

* SECTION PREFACE 
* 

SECTION NUMBER 



/0002 

1 

2 TRTNN-TB SH FNC 1 BITS 12-15 

T2101 BR IF RUN ALL RTNS 

T20PR+1 TEST FOR VALID 

TCNER BR IF INVALID RTN NUMBER 

T20PR+1 RESTORE RTN NUMBER 

T2101 GO TO FIRST RTN 



T20PR DC 
DC 

* 

T20NT LD 

BZ 

S 

BP 

A 

MDX 
*************************************************** 

* * 
*************************************************** 
* 

* 

* 

************************************************** 

* 

* ROUTINE — 1 — FILE MASK TESTS 
* 

************************************************** 
* 

* 

* THIS ROUTINE TESTS THE SET PROTECT 

* OPERATION. A COMMON ROUTINE IS UTILIZED 

* TO EXECUTE THE CCW'S TO CHECK THE MANY 

* COMBINATIONS OF PROTECT BITS. 
* 

* FIRST, ALL COMBINATIONS OF BITS ANO 1 ARE 

* CHECKED FOR ALL THE DIFFERENT WRITE 

* OPERATIONS. THE SET PROTECT IS ISSUED AND 

* THEN THE WRITE IS ATTEMPTED. WHERE A WRITE 

* SHOULD BE ALLOWED, A READ IS PERFORMED AND 

* THE DATA READ COMPARED WITH DATA WRITTEN. 

* WHERE WRITE SHOULD BE INHIBITED, THE CSW 

* ANO SENSE DATA ARE CHECKED TO SEE IF THEY 

* ARE AS EXPECTED. 
* 

* NEXT, ALL COMBINATIONS OF BITS 3 AND 4 ARE 

* TESTED FOR EACH TYPE OF SEEK OPERATION. 

* THE RESULTS ARE CHECKED IN THE SAME MANNER 

* AS FOR BITS AND 1. 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 
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81117020 


'• © 


81117030 




81117040 


1 


81117050 


i e 


81117060 




81117070 


i 


81117080 


i * 


81117090 




81117100 


■ 


81117110 


: ° 


81117120 




81117130 




81117140 


; © 


81117150 




81117160 




81117170 


i © 


81117180 




81117190 




81117200 


o 


81117210 




81117220 




81117230 


o 


81117240 




81117250 




81117260 


o 


81117270 




81117280 


i 


81117290 


i o 


81117300 




81117310 


! 


81117320 


© 


81117330 




81117340 




81117350 


1 o 


81117360 




81117370 




81117380 


o 


81117390 




81117400 




81117410 


o 


81117420 




81117430 




81117440 


! o 


81117450 


!• 


81117460 




81117470 


| o 


81117480 




81117490 




81117500 


© 


81117510 




81117520 




81117530 


o 


81117540 




81117550 




81117560 


o 


81117570 


■■ I 


81117580 




81117590 


o 


81117600 




81117610 


i 


81117620 


I © 


81117630 




81117640 


' 


81117650 


i © 


81117660 




81117670 




81117680 


o 


81117690 


i w 




o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

1800-28*1 FUNCTION TEST (PHASE 8) 



DATE 
EC NO. 



* NEXTf ALL COMBINATIONS OF BITS 5 AND 6 ARE 

* SET TO MAKE SURE THAT UNIT CHECK IS SET 

* WITH SENSE CONDITION OF INVALID COMMAND. 

* THIS IS EXPECTED BECAUSE THESE BITS HAVE TO 

* BE ZERO TO BE VALID. 
* 

* LAST, ALL COMBINATIONS OF BITS 2 AND 7 ARE 
» TESTED FOR THE SAME CONDITIONS AS BITS 5 

* AND 6. 



*************************************************** 



0E01 

0E01 1 7401 0815 
0E03 1 4C18 0E08 
0E05 9297 
0E06 1 4C20 10B9 

0E08 C283 
0E09 100A 
OEOA 1 4C10 OEOE 
OEOC 420C 
OEOD 1 0E4F 

OEOE 42EE 



OEOF 4215 
0E10 10AO 
0E11 1 DCOO 0A30 
0E13 1 DCOO 0A32 
0E15 1 DCOO 0A34 
0E17 1 DCOO 0A36: 
0E19 1 DCOO 0A38 

0E1B C290 
0E1C D062 

0E1D 1 6500 0F28 

0E1F C101 
0E20 D049 
0E21 42FD 
0E22 1 DCOO 0EB8 



a************* 
************** 

* 
************** 

T2101 EOU 

MDX L 

BZ 

S 2 

BNZ 
* 
T2102 LO 2 

SLA 

BNN 

BSI 2 

DC 
* 

T2103 BSI 2 
************** 



*#***#*#******#********************** 
************************************* 



************ ******************* ****** 

* T ST ENTRY POINT 

TRIDtl "»UMP RTN ID 

T2102 R IF TEST NUMBER ZERO 

Kl-TB ..ECREMENT BY ONE 

T2201 BR IF NOT THIS TEST 

TSWO-TB GET OPTION SWS 
OTTLE PRINT TITLES 
T2103 BR IF NOT SET 
TLGMS-TB GO TO PRINT ROUTINE 
TTL21 MESSAGE ADDRESS 

GETDV-TB GET CHANNEL FOR RTN 

************************************* 



*************************************************** 



BSI 
SLT 
STO 
STD 
STD 
STO 
STD 



SKTV-TB 

32 

WAREA+10 

WAREA+12 

WAREA+14 

WAREA+16 

HAREA+18 



BRANCH TO SEEKX ROUTINE 
CLEAR 'ALL ZERO'S' 
* AREA 



SET ERROR C0UNTER=10 

* 

LOX LI T21TB SET UP TABLE POINTER 



LD 
STO 



K10-TB 
T21EC 



0E24 





C902 




OE25 





D8IS2 




OE26 





C904 




0E27 





D852 




0E28 





C906 




0E29 





D852 




0E2A 





C108 




0E2B 





D06 5 




0E2C 





C109 




0E2D 





OOol 




0E2E 





10A0 




0E2F 


1 


DCOO 


09C0 


0E31 


1 


DCOO 


09C2 


0E33 


1 


DCOO 


09C4 


0E35 


1 


DCOO 


09C6 



T2104 LD 
STO 
BSI 
STD 

• 

LDD 
STO 
LDD 
STD 
LDD 
STD 
LD 
STO 
LD 
STO 
• 

SLT 
STD 
STO 
STD 
STD 



1 1 GET FILE MASK 
T21FM PUT IN MASK WORD 

2 TCVBE-TB CONVERT TO 1443 CODE 
. T21M2+6 PUT IN ERROR MESSAGE 



2 

T21EX 

4 

T21EX+2 

6 

T21SN 

8 

T21CK+5 

9 

T21CK+3 

32 

RAREA 

RAREA+2 

RAREA+4 

RAREA+6 



SET UP EXPECTED- 
CHANNEL/UNIT STATUS 

ADDRESS/BYTE COUNTR 

SENSE BYTES 

GET EXPECTED DATA AREA 
PUT IN CHECK AREA 

GET WORD COUNT ' 
PUT IN CHECK AREA 

CLEAR READ (DATA 'WAS' ) 

* AREA 

* 

* 
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81117700 
81117710 
81117720 
81117730 
81117740 
81117750 
81117760 
81117770 
81117780 
81117790 
81117800 
81117810 
81117820 
81117830 
81117840 
81117850 
81117860 
81117870 
81117880 
81117890 
81117900 
81117910 
81117920 
81117930 
81117940 
81117950 
81117960 
81117970 
81117980 
81117990 
81118000 
81118010 
81118020 
81118030 
81118040 
81118050 
81118060 
81118070 
81118080 
81118090 
81118100 
81118110 
81118120 
81118130 
81118140 
81118150 
81118160 
81118170 
81118180 
81118190 
81118200 
81118210 
81118220 
81118230 
81118240 
81118250 
81118260 
81118270 
81118280 
81118290 
81118300 
81118310 
81118320 
81118330 
81118340 
81118350 
81118360 
81118370 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 
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0E37 


1 


DCOO 


09 C8 


* 


STD 


L 


RAREA+8 


* 


81118380 
81118390 










* 


SET UP CCW ADDRS 


AND GO TO SIO ROUTINE 


81118400 










* 










81118410 


0E39 





cioo 






LD 


1 





GET CCW ADDRS 


81118420 


0E3A 





D001 




* 


STO 




T2106+1 


PUT IN CALL ON SIO 


81118430 
81118440 


06 3B 





42F7 




T2106 


BSI 


2 


SIO-TB 


GO DO SIO 


81118450 


0E3C 





0000 






DC 




*-* 


CCW ADDRS GOES HERE 


81118460 


0E3D 





4212 






BSI 


2 


TLPST-TB 


GO TEST LOOP SIO 


81118470 


0E3E 


1 


0E3B 






DC 




T2106 


LOOP ADDRS 


81118480 


0E3F 





42E5 






BSI 


2 


CKTV-TB 


CALL CHECK ROUTINE 


81118490 


0E40 


1 


0E8C 






DC 




T21CK 


LIST ADDRESS 


81118500 


0E41 


1 


4C20 


0E60 


* 


BNZ 




T2107 


BR IF ERROR 


81118510 
81118520 


0E43 





710A 




T21G0 


MDX 


1 


10 


ELSE BUMP POINTER 


81118530 


0E44 





6939 






STX 


1 


T21SV 


SAVE 


81118540 


0E45 





C038 






LD 




T21SV 


GET IN A REG 


81118550 


0E46 


1 


F400 


10B8 




EOR 


L 


T21TB+400 


EQUAL LAST TEST 


81116560 


0E48 


1 


4C20 


0E1F 


* 
* 


BNZ 




T2104 


BR IF NO r 


81118570 
81118580 
81118590 










* 


GO TO NEXT ROUTINE IN SEQUENCE 


81118600 










* 










81118610 


0E4A 





42EB 




T21EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81118620 


0E4B 





C2BC 






LD 


2 


TRTNN-TB 


GET RTN SWS 


81118630 


0E4C 


1 


4C18 


10B9 




BZ 




T2201 


GO TO NEXT RTN IN SEO 


81118640 


0E4E 





42 DF 






BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81118650 


0E4F 




0007 




TTL21 

* 


PRNT 




. SECT 2, 


RT 1- . 


81118660 
81118670 


0E56 




0009 






PRNT 




.FILE PROTECT TEST. 


81118680 


0E5F 





FFFF 




* 


DC 




/FFFF 




81118690 
81118700 


0E60 





420F 




T2107 


BSI 


2 


TLPER-TB 


GO TEST LOOP ERROR 


81118710 


0E61 


1 


0E68 




* 


DC 




T2108 


LOOP ADDRS 


81118720 
81118730 


0E62 


1 


74FF 


0E7F 




MDX 


L 


T21EC-1 


DECREMENT ERROR CNT 


81118740 


0E64 





70DE 






MDX 




T21G0 


GO TRY NEXT MASK 


81118750 










* 


GET 


HERE IF 10 ERRORS FOUND 


81118760 


0E65 





420C 






BSI 


2 


TLGMS-TB 


CALL LOG ROUTINE 


81118770 


0E66 


1 


0E94 






DC 




T21M1 




81118780 


0E67 





70E2 




* 


MDX 




T21EN 


END ROUTINE 


81118790 
81118800 


0E68 





71F6 




T2108 


MDX 


1 


-10 


SET POINTER TO LAST TABL 


81118810 


0E69 





70B5 




* 


MDX 




T2104 


GO TRY AGAIN 


81118820 
81118830 










* 


DATA 


AND CONSTANTS 


81118840 










* 










81118850 


0E6A 





0000 




T21FM 

* 


DC 




*-* 


FILE MASK GOES HERE 


81118860 
81118870 


0E6B 





0000 




T21HA 


DC 




/OOOO 


WRITE HA ARG 


81118880 


0E6C 





C600 






DC 




/C600 


CYL = 198 


81118890/ 


0E6D 





0000 




* 


DC 




/OOOO 


HD = 000 


81118900 
81118910 


0E6E 





0000 




T21AH 


DC 




/OOOO 


SEEK ARG 


81118920 


0E6F 





O0C6 






DC 




/00C6 


CYL ■ 198 


81118930 


0E70 





0000 




* 


DC 




/OOOO 


HO = 000 


81118940 
81118950 


0E71 





0000 




T21H5 


DC 




/OOOO 


SEEK ARG 


81118960 


0E72 





00C6 






DC 




/00C6 


CYL « 198 


81118970 


0E73 





0005 




* 


DC 




/0005 


HD » 005 


81118980 
81118990 


0E74 





0000 




T215H 


DC 




/OOOO 


READ HA EXP 


81119000 


0E75 





C600 






DC 




/C600 




81119010 


0E76 





0500 




* 


DC 




/0500 




81119020 
81119030 


0E78 




0000 






BSS 


E 







81119040 


0E78 





0000 




T21EX 


DC 




*-* 


EXPECTED- CS 


81119050 
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I8M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVST6M 
1800-2841 FUNCTION TEST (PHASE 8) 



0E79 0000 
0E7A 0000 
0E78 0000 

0E7C 0000 
0E7D 0000 

0E7E 0000 
0E7F 0000 

0E80 OOFF 

0E81 OOFF 

0E82 0000 

0E83 0002 

0E64 FFFF 

0E85 OOFF 
0E86 OOFF 
0E87 0101 
0E88 0001 
0E89 CC33 

0E8A 33CC 
0E8B CCOO 



PART NO. 2279472 
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u 



O 



DATE 
EC NO. 



0E8C 

0E80 

0E8E 1 

0E8F 

0E90 

0E91 

0E92 

0E93 

0E94 
0EA4 
0EB1 
0EB2 
0EB2 
0E8A 



FF80 

1 0E78 
0E7C 
0000 
09 CO 
0000 
0EB2 
FFFF 

0016 
0013 
FFFF 
0000 
0008 
FFFF 





DC 


*-* 


US 




DC 


*-* 


AD 


* 


DC 


*-* 


BC 


T21SN 


DC 


*-* 


EXPECTED SENSE 


* 


DC 


*-* 


DATA 


T21SV 


DC 


*-* 


SAVE AREA 


T21EC 


OC 


*-* 


ERROR COUNTER 


T21R0 


DC 


/OOFF 


RECORO ZERO 




DC 


/OOFF 


* 




DC 


/OOOO 


* 




DC 


/0002 


* 


* 


OC 


/FFFF 


* 


T21CX 


OC 


/OOFF 


■COUNT. KEY, DATA' 




DC 


/OOFF 


FOR CCW'S 




DC 


/0101 






DC 


/0001 




T21WR 


DC 


/CC33 




T21K0 


DC 


/33CC 


KEY, DATA' FOR CCW' 


T21DT 
* 


DC 


/CCOO 


'DATA' FOR CCW'S 


T21CK 


DC 


/FF80 


FLAG FOR CHECK RTN 




DC 


T21EX 


CSW 'SB' AODRS 




DC 


T21SN 


SENSE 'SB' ADDRS 




DC 


*-* 


WORD CNT GOES HERE 




DC 


RAREA 


READ AREA ADDRS 




DC 


*-* 


DATA EXPECTED ADDRS 




DC 


T21M2 


MSG ADDRS 


* 


DC 


/FFFF 




T21M1 


PR NT 


. **10 


ERRORS FOUND IN FILE M 




PRNT 


. TEST- 


ROUTINE TERMINATED. 




DC 


/FFFF 






BSS E 







T21M2 


PRNT 


. FILE 


MASK* XXXX. 




DC 


/FFFF 





OESB 
OEBC 
OESD 





l 


0001 
40 IF 
0E6A 


T21C1 

* 


DC 
DC 
DC 


OEBE 
OEBF 
OECO 





l 


0005 

4019 
0E6B 


* 
* 


DC 
DC 
DC 


0EC1 
0EC2 
0EC3 





1 


0005 
001A 
09C0 


* 


DC 
DC 
DC 



*************************************************,:,* 

* ' * 

*************************** ******** **************** 

* 

* CCW TABLE FOR FILE PROTECT TEST 
* 

***************** *************************** ******* 

* * 

****** ********************** ******* ********* ******* 
* 

* SET FILE MASK, WRITE/READ HOME ADDRS 



1 BYTE COUNT 

FLCCH»256+SFILM FLAGS AND OP CODE 
T21FM ADDRESS 



5 BYTE COUNT 

FLCCH*256+WRHA FLAGS AND OP CODE 
T21HA ADDRESS 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP COOE 
RAREA ADDRESS 



SET FILE MASK, WRITE/READ RECORO 



14N0V69 30JAN70 
431319 431319A 



81119060 

81119070 

81U90R0 

81119090 

81119100 

81119110 

81119120 

81119130 

81119140 

81119150 

81119160 

81119170 

81119180 

81119190 

81119200 

81119210 

81119220 

81119230 

81119240 

81119250 

81119260 

81119270 

81119280 

81119290 

81119300 

81119310 

81119320 

81119330 

81119340 

81119350 

81119360 

81119370 

81119380 

81119390 

81119400 

81119410 

81119420 

81119430 

81119440 

81119450 

81119460 

81119470 

81119480 

81119490 

81119500 

81119510 

81119520 

81119530 

81119540 

81119550 

81119560 

81119570 

81119580 

81119590 

81119600 

81119610 

81119620 

81119630 

81119640 

81119650 

81119660 

81119670 

81119680 

81119690 

81119700 

81119710 

81119720 

81119730 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE Bl 



PART NO. 3279472 
PAGE 15A 



OATE 
EC NO. 



0EC4 
0EC5 
0EC6 





1 


0001 
401F 
0E6A 


T21C2 

* 


DC 
DC 
DC 


0EC7 
0EC8 
0EC9 





1 


0004 
4039 
0804 


* 
T21CG 

* 


DC 
DC 
DC 


OECA 
OECB 
OECC 





1 


0001 
0008 
0EC7 


* 

* 


DC 
DC 
DC 


OECO 
OECE 
OECF 





1 


OOOA 
4015 
0E80 


* 

* 


DC 
DC 
DC 


OEDO 
0ED1 
0ED2 





1 


OOOA 
0016 
09C0 


* 


DC 
DC 
DC 



0ED3 





0001 


T21C3 


DC 


0ED4 





401F 




DC 


0ED5 


1 


0E6A 


* 
* 


DC 


0ED6 





0005 


T21CH 


DC 


0ED7 





4031 




DC 


0ED8 


1 


OE80 


* 
* 


DC 


0ED9 





0001 




DC 


OEOA 





0008 




DC 


OEDB 


1 


0ED6 


* 
* 


DC 


OEDC 





OOOA 




DC 


OEDD 





4010 




DC 


OEDE 


1 


0E85 


* 
* 


DC 


OEDF 





OOOA 




DC 


OEEO 





00 IE 




DC 


06E1 


1 


09C0 


* 
* 
* 
* 


DC 
SET 


0EE2 





0001 


T21C4 


DC 


0EE3 





401F 




DC 


0EE4 


1 


0E6A 


* 
* 


DC 


0EE5 





0005 


T21CI 


DC 


0EE6 





4031 




DC 


0EE7 


1 


0E85 


* 
* 


DC 


0EE8 





0001 




OC 


0EE9 





0008 




OC 



1 BYTE COUNT 

FLCCH*256+SFILM FLAGS AND OP COOE 
T21FM ADORESS 



4 BYTE COUNT 

FLCCH*256+SRCHA FLAGS AND OP CODE 
HA ADDRESS 



1 BYTE COUNT 

0*256+0PTIC FLAGS AND OP COOE 
T21CG ADDRESS 



10 BYTE COUNT 

FLCCH*256+WRR0 FLAGS AND OP CODE 
T21R0 ADDRESS 



10 BYTE COUNT 

0*256+RDR0 FLAGS ANO OP CODE 
RAREA ADDRESS 



SET FILE MASK, WRITE/READ COUNT, KEY, DATA 



1 BYTE COUNT 

FLCCH*256+SFILM FLAGS AND OP CODE 
T21FM ADDRESS 



5 BYTE COUNT 

FLCCH*256+SRCI0 FLAGS AND OP CODE 
T21R0 ADDRESS 



1 BYTE COUNT 

0*256+0PTIC FLAGS AND OP CODE 
T21CH ADDRESS 



10 BYTE COUNT 

FLCCH*256+WRCKD FLAGS AND OP CODE 
T21CX ADDRESS 



10 BYTE COUNT 

0*256+R0CKD FLAGS AND OP CODE 
RAREA ADDRESS 

FILE MASK, WRITE/READ KEY, DATA 



1 BYTE COUNT 

FLCCH*256+SFILM FLAGS AND OP COOE 
T21FM ADDRESS 



5 BYTE COUNT 

FLCCH*256+SRCID FLAGS ANO OP CODE 
T21CX ADDRESS 



1 BYTE COUNT 

0*256+0PTIC FLAGS ANO OP COOE 



14N0V69 
431319 



30JAN70 
431319A 



81119740 

81119750 

81119760 

81119770 

61119780 

81119790 

81119800 

81119810 

81119820 

81119830 

81119840 

81119850 

81119860 

81119870 

81119880 

81119890 

81119900 

81119910 

81119920 

81119930 

81119940 

81119950 

81119960 

81119970 

81119980 

81119990 

81120000 

81120010 

81120020 

81120030 

81120040 

81120050 

81120060 

81120070 

81120080 

81120090 

81120100 

81120110 

81120120 

81120130 

81120140 

81120150 

81120160 

81120170 

81120180 

81120190 

81120200 

81120210 

81120220 

81120230 

81120240 

81120250 

81120260 

81120270 

81120280 

81120290 

81120300 

81120310 

81120320 

81120330 

81120340 

81120350 

81120360 

81120370 

81120380 

81120390 

81120400 

81120410 
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IBM MAINTENANCE D1AGNOST 
1800-2841 FUNCTION TEST 
OEEA 1 0EE5 



I C PROGRAM FOR THE 1800 SYSTEM 
(PHASE B) 



DC 



T21CI 



ADDRESS 



OEEB 
OEEC 
OEED 






1 


0002 
4000 
0E8A 


* 


DC 
DC 
DC 


OEEE 
OEEF 
OEFO 






1 


0005 
4031 
0E85 


* 
T21CJ 

. * 


DC 
DC 
DC 


0EF1 
0EF2 
0EF3 





l 


0001 
0008 
OEEE 


■ * 
* 


DC 
DC 
DC 


0EF4 
0EF5 
0EF6 





1 


0002 

OOOE 
09C0 


* 


DC 
DC 
DC 



OFOF 0006 



2 BYTE COUNT 

FLCCH*256+WRKD FLAGS AND OP CODE 
T21KD ADDRESS 



5 BYTE COUNT 

FLCCH*256+SRCID FLAGS AND OP CODE 
T21CX ADDRESS 



1 BYTE COUNT 

O*256+0PTIC FLAGS AND OP CODE 
T21CJ AD0R6SS 



2 tYTE COUNT 

0*256+K0Kr 'LAGS AND OP CODE 
RAREA ADDRESS 



0EF7 
0EF8 
0EF9 





1 


0001 
40 IF 
0E6A 


T21C5 


DC 
DC 
OC 


OEFA 
OEFB 
OEFC 





1 


0005 
4031 
0E85 


* 
T21CL 

* 


DC 
DC 
DC 


OEFD 
OEFE 
OEFF 





1 


0001 
0008 
OEFA 


* 


DC 
DC 
DC 


OF 00 
OFOl 
0F02 





1 


0001 
4005 
0E89 


■ ■ . * 
* 


DC 
DC 
DC 


OF03 
OF 04 
0F05 





1 


0005 
4031 
0E85 


# 
T21CM 


DC 
DC 
DC 


OF 06 
0F07 
OF 08 






1 


0001 
0008 
0F03 


* 
* 


DC 
DC 
DC 


OF 09 
OFOA 
OFOB 





1 


0001 
0006 
OSCO 


* 


DC 
DC 
DC 



OFOC 0001 


T21C6 DC 


OFOD 401F 


DC 


OFOE 1 066A 


OC 




* 



SET FILE MASK, WRITE/READ DATA 



1 BYTE COUNT 

FLCCH*256+SFILM FLAGS AND OP CODE 
T21FM ADDRESS 



5 BYTE COUNT 

FLCCH*256+SRCID FLAGS AND OP CODE 
T21CX ADDRESS 



1 BYTE COUNT 

O*256+0PTIC FLAGS AND OP CODE 
T21CL ADDRESS 



1 BYTE COUNT 

FLCCH*256+WRDAT FLAGS AND OP CODE 
T21WR ADDRESS 



5 BYTE COUNT 

FLCCH*256+SRCID FLAGS AND OP CODE 
T21CX ADDRESS 



1 BYTE COUNT 

0*256+0PTIC FLAGS AND OP CODE 
T21CM ADDRESS 



1 BYTE COUNT 

0*256+R0DAT FLAGS AND OP CODE 
RAREA ADDRESS 



SET FILE MASK, SEEK CYL/HD,READ HA 



1 BYTE COUNT 

FLCCH*256+SFILM FLAGS AND OP CODE 
T21FM ADDRESS 



BYTE COUNT 



DC 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



■.». . 





. . 








! ° 1 


P ! 


PART NO. 


2279472 




> 


PAGE 


16 


i © 


° ! 


81120420 




o 


O 


81120430 








81120440 




j 


O | 


81120450 




o 


81120460 




i 




81120470 




1 


o 1 


81120480 




! O 


81120490 






CN3 | 


81120500 






S3 ! 


81120510 




1 o 


81120520 






«=a- 


81120530 




' 


o ! 


81120540 




i o 


81120550 




1 




81120560 




! 


o 


81120570 




! O 


81120580 






[ 


81120590 




* 


° 


81120600 




1 o 


81120610 








81120620 




! 


o 


81120630 




i o 


81120640 




| 


' 


81120650 




i 


o | 


81120660 




! o 


81120670 




1 


I 


81120680 




1 


c ; 


81120690 




' o 


81120700 




1 




81120710 




1 


o ! 


81120720 




; 


81120730 








81120740 






o 


81120750 




i o 


81120760 








81120770 




1 


° I 


81120780 




i o 


81120790 








81120800 




j 


o 


81120810 




i o 


81120820 








81120830 






o j 


81120840 




! o 


81120850 




1 
j 




81120860 






o ! 


81120870 




; o 


81120880 




i 


i 


81120890 






o j 


81120900 




l o 


81120910 




1 


} 


81120920 






O | 


81120930 




i o 


81120940 






i 


81120950 




1 





81120960 




1 o 


81120970 




1 


1 


81120980 




1 


o i 


81120990 




, o 


81121000 




1 


! 


81121010 




! 


O 1 


81121020 




i o 


81121030 




i 


l 


81121040 






o 


81121050 




o 


81121060 




1 


1 


81121070 




1 


o 1 


81121080 




• O 


81121090 






1 
1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



0F10 4007 
OF 11 1 0E6E 



OF 12 000 5 
0F13 001A 
0F14 1 09C0 



0F28 0000 



OF 28 


1 


OEBB 


0F29 





0000 


0F2A 





4000 


0F2B 





0002 


0F2C 


1 


0EC1 


0F2D 





0005 


0F2E 





8004 


0F2F 





00C8 


OF 30 


1 


0A30 


0F31 





0005 


0F32 


1 


OEBB 


0F33 





4000 


0F34 





4000 


0F35 





0002 


0F36 


1 


oeci 


0F37 





0005 


0F38 





8004 


OF 39 





00C8 



DC 
OC 



DC 

DC 
DC 



FLCCH»256+SEEKC FLAGS AND OP CODE 
T21AH ADORESS 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
RAREA AODRESS 



0F15 





0001 


T21C7 


OC 


OF 16 





401F 




DC 


0F17 


1 


0E6A 


* 


DC 


OF 18 





0006 


* 


DC 


0F19 





401B 




DC 


0F1A 


1 


0E71 


* 


DC 


0F1B 





0005 


* 


DC 


0F1C 





001A 




DC 


OF ID 


l 


09C0 


* 
» 
* 


DC 

SE1 


OF IE 





0001 


T21C8 


DC 


0F1F 





40 IF 




DC 


0F20 


1 


0E6A 


* 

» 


DC 


0F21 





0006 




DC 


0F22 





400B 




DC 


0F23 


1 


0E6E 


* 

* 


DC 


0F24 





0005 




DC 


0F25 





001A 




OC 


0F26 


l 


09C0 




DC 



SET FILE MASK, SEEK HEAD, READ HOME ADDRS 



1 BYTE COUNT 

FLCCH*256+SFILM FLAGS AND OP CODE 
T21FM ADDRESS 



6 BYTE COUNT 

FLCCH*256+SKHD FLAGS AND OP CODE 
T21H5 ADDRESS 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
RAREA AODRESS 



SET FILE MASK, SEEK CYL.READ HA 



1 BYTE COUNT 

FLCCH*256+SFILM FLAGS AND OP CODE 
T21FM ADDRESS 



6 BYTE COUNT 

FLCCH*256+SEEKB FLAGS AND OP CODE 
T21AH ADDRESS 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
RAREA ADDRESS 



DATA TABLE FOR FILE PROTECT TEST 
BSS E 



* 








* 


ccw 


•CI' TEST WRITE HA 


T21TB 


DC 


T21C1 


CCW ADDRS 




DC 


/OOOO 


FILE MASK 




DC 


/4000 


EXPECTED- CS 




DC 


/0002 


us 




DC 


T21C1+6 


AD 




DC 


5 


BC 




DC 


/8004 


EXPECTED SENSE 




DC 


/00C8 


* BYTES 




DC 


WAREA+10 


EXPECTED DATA AREA 




DC 


5- 


NO WORDS TO COMPAR 


* 


DC 


T21C1 


CCW ADDRS 




DC 


/4000 


FILE MASK 




DC 


/4000 


EXPECTED- CS 




DC 


/0002 


US 




DC 


T21C1+6 


AD 




DC 


5 


BC 




DC 


/8004 


EXPECTED SENSE 




DC 


/00C8 


* BYTES 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 
PAGE 



81121100 

81121110 

81121120 

81121130 

81121140 

81121150 

81121160 

81121170 

81121180 

81121190 

81121200 

81121210 

81121220 

81121230 

81121240 

81121250 

81121260 

81121270 

81121280 

81121290 

81121300 

81121310 

81121320 

81121330 

81121340 

81121350 

81121360 

81121370 

81121380 

81121390 

81121400 

81121410 

81121420 

81121430 

81121440 

81121450 

81121460 

81121470 

81121480 

81121490 

81121500 

81121510 

81121520 

81121530 

81121540 

81121550 

81121560 

81121570 

81121580 

8112159C 

81121600 

81121610 

81121620 

81121630 

81121640 

81121650 

81121660 

81121670 

81121680 

81121690 

81121700 

81121710 

81121720 

81121730 

81121740 

81121750 

81121760 

81121770 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE 8) 



DATE 
EC NO, 



0F3A 


1 


0A30 


0F3B 





0005 


0F3C 


1 


OEBB 


0F3D 





8000 


0F3E 





4000 


0F3F 





0002 


0F40 


1 


0EC1 


0F41 





0005 


0F42 





8004 


0F43 





0OC8 


0F44 


1 


0A3O 


0F45 





0005 


0F46 


1 


OEBB 


0F47 





cooo 


0F48 





4000 


0F49 





oooc 


0F4A 


1 


0EC4 


0F4B 





0000 


QF4C 





oooo 


0F4D 





00C8 


0F4E 


1 


0E6B 


0F4F 





0003 


0F50 


1 


0KC4 


0F51 





0000 


OF52 





4000 


0F53 





0002 


OF 54 


1 


OEDO 


0F55 





OOOA 


0F56 





8 004 


0F57 





00C8 


0F58 


1 


0A3O 


0F59 





0005 


0F5A 


1 


0FC4 


0F5B 





4000 


0F5C 





4000 


0F5D 





0002 


0F5E 


1 


OEDO 


0F5F 





OOOA 


OF60 





8004 


0F61 





00C8 


0F62 


1 


0A30 


0F63 





0005 


0F64 


1 


0EC4 


0F65 





8 000 


0F66 





4000 


0F67 





0002 


0F68 


1 


OEDO 


0F69 





OOOA 


0F6A 





8004 


0F6B 





00C8 


0F6C 


1 


0A3O 


0F6D 





0005 


0F6E 


1 


0EC4 


0F6F 





COOO 


0F70 





4000 


0F71 





OOOC 


0F72 


1 


0ED3 


0F73 





0000 


OF 74 





0000 


0F75 





O0C8 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 2279472 
PAGE 17 



DC 


WAREA+10 


EXPECTED DATA AREA 


81121780 


DC 


5 


NO WORDS TO COMPARE 


81121790 
81121800 


DC 


T21C1 


CCW ADDRS 


81121810 


DC 


/8000 


FILE MASK 


81121820 


DC 


/4000 


EXPECTED- CS 


81121830 


DC 


/0002 


US 


81121840 


DC 


T21C1+6 


AD 


81121850 


DC 


5 


BC 


81121860 


DC 


/B004 


EXPECTED SENSE 


81121870 


DC 


/00C8 


* BYTES 


81121880 


DC 


WAREA+10 


EXPECTED DATA AREA 


81121890 


DC 


5 


NO WORDS TO COMPARE 


81121900 
81121910 


OC 


T21C1 


CCW ADDRS 


81121920 


DC 


/COOO 


FILE MASK 


81121930 


DC 


/4000 


EXPECTED- CS 


81121940 


DC 


/OOOC 


US 


81121950 


DC 


T21C1+9 


AD 


81121960 


DC 





BC 


81121970 


DC 


/OOOO 


EXPECTED SENSE 


81121980 


DC 


/OOCB 


* BYTES 


81121990 


DC 


T21HA 


EXPECTED OATA AREA 


81122000 


DC 


3 


NO WORDS TO COMPARE 


81122010 
81122020 


CCW 


•C2' TEST WRITE RECORD 


81122030 








81122040 


DC 


T21C2 


CCW ADDRS 


81122050 


DC 


/OOOO 


FILE MASK 


81122060 


DC 


/4000 


EXPECTED- CS 


81122070 


DC 


/0002 


US 


81122080 


DC 


T21C2+12 


AD 


81122090 


DC 


10 


BC 


81122100 


DC 


/8004 


EXPECTED SENSE 


81122110 


DC 


/00C8 


* BYTES 


81122120 


OC 


WAREA+10 


EXPECTED DATA AREA 


81122130 


DC 


5 


NO WORDS TO COMPARE 


81122140 
81122150 


OC 


T21C2 


CCW ADDRS 


81122160 


DC 


/4000 


FILE MASK 


81122170 


DC 


/4000 


EXPECTED- CS 


81122180 


DC 


/0002 


us 


81122190 


DC 


T21C2+12 


AD 


81122200 


DC 


10 


BC 


81122210 


DC 


/8004 


EXPECTED SENSE 


81122220 


DC 


/00C8 


* BYTES 


81122230 


DC 


WAREA+10 


EXPECTED OATA AREA 


81122240 


DC 


5 


NO WORDS TO COMPARE 


81122250 
81122260 


DC 


T21C2 


CCW ADDRS 


81122270 


DC 


/8000 


FILE MASK 


81122280 


DC 


/4000 


EXPECTED- CS 


81122290 


DC 


/0002 


us 


81122300 


DC 


T21C2+12 


AD 


81122310 


DC 


10 


BC 


81122320 


DC 


/8004 


EXPECTED SENSE 


81122330 


DC 


/00C8 


* BYTES 


81122340 


DC 


WAREA+10 


EXPECTED DATA AREA 


81122350 


DC 


5 


NO WORDS TO COMPARE 


81122360 
81122370 


DC 


T21C2 


CCW ADDRS 


81122380 


DC 


/COOO 


FILE MASK 


81122390 


DC 


/4000 


EXPECTED- CS 


81122400 


DC 


/OOOC 


us 


01122410 


DC 


T21C2+15 


AO 


81122420 


DC 





BC 


81122430 


DC 


/OOOO 


EXPECTED SENSE 


81122440 


DC 


/00C8 


* BYTES 


81122450 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 2279472 
PAGE 17A 



OF 76 1 


0E80 




DC 


T21R0 


EXPECTED DATA AREA 


81122460 


0F77 


0005 


* 


DC 


5 


NO WORDS TO COMPARE 


81122470 
81122480 






* 


CCW 


•C3' TEST WRITE COUNT, KEY, DATA 


81122490 






* 








81122500 


0F78 1 


0E03 




DC 


T21C3 


CCW ADDRS 


81122510 


0F79 


OOOO 




DC 


/OOOO 


FILE MASK 


81122520 


OF 7 A 


4000 




DC 


/4000 


EXPECTED- CS 


81122530 


0F7B 


OOOC 




DC 


/OOOC 


US 


81122540 


0F7C 1 


0EE2 




DC 


T21C3+15 


AD 


81122550 


OF 70 


OOOO 




DC 





BC 


81122560 


0F7E 


OOOO 




DC 


/OOOO 


EXPECTED SENSE 


81122570 


0F7F 


00C8 




DC 


/00C8 


* BYTES 


81122580 


0F80 1 


0E85 




DC 


T21CX 


EXPECTED DATA AREA 


81122590 


0F81 


0005 


* 


DC 


5 


NO WORDS TO COMPARE 


81122600 
81122610 


0F82 1 


0ED3 




DC 


T21C3 


CCW ADDRS 


81122620 


OF83 


4000 




DC 


/4000 


FILE MASK 


81122630 


OF 84 


4000 




DC 


/4000 


EXPECTED- CS 


81122640 


0F85 


0002 




DC 


/0002 


US 


81122650 


OF 86 1 


OEDF 




DC 


T21C3+12 


AD 


81122660 


0F87 


OOOA 




DC 


10 


BC 


81122670 


0F88 


8004 




DC 


/8004 


EXPECTED SENSE 


81122680 


0F89 


00C8 




DC 


/00C8 


* BYTES 


81122690 


0F8A 1 


0A30 




DC 


WAREA+10 


EXPECTED OATA AREA 


81122700 


0F8B 


0005 


* 


DC 


5 


NO WORDS TO COMPARE 


81122710 
81122720 


0F8C 1 


0ED3 




DC 


T21C3 


CCW ADDRS 


81122730 


0F8D 


8000 




DC 


/8000 


FILE MASK 


81122740 


0F8E 


4000 




DC 


/4000 


EXPECTED- CS 


81122750 


0F8F 


0002 




DC 


/0002 


US 


81122760 


0F90 1 


OEDF 




DC 


T21C3+12 


AD 


81122770 


0F91 


OOOA 




OC 


10 


BC 


81122780 


OF 92 


8004 




DC 


/8004 


EXPECTED SENSE 


81122790 


OF 9 3 


00C8 




DC 


/0OC8 


* BYTES 


81122800 


OF 94 1 


0A30 




DC 


WAREA+10 


EXPECTED DATA AREA 


81122810 


0F95 


0005 


* 


DC. 


5 


NO WORDS TO COMPARE 


81122820 
81122830 


OF 96 1 


0ED3 




DC 


T21C3 


CCW AODRS 


81122840 


OF97 


COOO 




DC 


/COOO 


FILE MASK 


81122850 


0F9B 


4000 




DC 


/4000 


EXPECTED- CS 


81122860 


OF 99 


OOOC 




DC 


/OOOC 


US 


81122870 


0F9A 1 


0EE2 




DC 


T21C3+15 


AD 


81122880 


0F9B 


OOOO 




OC 





BC 


81122890 


0F9C 


OOOO 




OC 


/OOOO 


EXPECTED SENSE 


81122900 


OF 90 


00C8 




DC 


/00C8 


* BYTES 


81122910 


0F9E 1 


0E85 




DC 


T21CX 


EXPECTED DATA AREA 


81122920 


0F9F 


0005 


* 


OC 


5 


NO WORDS TO COMPARE 


81122930 
81122940 






* 


ccw 


«C4< TEST WRITE KEY, DATA 


81122950 






* 








81122960 


OFAO 1 


0EE2 




DC 


T21C4 


CCW ADDRS 


81122970 


0FA1 


OOOO 




DC 


/OOOO 


FILE MASK 


81122980 


0FA2 


4000 




DC 


/4000 


EXPECTED- CS 


81122990 


0FA3 


OOOC 




DC 


/OOOC 


US 


81123000 


0FA4 1 


0EF7 




DC 


T21C4+21 


AD 


81123010 


0FA5 


OOOO 




DC 





BC 


81123020 


0FA6 


OOOO 




DC 


/OOOO 


EXPECTED SENSE 


81123030 


0FA7 


00C8 




DC 


/00C8 


* BYTES 


81123040 


0FA8 1 


0E8A 




OC 


T21KD 


EXPECTED OATA AREA 


81123050 


0FA9 


0001 


* 


DC 


1 


NO WORDS TO COMPARE 


81123060 

81123070 


OFAA 1 


0EE2 




OC 


T21C4 


CCW ADDRS 


81123080 


OFAB 


4000 




DC 


/4000 


FILE MASK 


81123090 


OFAC 


4000 




OC 


/4000 


EXPECTED- CS 


81123100 


OF AD 


0002 




DC 


/0002 


US 


81123110 


OFAE 1 


OEEE 




OC 


T21C4+12 


AD 


81123120 


OFAF 


0002 




OC 


2 


BC 


81123130 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



OFBO 





8004 


0F61 





00 C 8 


0FB2 


1 


0A30 


0FB3 





0005 


0FB4 


1 


0FE2 


0F85 





8000 


0FB6 





4000 


0FB7 





oooc 


0FB8 


1 


OfF7 


0FB9 





oooo 


OFBA 





0000 


OFBB 





O0C8 


OFBC 


1 


0h8A 


OFBD 





0001 


0FB6 


1 


0tc2 


OFBF 





COOO 


OFCO 





4000 


0FC1 





OOOC 


0FC2 


1 


oeF7 


0FC3 





oooo 


0FC4 





0000 


0FC5 





O0C8 


0FC6 


1 


0E8A 


0FC7 





0001 


0FC8 


1 


0EF7 


0FC9 





oooo 


OFCA 





4000 


OFCB 





oooc 


OFCC 


1 


OFOC 


OFCD 





OOOO 


OFCE 





OOOO 


OFCF 





0OC8 


OFDO 


1 


0E8B 


0FD1 





0001 


0FD2 


1 


0EF7 


0FD3 





4000 


0F04 





4000 


0FD5 





0002 


0FD6 


1 


0F03 


0FD7 





0001 


0FD8 





8004 


0FD9 





00C8 


OFDA 


1 


0A30 


OFDB 





0005 


OFOC 


1 


0EF7 


OFDD 





8000 


OFDE 





4000 


OFDF 





OOOC 


OFEO 


1 


OFOC 


0FE1 





OOOO 


0FE2 





OOOO 


0FE3 





O0C8 


0FE4 


1 


0E8B 


0FE5 





0001 


0FE6 


1 


0EF7 


0FE7 





COOO 


0FE8 





4000 


0FE9 





oooc 


OFEA 


1 


CF0C 


OFEB 





oooo 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 2279472 
PAGE 18 



i 



DC 


/B004 


EXPECTED SENSE 


81123140 


DC 


/00C8 


» BYTES 


81123150 


DC 


WAREA+10 


EXPECTED DATA AREA 


81123160 


DC 


5 


NO WORDS TO COMPARE 


81123170 
81123180 


DC 


T21C4 


CCW ADDRS 


81123190 


DC 


/8000 


FILE MASK 


81123200 


DC 


/4000 


EXPECTED- CS 


81123210 


DC 


/OOOC 


US 


81123220 


DC 


T21C4+21 


AD 


81123230 


DC 





BC 


81123240 


DC 


/OOOO 


EXPECTED SENSE 


81123250 


DC 


/00C8 


* BYTES 


81123260 


DC 


T21KD 


EXPECTED DATA AREA 


81123270 


DC 


1 


NO WORDS TO COMPARE 


81123280 
81123290 


DC 


T21C4 


C "W ADORS 


8 1123300 


DC 


/COOO 


. ILE MASK 


81123310 


DC 


/4000 


5XPECTE0- CS 


81123320 


DC 


/OOOC 


US 


81123330 


DC 


T21C4+21 


AD 


81123340 


DC 





BC 


31123350 


DC 


/OOOO 


EXPECTED SENSE 


81123360 


DC 


/00C8 


* BYTES 


81123370 


DC 


T21KD 


EXPECTED DATA AREA 


81123380 


DC 


1 


NO WORDS TO COMPARE 


81123390 
81123400 


CCW 


•C5' TEST WRITE DATA 


81123410 








81123420 


DC 


T21C5 


CCW ADORS 


81123430 


DC 


/OOOO 


FILE MASK 


81123440 


DC 


/4000 


EXPECTED- CS 


81123450 


DC 


/OOOC 


US 


81123460 


DC 


T21C5+21 


AD 


81123470 


DC 





BC 


81123480 


DC 


/OOOO 


EXPECTED SENSE 


81123490 


DC 


/O0C8 


« BYTES 


81123500 


DC 


T21DT 


EXPECTED DATA AREA 


81123510 


DC 


1 


NO WORDS TO COMPARE 


81123520 
81123530 


DC 


T21C5 


CCW ADDRS 


81123540 


DC 


/4000 


FILE MASK 


81123550 


DC 


/4000 


EXPECTED- CS 


81123560 


DC 


/0002 


US 


81123570 


DC 


T21C5+12 


AD 


81123580 


DC 


1 


BC 


81123590 


DC 


/8004 


EXPECTED SENSE 


81123600 


DC 


/00C8 


# BYTES 


81123610 


DC 


WAREA+10 


EXPECTED DATA AREA 


81123620 


DC 


5 


NO WORDS TO COMPARE 


81123630 
81123640 


DC 


T21C5 


CCW ADDRS 


81123650 


DC . 


/8000 


FILE MASK 


81123660 


DC 


/4000 


EXPECTED- CS 


81123670 


DC 


/OOOC 


US 


81123680 


DC 


T21C5+21 


AD 


81123690 


DC 





BC 


81123700 


DC 


/OOOO 


EXPECTED SENSE 


81123710 


DC 


/00C8 


* BYTES 


81123720 


DC 


T21DT 


EXPECTED DATA AREA 


81123730 


oc 


1 


NO WORDS TO COMPARE 


81123740 
81123750 


DC 


T21C5 


CCW AODRS 


81123760 


DC 


/COOO 


FILE MASK 


81123770 


DC 


/4000 


EXPECTED- CS 


81123780 


DC 


/OOOC 


US 


81123790 


DC 


T21C5+21 


AD 


81123800 


DC 





BC 


81123810 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



OFEC 





oooo 


OFEO 





00C8 


OFEE 


1 


0E8B 


OFEF 





0001 


OFFO 


l 


OFOC 


0FF1 





OOOO 


0FF2 





4000 


0FF3 





OOOC 


0FF4 


1 


0F15 


0FF5 





oooo 


0FF6 





oooo 


0FF7 





00C8 


0FF8 


1 


0E6R 


0FF9 





0003 


OFFA 


1 


OFOC 


OFFB 





0800 


OFFC 





4000 


OFFD 





0002 


OFFE 


1 


OF 12 


OFFF 





0006 


1000 





0004 


1001 





00C8 


1002 


1 


0A30 


1003 





0005 


1004 


1 


OFOC 


1005 





1000 


1006 





4000 


1007 





0002 


1008 


1 


0F12 


1009 





0006 


100A 





0004 


100B 





00C8 


100C 


1 


0A30 


100D 





0005 


100E 


1 


OFOC 


100F 





1800 


1010 





4000 


1011 





0002 


1012 


1 


0F12 


1013 





0006 


1014 





0004 


1015 





00C8 


1016 


1 


0A30 


1017 





0005 


1018 


1 


0F15 


1019 





OOOO 


101A 





4000 


101B 





OOOC 


101C 


1 


OF IE 


101D 





OOOO 


101E 





OOOO 


101F 





00C8 


1020 


1 


0E74 


1021 





0003 


1022 


1 


OF 15 


1023 





0800 


1024 





4000 


1025 





OOOC 


1026 


1 


0F1E 


1027 





OOOO 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 2279472 
PAGE 18A 



DC 


/OOOO 


EXPECTED SENSE 


81123820 


DC 


/00C8 


* BYTES 


81123830 


DC 


T21DT 


EXPECTED DATA AREA 


81123840 


DC 


1 


NO WORDS TO COMPARE 


81123850 

81123860 


CCW 


•C6> TEST SEEK CYL/HD 


81123870 








81123880 


DC 


T21C6 


CCW ADORS 


81123890 


DC 


/OOOO 


FILE MASK 


81123900 


DC 


/4000 


EXPECTED- CS 


81123910 


DC 


/OOOC 


US 


81123920 


DC 


T21C6+9 


AD 


81123930 


DC 





BC 


81123940 


DC 


/OOOO 


EXPECTED SENSE 


81123950 


DC 


/0OC8 


* BYTES 


81123960 


DC 


T21HA 


EXPECTED DATA AREA 


81123970 


DC 


3 


NO WORDS TO COMPARE 


81123980 
81123990 


DC 


T21C6 


CCW AODRS 


81124000 


DC 


/0800 


FILE MASK 


81124010 


DC 


/4000 


EXPECTEO- CS 


81124020 


DC 


/0002 


US 


81124030 


DC 


T21C6+6 


AD 


81124040 


DC 


6 


BC 


81124050 


DC 


/0004 


EXPECTED SENSE 


81124060 


DC 


/00C8 


* BYTES 


81124070 


DC 


WAREA+10 


EXPECTED DATA AREA 


81124080 


DC 


5 


NO WORDS TO COMPARE 


81124090 
81124100 


DC 


T21C6 


CCW ADDRS 


81124110 


DC 


/1000 


FILE MASK 


81124120 


DC 


/4000 


EXPECTED- CS 


81124130 


DC 


/0002 


US 


81124140 


DC 


T21C6+6 


AD 


81124150 


DC 


6 


BC 


81124160 


DC 


/0004 


EXPECTED SENSE 


81124170 


DC 


/00C8 


* BYTES 


81124180 


DC 


WAREA+10 


EXPECTED DATA AREA 


81124190 


DC 


5 


NO WORDS TO COMPARE 


81124200 
81124210 


DC 


T21C6 


CCW ADDRS 


81124220 


DC 


/1800 


FILE MASK 


81124230 


DC 


/4000 


EXPECTED- CS 


81124240 


DC 


/0002 


US 


81124250 


DC 


T21C6+6 


AD 


81124260 


DC 


6 


BC 


81124270 


DC 


/0004 


EXPECTED SENSE 


81124280 


DC 


/00C8 


* BYTES 


81124290 


DC 


WAREA+10 


EXPECTED DATA AREA 


81124300 


DC 


5 


NO WORDS TO COMPARE 


81124310 
81124320 


DC 


T21C7 


CCW ADDRS 


81124330 


DC 


/OOOO 


FILE MASK 


81124340 


DC 


/4000 


EXPECTED- CS 


81124350 


DC 


/OOOC 


US 


81124360 


DC 


T21C7+9 


AD 


81124370 


DC 





BC 


•" ' '■■'"•• 


DC 


/OOOO 


EXPECTFD SFNv; 


81124390 


DC 


/00C8 


» BYTES 


81124400 


DC 


T215H 


EXPECTED DATA AREA 


81124410 


DC 


3 


NO WORDS TO COMPARE 


81124420 
81124430 


DC 


T21C7 


CCW AODRS 


81124440 


DC 


/0800 


FILE MASK 


81124450 


DC 


/4000 


EXPECTED- CS 


81124460 


DC 


/OOOC 


US 


81124470 


DC 


T21C7+9 


AD 


81124480 


DC 





BC 


81124490 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



1028 





0000 


1029 





00C8 


102A 


1 


0E74 


102B 





0003 


102C 


1 


0F15 


102D 





1000 


102E 





4000 


102F 





OOOC 


1030 


1 


0F1E 


1031 





0000 


1032 





oooo 


1033 





00C8 


1034 


1 


0E74 


1035 





0003 


1036 


1 


0F15 


1037 





1800 


1038 





4000 


1039 





0002 


103A 


1 


0F18 


1038 





0006 


103C 





0004 


1030 





00C8 


103E 


1 


0A30 


103F 





0005 


1040 


1 


OF IE 


1041 





0000 


1042 





4000 


1043 





oooc 


1044 


I 


0F27 


1045 





0000 


1046 





0000 


1047 





00C8 


1048 


1 


0E6B 


1049 





0003 


104A 


1 


OF IE 


104B 





0800 


104C 





4000 


104D 





OOOC 


104E 


1 


0F27 


104F 





0000 


1050 





0000 


1051 





00C8 


1052 


1 


0E6B 


1053 





0003 


1054 


1 


0F1E 


1055 





1000 


1056 





4000 


1057 





0(H) 2 


1058 


1 


OF 24 


1059 





0006 


105A 





0004 


1056 





0OC8 


105C 


1 


0430 


1050 





0005 


105E 


1 


OF IE 


105F 





1800 


1060 





4000 


1061 





0002 


1062 


1 


0F24 


1063 





0006 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 2279472 
PAGE 19 



DC 


/OOOO 


EXPECTED SENSE 


81124500 


DC 


/00C8 


* BYTES 


81124510 


DC 


T215H 


EXPECTED DATA AREA 


81124520 


DC 


3 


NO WORDS TO COMPARE 


81124530 
81124540 


DC 


T21C7 


CCW ADORS 


81124550 


DC 


/1000 


FILE MASK 


81124560 


DC 


/4000 


EXPECTED- CS 


81124570 


DC 


/oooc 


US 


81124580 


DC 


T21C7+9 


AD 


81124590 


DC 





BC 


81124600 


DC 


/oooo 


EXPECTED SENSE 


81124610 


DC 


/0OC8 


* BYTES 


81124620 


DC 


T215H 


EXPECTED DATA AREA 


81124630 


DC 


3 


NO WORDS TO COMPARE 


81124640 
81124650 


DC 


T21C7 


CCW ADDRS 


81124660 


DC 


/1800 


t >LE MASK 


81124670 


DC 


/4000 


EiPECTED- CS 


81124680 


DC 


/0002 


US 


81124690 


DC 


T21C7+6 


AD 


81124700 


DC 


6 


BC 


81124710 


DC 


/0004 


EXPECTED SENSE 


81124720 


DC 


/00C8 


* BYTES 


81124730 


DC 


WAREA+10 


EXPECTED DATA AREA 


81124740 


DC 


5 


NO WORDS TO COMPARE 


81124750 
81124760 


CCW 


•C8' TEST SEEK CYLINDER 


81124770 








81124780 


DC 


T21C8 


CCW ADDRS 


81124790 


DC 


/OOOO 


FILE MASK 


81124800 


DC 


/4000 


EXPECTED- CS 


81124810 


DC 


/OOOC 


US 


81124820 


DC 


T21C8+9 


AD 


81124830 


DC 





BC 


81124840 


DC 


/OOOO 


EXPECTEO SENSE 


81124850 


DC 


/00C8 


* BYTES 


81124860 


DC 


T21HA 


EXPECTED DATA AREA 


81124870 


DC 


3 


NO WORDS TO COMPARE 


81124880 
81124890 


DC 


T21C8 


CCW ADDRS 


81124900 


DC 


/0800 


FILE MASK 


81124910 


DC 


/4000 


EXPECTED- CS 


81124920 


DC 


/OOOC 


US 


81124930 


DC 


T21C8+9 


AD 


81124940 


DC 





BC 


81124950 


DC 


/OOOO 


EXPECTED SENSE 


81124960 


DC 


/00C8 


* BYTES 


81124970 


DC 


T21HA 


EXPECTED DATA AREA 


81124980 


DC 


3 


NO WORDS TO COMPARE 


81124990 
81125000 


DC 


T21C8 


CCW ADDRS 


81125010 


DC 


/1000 


FILE MASK 


81125020 


DC 


/4000 


EXPECTED- CS 


81125030 


DC 


/0002 


US 


81125040 


DC 


T21C8+6 


AD 


81125050 


DC 


6 


BC 


81125060 


DC 


/0004 


EXPECTED SENSE 


81125070 


DC 


/00C8 


* BYTES 


81125080 


DC 


WAREA+10 


EXPECTEO DATA AREA 


81125090 


DC 


5 


NO WOROS TO COMPARE 


81125100 
81125110 


OC 


T21C8 


CCW ADDRS 


81125120 


DC 


/1800 


FILE MASK 


81125130 


DC 


/4000 


EXPECTED- CS 


81125140 


DC 


/0002 


US 


81125150 


DC 


T21C8+6 


AD 


81125160 


DC 


6 


BC 


81125170 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



1064 





0004 


1065 





00C8 


1066 


1 


0A30 


1067 





0005 


1068 


1 


OFOC 


1069 





OOOO 


106A 





4000 


106B 





OOOC 


106C 


1 


0F15 


106D 





OOOO 


106E 





OOOO 


106F 





O0C8 


1070 


1 


0E6B 


1071 





0003 


1072 


1 


OFOC 


1073 





0200 


1074 





4000 


1075 





OOOE 


1076 


1 


OFOF 


1077 





oooo 


1078 





8000 


1079 





00C8 


107A 


1 


0A30 


107B 





0005 


107C 


1 


OFOC 


107D 





0400 


107E 





4000 


107F 





OOOE 


1080 


1 


OFOF 


1081 





OOOO 


1082 





8000 


1083 





00C8 


1084 


1 


0A30 


1085 





0005 


1086 


1 


OFOC 


1087 





06 00 


1088 





4000 


1089 





OOOE 


108A 


1 


OFOF 


106B 





OOOO 


108C 





8000 


1080 





00C8 


108E 


1 


0A30 


108F 





0005 


1090 


1 


OFOC 


1091 





OOOO 


1092 





4000 


1093 





OOOC 


1094 


I. 


0F15 


1095 





OOOO 


1096 





OOOO 


1097 





00C8 


1098 


1 


0E6B 


1099 





0003 


109A 


1 


OFOC 


109B 





0100 


109C 





4000 


109D 





OOOE 


109E 


1 


OFOF 


109F 





OOOO 


10A0 





8000 


10A1 





00C8 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 2279472 

PAGE 19A ; © 



DC 


/0004 


EXPECTEO SENSE 


81125180 


DC 


/00C8 


* BYTES 


81125190 


DC 


WAREA+10 


EXPECTED OATA AREA 


81125200 


DC 


5 


NO WOROS TO COMPARE 


81125210 
81125220 


DC 


T21C6 


CCW ADDRS 


81125230 


DC 


/OOOO 


FILE MASK 


81125240 


DC 


/4000 


EXPECTED- CS 


81125250 


DC 


/OOOC 


US 


81125260 


DC 


T21C6+9 


AD 


81125270 


DC 





BC 


81125280 


DC 


/OOOO 


EXPECTED SENSE 


81125290 


DC 


/00C8 


* BYTES 


81125300 


DC 


T21HA 


EXPECTED DATA AREA 


81125310 


DC 


3 


NO WORDS TO COMPARE 


81125320 
81125330 


DC 


T21C6 


CCW ADDRS 


81125340 


DC 


/0200 


FILE MASK 


81125350 


DC 


/4000 


EXPECTED- CS 


81125360 


DC 


/OOOE 


US 


81125370 


DC 


T21C6+3 


AD 


81125380 


DC 





BC 


81125390 


DC 


/8000 


EXPECTED SENSE 


81125400 


DC 


/00C8 


* BYTES 


81125410 


DC 


WAREA+10 


EXPECTED DATA AREA 


81125420 


DC 


5 


NO WORDS TO COMPARE 


81125430 
81125440 


OC 


T21C6 


CCW ADDRS 


81125450 


DC 


/0400 


FILE MASK 


81125460 


DC 


/4000 


EXPECTED- CS 


81125470 


DC 


/OOOE 


US 


81125480 


DC 


T21C6+3 


AD 


81125490 


DC 





BC 


81125500 


DC 


/8000 


EXPECTEO SENSE 


81125510 


DC 


/00C8 


* BYTES 


81125520 


DC 


WAREA+10 


EXPECTED DATA AREA 


81125530 


DC 


5 


NO WORDS TO COMPARE 


81125540 
81125550 


DC 


T21C6 


CCW ADDRS 


81125560 


DC 


/0600 


FILE MASK 


81125570 


DC 


/4000 


EXPECTED- CS 


81125580 


DC 


/OOOE 


US 


81125590 


DC 


T21C6+3 


AD 


81125600 


DC 





BC 


81125610 


DC 


/8000 


EXPECTED SENSE 


81125620 


DC 


/00C8 


« BYTES 


81125630 


DC 


WAREA+10 


EXPECTEO DATA AREA 


81125640 


DC 


5 


NO WOROS TO COMPARE 


81125650 
81125660 


DC 


T21C6 


CCW ADDRS 


81125670 


DC 


/OOOO 


FILE MASK 


811256R0 


DC 


/4000 


EXPECTED- CS 


81125^on 


DC 


/OOOC 


US 


6 U<!? 700 


DC 


T21C6+9 


ad 


81125710 


DC 





BC 


81125720 


DC 


/OOOO 


EXPECTEO SENSE 


81125730 


DC 


/00C8 


« BYTES 


81125740 


DC 


T21HA 


EXPECTED DATA AREA 


81125750 


DC 


3 




81125760 
81125770 


DC 


T21C6 


CCW ADDRS 


81125780 


DC 


/0100 


FILE MASK 


81125790 


DC 


/4000 


EXPECTED- CS 


81125800 


DC 


/OOOE 


US 


81125810 


DC 


T21C6+3 


AD 


81125820 


DC 





BC 


81125830 


DC 


/8000 


EXPECTED SENSE 


81125840 


OC 


/00C8 


* BYTES 


81125850 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THF 1800 SYSTEM 
1800-2841 FUNCTION TEST IPHASE B) 



OATE 
EC NO. 



10C4 

10C4 1 7401 0815 
10C6 1 4C18 10CB 
IOCS 9297 
10C9 1 4C20 112A 

10CB C283 
10CC 100A 
10CD 1 4C10 1001 
10CF 420C 
1000 1 10F1 



1001 
1002 
1003 
1004 
10D6 
1008 
1009 
100 A 
10DB 
10DC 
1000 
100F 
10E0 
10EI 
10E2 
10E3 
10E4 
10E5 
10E6 
10E7 
1068 
10E9 
10EA 
10EB 



1711 



10EC 



42EE 
1010 

D2C0 

1 65 00 10E7 
6D00 
42F7 
1104 
42F1 
42 E 5 
10E0 
4C1B 
700A 
A480 
1118 

nic 

0000 
0000 

oooo 
oooo 

42E8 
8106 
7107 
420F 
1004 



10EC 42EB 

10E0 C2BC 

10EE 1 4C18 112A 

10F0 42DF 

10F1 0007 

10F8 0011 

1103 FFFF 



1104 0006 

1105 4007 

1106 1 1UE 



1107 0001 

1108 A01A 

1109 1 1113 



110A 0001 
HOB AOOO 
HOC 1 1115 



a************************************************** 



*************************************************** 
*************************************************** 



*************************************************** 



T3101 EOU 
MOX 
BZ 
S 
BNZ 

* 

T3102 LD 
SLA 
BNN 
BSI 
DC 

* 

T3103 BSI 

SLA 

. STO 

T3104 LDX 
STX 
BSI 
DC 
BSI 
BSI 
DC 
BZ 
MOX 

T3105 DC 
DC 
DC 
DC 
OC 
DC 
DC 

T31ER BSI 
DC 
OC 

T31TE BSI 
DC 



* TEST ENTRY POINT 

. TRI0.1 BUMP RTN ID 

T3102 BR IF TEST NUMBER ZERO 

2 Kl-TB DECREMENT BY ONE 

T3201 BR IF NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T3103 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 



TTL31 

2 GETDV-TB 

16 
2 ERRSW-TB 
LI T31ER 
LI WTADR 
2 SI0-T8 

T31CW 
2 GETSN-TB 
2 CKTV-TB 

T3105 

T31EN 

T31TE 

/A480 

T31CS 

T31SN 








2 EROUT-TB 

/8106 

/7107 
2 TLPER-TB 

T3104 



MESSAGE ADDRESS 

& :T CHANNEL FOR RTN 
CLEAR ACC 
RESET ERROR SWITCH 

SET TIMEOUT RET AODR 

CALL SIO ROUTINE 
CCW ADDRESS 

GET SENSE DATA 

CALL CHECK ROUTINE 
LIST ADORESS 
EXIT RTN IF NO ERRORS 
GO TEST LOOP ON ERROR 

FLAG-CK CHAN STATUS/ SNS 
AODR OF EXP CSW 
ADDR OF EXP SNS 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADORESS 
GO TEST LOOP ON ERR 
LOOP ADDRESS 



GO TO NEXT ROUTINE IN SEQUENCE 



T31EN BSI 
LD 
BZ 
BSI 

TTL31 PRNT 



2 FREDV-TB FREE CHANNEL 
2 TRTNN-TB GET RTN SWS 

T3201 GO TO NEXT RTN IN SEQ 
2 CNTRL-TB GO TO CONTROL RTN 

. SECT 3.RT 1- • 



PRNT .TEST OVERRUN SENSE BIT. 

DC -1 

*************************************************** 

* 

T31CW OC 6 BYTE COUNT 

DC /40*256+SEEKC FLAGS AND OP CODE 

OC GOTRK ADDRESS 



DC 
DC 
DC 



OC 

DC 
DC 



1 BYTE COUNT 

/A0*256+RDHA FLAGS AND OP CODE 
T31A1 ADDRESS 



1 BYTE COUNT 

/A0*256+0 FLAGS AND OP CODE 
T31A2 ADORESS 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 
PAGE 



81126540 

81126550 

81126560 

81126570 

81126580 

81126590 

81126600 

81126610 

81126620 

81126630 

81126640 

81126650 

81126660 

81126670 

81126680 

81126690 

81126700 

81126710 

81126720 

81126730 

81126740 

81126750 

81126760 

81126770 

81126780 

81126790 

81126800 

81126810 

81126820 

81126830 

81126840 

81126850 

81126860 

81126870 

81126880 

81126890 

81126900 

81126910 

81126920 

81126930 

81126940 

81126950 

81126960 

81126970 

81126980 

81126990 

81127000 

81127010 

81127020 

81127030 

81127040 

81127050 

81127060 

81127070 

81127080 

81127090 

81127100 

81127110 

81127120 

81127130 

81127140 

81127150 

81127160 

81127170 

81127180 

81127190 

81127200 

81127210 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 

DC 

DC 
* 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
* 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



OATE 
EC NO. 



10A2 


1 


OA30 


10A3 





0005 


10A4 


1 


OFOC 


10A5 





2000 


10A6 





4000 


10A7 





OOOE 


10A8 


1 


OFOF 


10A9 





oooo 


10AA 





8000 


10AB 





OOCB 


10AC 


i 


0A30 


10AD 





0005 


10AE 


1 


OFOC 


10AF 





2100 


10B0 





4000 


10B1 





OOOE 


10B2 


1 


OFOF 


10B3 





OOOO 


10B4 





8000 


10B5 





OOCB 


10 B6 


1 


0A30 


10B7 





0005 


10B8 


1 


10B8 



WAREA+10 


EXPECTED DATA AREA 


5 


NO WORDS TO COMPARE 


T21C6 


CCW ADDRS 


/2000 


FILE MASK 


/4000 


EXPECTED- CS 


/OOOE 


US 


T21C6+3 


AD 





BC 


/8000 


EXPECTED SENSE 


/00C8 


* BYTES 


WAREA+10 


EXPECTED DATA AREA 


5 


NO WORDS TO COMPARE 


T21C6 


CCW ADORS 


/2100 


FILE MASK 


/4000 


EXPECTED- CS 


/OOOE 


US 


T21C6+3 


AD 





BC 


/8000 


EXPECTED SENSE 


/00C8 


* BYTES 


WAREA+10 


EXPECTED DATA AREA 


c 


NO WORDS TO COMPARE 



10B9 42DF 



10BA 0003 
10BB 0008 



DC *-l ENO 0* TABLE 

* 
*************************************************** 

* * 
*************************************************** 
* 

* SECTION END 
* 

T2201 BSI 2 CNTRL-TB GO TO CONTROL RTN 
*************************************************** 

* * 
*************************************************** 



SECTION PREFACE 



10BC 
10BD 
10BF 
10C0 
10C2 
10C3 



C28C 

1 4C18 10C4 

90FB 

1 4C30 OB25 
80F8 

7000 



T30PR DC 
DC 

* 

T30NT LD 
BZ 
S 

BP 
A 
MDX 



/0003 
8 



SECTION NUMBER 



2 TRTNN-TB SW FNC 1 BITS 12-15 
T3101 BR IF RUN ALL RTNS 
T30PR+1 TEST FOR VALID 
TCNER BR IF INVALID RTN NUMBER 
T30PR+1 RESTORE RTN NUMBER 
T3101 GO TO FIRST RTN 
*************************************************** 
* * 

*************************************************** 



*************************************************** 
* 

* ROUTINE — 1— CHECK SETTING OF OVERRUN SNS BIT 
* 

*************************************************** 
* 

* 

* THIS ROUTINE FORCES THE OVERRUN SENSE BIT 

* TO BE SET BY ATTEMPTING TO READ HOME 

* AODRESS UTILIZING FOUR DATA CHAINS* RE- 

* QUESTING 1 BYTE EACH. 
* 

* 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 2279472 




PAGE 20 


• 


81125860 





81125870 




81125880 




81125890 


o 


81125900 




81125910 




81125920 


© 


81125930 




81125940 




81125950 





81125960 




81125970 




81125980 


o 


81125990 




81126000 




81126010 


o 


81126020 




81126030 




81126040 


© 


81126050 




81126060 




81126070 


o 


81126080 




81126090 




81126100 


o 


81126110 




81126120 




81126130 


o 


81126140 




61126150 




81126160 


o 


81126170 




81126180 




81126190 


o 


81126200 




81126210 




81126220 


o 


81126230 




81126240 




81126250 


o 


81126260 




81126270 




81126280 


o 


81126290 


! w 


81126300 




81126310 


i ° 


81126320 


1 


81126330 


i 


81126340 


! © 


81126350 




81126360 


i 


81126370 


1 © 


81126380 




81126390 


1' 


81126400 


1 © 


81126410 




81126420 


j 


81126430 


i © 


81126440 




81126450 




81126460 


\ © 


81126470 


1 


81126480 




81126490 


1 © 


81126500 


1 


81126510 




81126520 


I o 


81126530 






j ° 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TcST (PHASE 8) 



DATE 
EC NO. 



1100 





0001 


110E 





AOOO 


110F 


1 


1115 


1110 





0001 


1111 





2000 


1112 


1 


1115 


1113 





0000 


1114 





0090 


1115 





0000 


1116 





0000 


1117 





0000 


1118 





4000 


1119 





OOOE 


111A 


1 


1113 


111B 





0002 


U1C 





0400 


1110 





00C8 


111E 





0000 


111F 





00C6 


1120 





0000 


1121 





oooo 


1122 





C600 


1123 





0000 


1124 





00 C6 


1125 





0000 


1126 





0000 


1127 





0002 


1128 





FFFF 


1129 





cooo 



DC 
DC 
DC 



DC 
DC 
DC 



1 BYTE COUNT 

/A0»256+0 FLAGS AND OP C00E 
T31A2 ADDRESS 



1 BYTE COUNT 

/20*256+0 FLAGS AND OP CODE 



T31A2 



ADDRESS 



T31A1 DC 

DC 

T31A2 DC 

DC 

DC 
* 

T31CS DC /4000 

DC /OOOE 

DC T31CW+15 

DC /0002 

T31SN DC /0400 

DC /00C8 

*****»***»****«.*» ***«#****»»*»*»«4* **************** 



READ AREAS 



E> ^ECTEO CSW 



fcXPECTED SNS 



GOTRK DC 
DC 
OC 

CRTRK DC 
DC 
DC 

WRRZ OC 
OC 
DC 
OC 
DC 

SETPR DC 





/00C6 





/C600 



/00C6 





/0002 

/FFFF 

/COOO 



FILE TEST TRACK 

CYL 198 

HD 

TO CORRECT TEST TRACK 



RECORD TO WRT 



*******************************#*#***************** 



ROUTINE 



-2 — CHECK SETTING OF THE TRACK 

CONDITION CHECK SENSE BIT 



*************************************************** 



THIS ROUTINE FORCES THE TRACK CONDITION 
CHECK SENSE BIT TO BE SET. THIS IS AC- 
COMPLISHED BY SEARCHING 10 ON A FLAGGED 
TRACK. 



*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 

TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 



112A 




T3201 


EOU 


* 


112A 1 7401 


0815 




MOX 


L TRID.l 


112C 1 4C18 


1131 




BZ 


T3202 


112E 9297 






S 


2 Kl-TB 


112F 1 4C20 


U9F 


* 


BNZ 


T3301 


1131 C283 




T3202 


LD 


2 TSWO-TB 


1132 100A 






SLA 


OTTLE 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 
PAGE 



81127220 
81127230 
81127240 
81127250 
81127260 
81127270 
81127280 
81127290 
81127300 
81127310 
81127320 
81127330 
81127340 
81127350 
81127360 
81127370 
81127380 
81127390 
81127400 
81127410 
81127420 
81127430 
81127440 
81127450 
81127460 
81127470 
81127480 
81127490 
81127500 
81127510 
81127520 
81127530 
81127540 
81127550 
81127560 
81127570 
81127580 
81127590 
81127600 
81127610 
81127620 
81127630 
81127640 
81127650 
81127660 
81127670 
81127680 
81127690 
81127700 
81127710 
81127720 
81127730 
81127740 
81127750 
81127760 
81127770 
81127780 
81127790 
81127800 
81127810 
81127820 
81127830 
81127840 
81127850 
81127860 
81127870 
81127880 
81127890 



PROG ID 
PAGE 



2279472 
21 



0811-0 
21 ' 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



14N0V69 
431319 



30JAN7O 
431319A 



PART NO, 2379472 
PAGE 21A 



1133 1 


4C10 1137 




BNN 




T3203 


BR IF NOT SET 


81127900 


1135 


420C 




BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


81127910 


1136 1 


115B 


* 


DC 




TTL32 


MESSAGE ADDRESS 


81127920 
81127930 


1137 


42EE 


T3203 


BSI 


2 


GETOV-TB 


GET CHANNEL FOR RTN 


81127940 


1138 


1010 




SLA 




16 


CLEAR ACC 


81127950 


1139 


D2C0 




STO 


2 


ERRSW-TB 


RESET ERROR SWITCH 


81127960 


113A 1 


6500 114F 


T3204 


LOX 


LI 


T32ER 


SET TIMEOUT RET ADOR 


81127970 


113C 1 


6D00 1711 




STX 


LI 


WTAOR 




81127980 


113E 


42F7 




BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


81127990 


113F 1 


1173 




DC 




T32CH 


CCW AOORESS 


81128000 


1140 


42F7 




BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


81128010 


1141 1 


U7F 




DC 




T32C2 


CCW ADDRESS 


81128020 


1142 


42F1 




RSI 


2 


GETSN-TB 


GET SENSE DATA 


81128030 


1143 


42E5 




BSI 


2 


CKTV-TB 


CALL CHECK ROUTINE 


81128040 


1144 1 


1148 




DC 




T3205 


LIST ADDRESS 


81128050 


1145 1 


4C18 1154 




BZ 




T32EX 


NO ERRORS GO REWRT HA 


81128060 


1147 


7 00 A 




MOX 




T32TE 


GO TEST LOOP ON ERROR 


81128070 


1148 


AE80 


T3205 


DC 




/AE80 


FLAG 


81128080 


1149 1 


1199 




DC 




T32CS 


ADOR OF EXP CSW 


81128090 


114A 1 


1190 




DC 




T32SN 


ADDR OF EXP SNS 


81128100 


114B 


0000 




DC 









81128110 


114C 


0000 




DC 









81128120 


1140 


0000 




DC 









81128130 


114E 


0000 




DC 









81128140 


114F 


42E8 


T32ER 


BSI 


2 


EROUT-TB 


CALL ERROR OUT ROUTINE 


81128150 


1150 


8106 




DC 




/8106 


FLAG BITS 


81128160 


1151 


7207 




DC 




/7207 


MSG NO OR ADDRESS 


81128170 


1152 


420F 


T32TE 


BSI 


2 


TLPER-T8 


TST LOOP ON ERR 


81128180 


1153 1 


11 3A 




DC 




T3204 


LOOP ADDRESS 


81128190 


1154 


42F7 


T32EX 


BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


81128200 


1155 1 


1188 


* 


DC 




T32WH 


CCW ADDRESS 


81128210 
81128220 






* 


GO TO 


NEXT ROUTINE IN SEQUENCE 


81128230 






* 










81128240 


1156 


42EB 


T32EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81128250 


1157 


C2BC 




LD 


2 


TRTNN-TB 


GET RTN SWS 


81128260 


1158 1 


4C18 119F 




BZ 




T3301 


GO TO NEXT RTN IN SEO 


81128270 


115A 


420F 




BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81128280 


115B 


0007 


TTL32 

* 


PR NT 




. SECT 3, 


RT 2- . 


81128290 
81128300 


1162 


0016 




PR NT 




•TEST TRACK CONO CHECK SENSE BIT. 


81128310 


1172 


FFFF 


* 


DC 




-1 




81128320 
81128330 


1173 


0006 


T32CW 


OC 




6 


BYTE COUNT 


81128340 


1174 


4007 




DC 




/40*256+SEEKC FLAGS AND OP CODE 


81128350 


1175 1 


HIE 


* 
* 


DC 




GDTRK 


AOORESS 


81128360 
81128370 
81128380 


1176 


0001 




OC 




1 


BYTE COUNT 


81128390 


1177 


401F 




DC 




/40*256+SFILM FLAGS AND OP CODE 


81128400 


1178 1 


l',29 


* 

* 


DC 




SETPR 


AOORESS 


81128410 
81128420 
81128430 


1179 


0005 




DC 




5 


BYTE COUNT 


81128440 


117A 


4019 




DC 




/40*256+WRHA FLAGS AND OP CODE 


81128450 


117B 1 


1191 


* 
* 


DC 




T32HA 


ADDRESS 


81128460 
81128470 
81128480 


117C 


OOOA 




DC 




10 


BYTE COUNT 


81128490 


U7D 


0015 




OC 




0*256+WRR0 FLAGS ANO OP CODE 


81128500 


117E 1 


1124 


* 
* 


OC 




WRRZ 


ADDRESS 


81128510 
81128520 
81128530 


117F 


0005 


T32C2 


DC 




5 


BYTE COUNT 


81128540 


1180 


4031 




DC 




/40*256+SRCI0 FLAGS AND OP CODE 


81128550 


1181 1 


1194 


* 


DC 




T32R1 


ADDRESS 


81128560 
81128570 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEM 



1800-2841 FUNCTION TEST (PHASE B) 



1182 0001 DC 

1183 0008 DC 

1184 1 117F DC 



1185 0001 DC 

1186 2003 DC 

1187 1 1188 DC 



DATE 
EC NO. 



1188 0001 

1189 401F 
118A 1 1129 



118B 0006 
118C 4007 
118D 1 111E 



118E 0005 
118F 0019 
1190 1 1121 



1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
119A 
119B 
119C 
119D 
119E 



0200 
C600 
0000 
O0C6 
0000 
0101 
0001 
CCCC 
4000 
OOOE 
1182 
0005 
0200 
00C8 



T32HH DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 

* 

T32HA DC 
DC 
DC 

T32R1 DC 
DC 
OC 
DC 
DC 

T32CS DC 
OC 
DC 
DC 

T32SN DC 
DC 



1 BYTE COUNT 

0*256+0PTIC FLAGS AND OP COOE 
T32C2 ADDRESS 



1 BYTE COUNT 

/20*256+0PN0P FLAGS AND OP CODE 
* ADDRESS 



1 BYTE COUNT 

/40*256+SFILM FLAGS AND OP CODE 
SETPR ADDRESS 



6 BYTE COUNT 

/40*256+S£E C FLAGS AND OP COOE 
GDTRK ADDRESS 



5 BYTE COUNT 

0*256+WRHA FLAGS AND OP CODE 
CRTRK ADDRESS 



/0200 

/C600 



/00C6 



/0101 

/0001 

/CCCC 

/4000 

/OOOE 

T32C2+3 

5 

/0200 

/00C8 



HA TO WRT FLAGGING TRK 



HD 
Rl 





TO WRT 



EXPECTED CSW 
DEV ADDR/STATUS 
CCW AODR 
BYTE COUNT 
EXPECTED SNS 



*************************************************** 

* ROUTINE —3— CHECK SETTING OF THE TRACK 

# CONDITION CHECK SENSE BIT 

a************************************************** 



* 

* 



THIS ROUTINE FORCES THE TRACK CONDITION 
SENSE BIT TO BE SET. THIS IS AC- 
COMPLISHED BY COMMAND CHAINING (WITH M/T 
BIT ON) FROM AN ALTERNATE TRACK. 



*.*******ii^*»**** ******************** ************** 

* * 
*************************************************** 
*»»*♦***»»*****#*#********************************* 

* * 
***«,*****»***************************************** 

TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 



119F 




T3301 


EOU 


* 


119F 1 7401 


0815 




MOX 


L TRIOtl 


11A1 1 4C18 


11A6 




BZ 


T3302 


11A3 9297 






S 


2 Kl-TB 


11A4 1 4C20 


1215 


* 
T3302 


BNZ 


T3401 


11A6 C283 




LD 


2 TSWO-TB 


11A7 100A 






SLA 


OTTLE 


11A8 1 4C10 


11AC 




BNN 


T3303 



PART NO. 
PAGE 



81128580 

81128590 

81128600 

81128610 

81128620 

81128630 

81128640 

81128650 

81128660 

81128670 

81128680 

81128690 

81128700 

81128710 

81128720 

81128730 

81128740 

81128750 

81128760 

81128770 

81128780 

81128790 

81128800 

81128810 

81128820 

81128830 

81128840 

81128850 

81128860 

81128870 

81128880 

81128890 

81128900 

81128910 

81128920 

81128930 

81128940 

81128950 

81128960 

81128970 

81128980 

81128990 

81129000 

81129010 

81129020 

81129030 

81129040 

81129050 

81129060 

81129070 

81129080 

81129090 

81129100 

81129110 

81129120 

81129130 

81129140 

81129150 

81129160 

81129170 

81129180 

81129190 

81129200 

81129210 

81129220 

81129230 

81129240 

81129250 



2279472 
22 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B> 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 2279472 
PAGE 22A 



11AA 420C 




BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


81129260 


11AB 1 11D0 


* 


DC 




TTL33 


MESSAGE ADDRESS 


81129270 
81129280 


11AC 42EE 


T3303 


BSI 


2 


GETDV-TB 


GET CHANNEL FOR RTN 


81129290 


HAD 1010 
HAE D2C0 




SLA 




16 


CLEAR ACC 


81129300 




STO 


2 


ERRSW-TB 


RESET ERROR SWITCH 


81129310 


11AF 1 6500 11C4 


T3304 


LDX 


LI 


T33ER 


SET T/0 RET ADDR 


81129320 


11B1 1 6D00 1711 




STX 


LI 


WTAOR 




81129330 


1163 42F7 




BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


81129340 


11B4 1 11E8 




DC 




T33CW 


CCW ADDRESS 


81129350 


11B5 42F7 




BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


81129360 


11B6 1 11F4 




OC 




T33TT 


CCW ADDRESS 


81129370 


11B7 42F1 




BSI 


2 


GETSN-TB 


GET SENSE DATA 


81129380 


11B8 42E5 




BSI 


2 


CKTV-TB 


CALL CHECK ROUTINE 


81129390 


11B9 1 11BD 




DC 




T3305 


LIST ADDRESS 


81129400 


11BA 1 4C18 11C9 




BZ 




T33EX 


BR IF NO ERRS 


81129410 


11BC 700A 




MDX 




T33TE 


GO TEST LOOP ON ERROR 


81129420 


11BD AF80 


T3305 


OC 




/AF80 


FLAG 


81129430 


11BE 1 120F 




OC 




T33CS 


ADDR OF EXP CSW 


81129440 


11BF 1 1213 
11C0 0000 




DC 
DC 




T33SN 



ADDR OF EXP SNS 


81129450 
81129460 


11C1 0000 
11C2 0000 




DC 
DC 








• 


81129470 
81129480 


11C3 0000 




DC 









81129490 


11C4 42E8 


T33ER 


BSI 


2 


EROUT-TB 


CALL ERROR OUT ROUTINE 


81129500 


11C5 8106 




DC 




/8106 


FLAG BITS 


81129510 


11C6 7307 




DC 




/7307 


MSG NO OR ADDRESS 


81129520 


11C7 420F 


T33TE 


BSI 


2 


TLPER-TB 


TST LOOP ON ERR 


81129530 


11C8 1 11AF 




DC 




T3304 


LOOP ADDRESS 


81129540 


11C9 42F7 


T33EX 


BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


81129550 


11CA 1 1200 


* 


DC 




T33WH 


CCW ADDRESS 


81129560 
81129570 




* 


GO TO NEXT ROUTINE IN SEQUENCE 


81129580 




* 










81129590 


11CB 42EB 


T33EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81129600 


11CC C2BC 




LD 


2 


TRTNN-TB 


GET RTN SWS 


81129610 


11CD 1 4C18 1215 




BZ 




T3401 


GO TO NEXT RTN IN SEQ 


81129620 


11CF 42DF 




BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81129630 


11D0 0007 


TTL33 

* 


PRNT 




. SECT 3 


,RT 3- . 


81129640 
81129650 


1107 0016 
11E7 FFFF 




PRNT 
DC 




.TEST TRACK CONO CHECK SENSE BIT. 
-1 


81129660 
81129670 




* 










81129680 




* 










81129690 


11E8 0006 


T33CW 


OC 




6 


BYTE COUNT 


81129700 


11E9 4007 




DC 




/40*256+SEEKC FLAGS AND OP CODE 


81129710 


11EA 1 HIE 


* 
* 


DC 




GDTRK 


ADDRESS 


81129720 
81129730 
81129740 


11EB 0001 




DC 




1 


BYTE COUNT 


81129750 


11EC 401F 




DC 




/40*256+ 


5FILM FLAGS ANO OP CODE 


81129760 


11E0 i 1129 


» 
* 


OC 




SETPR 


ADDRESS 


81129770 
81129780 
81129790 


11EE 0005 




DC 




5 


BYTE COUNT 


81129800 


11EF 4019 




DC 




/40*256+WRHA FLAGS ANO OP COOE 


81129810 


11F0 1 1209 


* 
* 


DC 




T33HA 


ADDRESS 


81129820 
81129830 
81129840 


11F1 OOOA 




DC 




10 


BYTE COUNT 


81129850 


11F2 0015 




DC 




0*256+WRR0 FLAGS ANO OP CODE 


81129860 


11F3 1 112* 


* 
* 


DC 




WRRZ 


ADDRESS 


81129870 
81129880 
81129890 


11F4 0006 


T33TT DC 




6 


BYTE COUNT 


81129900 


11F5 4007 




OC 




/40*256+SEEKC FLAGS ANO OP CODE 


81129910 


11F6 1 HIE 


* 


DC 




GDTRK 


ADDRESS 


81129920 
81129930 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE X800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



OAT6 
EC NO. 



11F7 





0005 


11F8 





401A 


11F9 


1 


120C 


UFA 





0005 


11FB 





409A 


11FC 


1 


120C 


11FO 





0001 


11FE 





2003 


11FF 


1 


1200 


1200 





0001 


1201 





40 IF 


1202 


1 


1129 


1203 





0006 


1204 





4007 


1205 


1 


HIE 


1206 





0005 


1207 





0CI9 


1208 


1 


1121 


1209 





0100 


120A 





C600 


120B 





oooo 


120C 




0003 


120F 





4000 


1210 





OOOE 


1211 


1 


11F0 


1212 





0005 


1213 





0200 


1214 





00C8 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



T33WH OC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 

» 

T33HA DC 
DC 
DC 

T33RA BSS 

T33CS DC 
DC 
DC 
DC 

T33SN DC 
DC 



5 BYTE COUNT 

/40*256+RDHA FLAGS AND OP CODE 
T33RA ADDRESS 



5 BYTE COUNT 

/40*256+RDHMT FLAGS AND OP COOE 
T33RA ADDRESS 



1 BYTE COUNT 

/20*256+OPNOP FLAGS AND OP COOE 
* ADDRESS 



1 BYTE COUNT 

/40»256+SFILM FLAGS AND OP CODE 
SETPR ADDRESS 



6 iYTE COUNT 

/40*256+SEfcKC FLAGS AND OP CODE 
GDTRK ADDRESS 



5 BYTE COUNT 

0*256+WRHA FLAGS AND OP CODE 
CRTRK ADDRESS 

/0100 

/C600 



3 

/4000 

/OOOE 

T33TT+9 

/0005 

/0200 EXP SNS 

/00C8 



WR HA 1 

HO 

REAO AREA 
EXPECTED CSW 



*************************************************** 
* 

* ROUTINE —4 — CHECK SETTING OF THE SEEK 

* CHECK SENSE BIT 
* 
*************************************************** 



THIS ROUTINE FORCES THE SEEK CHECK SENSE 
BIT TO BE SET. THIS IS ACCOMPLISHED BY 
ATTEMPTING A SEEK OUTSIDE THE HEAD BOUND- 
ARY. 



**,M********* ************** ************************ 

* * 
*************************************************** 
*************************************************** 

* * 
♦♦♦•♦a********************************************* 

TEST ENTRY POINT 

BUMP RTN 10 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 



1215 




T3401 


EOU 


* 


1215 1 7401 


0815 




MDX 


L TRIDtl 


1217 1 4C18 


121C 




BZ 


T3402 


1219 9297 






S 


2 Kl-TB 


121A 1 4C20 


1268 


* 


BNZ 


T3501 
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81129940 

81129950 

81129960 

81129970 

81129980 

81129990 

81130000 

81130010 

81130020 

81130030 

81130040 

81130050 

81130060 

81130070 

81130080 

81130090 

81130100 

81130110 

81130120 

81130130 

81130140 

81130150 

81130160 

81130170 

81130180 

81130190 

81130200 

81130210 

81130220 

81130230 

81130240 

81130250 

81130260 

81130270 

81130280 

81130290 

81130300 

81130310 

81130320 

81130330 

81130340 

81130350 

81130360 

81130370 

81130380 

81130390 

81130400 

81130410 

81130420 

81130430 

81130440 

81130450 

81130460 

81130470 

81130480 

81130490 

81130500 

81130510 

81130520 

81130530 

81130540 

81130550 

81130560 

81130570 

81130580 

81130590 

81130600 

81130610 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



121C C283 

121D 100A 

121E 1 4C10 1222 

1220 420C 

1221 1 1244 



1222 

1223 

1224 

1225 1 
1227 1 
1229 
122A 1 
122B 
122C 



122D 1 
122E 1 

1230 

1231 

1232 1 

1233 1 

1234 

1235 

1236 

1237 

1238 

1239 
123A 
123B 
123C 1 
123D 
123E 1 



42EE 

1010 

D2C0 

6500 1238 

6D00 1711 

42F7 

1259 

42F1 

42E5 

1231 

4C18 123F 

700A 

AF80 

1262 

1266 

0000 

0000 

0000 

0000 

42E8 

8106 

7407 

420F 

1225 

42F7 

1259 



123F 42EB 

1240 C2BC 

1241 1 4C18 1268 

1243 42DF 

1244 0007 

124B 0013 

1258 FFFF 

1259 0006 
125A 0007 
125B 1 125F 



125C 0001 
125D 1 289D 
125E 1 125F 



125F 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 



0000 
0000 
OOFF 
4000 
OOOE 
125C 
0000 
8100 
00C8 



T3402 



T3403 
T3404 



T3405 



T34ER 



T34TE 



LD 

SLA 

BNN 

BSI 

OC 

BSI 

SLA 

STO 

LDX 

STX 

BSI 

DC 

BSI 

BSI 

DC 

BZ 

MDX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

BSI 

DC 

DC 

BSI 

DC 

BSI 

DC 



2 TSHO-TB GET OPTION SWS 
OTTLE PRINT TITLES 
T3403 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 
TTL34 MESSAGE ADDRESS 



2 GETDV-TB 

16 
2 ERRSW-TB 
LI T34ER 
LI WTADR 
2 SIO-TB 

T34CW 
2 GETSN-TB 
2 CKTV-TB 

T3405 

T34EN 

T34TE 

/AF80 

T34CS 

T34SN 








2 EROUT-TB 

/8106 

/7407 
2 TLPER-TB 

T3404 
2 SIO-TB 

T34CW 



GET CHANNEL FOR RTN 
CLEAR ACC 

RESET ERROR SWITCH 
SET T/0 RET ADDR 

CALL SIO ROUTINE 

CCW AODRESS 
GET SENSE DATA 
CALL CHECK ROUTINE 
LIST ADDRESS 
EXIT IF NO ERRS 
GO TEST LOOP ON ERROR 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADDRESS 
TST LOOP ON ERR 

LOOP ADDRESS 
CALL SIO ROUTINE 
CCW ADDRESS 



GO TO NEXT ROUTINE IN SEQUENCE 



* 
T34EN 



TTL34 

* 



* 
T34CW 



BSI 2 FREDV-TB FREE CHANNEL 

LD 2 TRTNN-TB GET RTN SWS 

BZ T3501 GO TO NEXT RTN IN SEQ 

BSI 2 CNTRL-TB GO TO CONTROL RTN 

PRNT . SECT 3tRT 4- . 

PRNT .TEST SEEK CHECK SENSE BIT. 
DC -1 

DC 6 BYTE COUNT 

DC 0*256+SEEKC FLAGS AND OP CODE 

DC T34BO ADDRESS 



DC 1 BYTE COUNT 

DC /20*256+RECAL FLAGS ANO OP CODE 

DC * ADDRESS 



* 
T34BD 



T34CS 



T34SN 



DC 

DC 

DC /OOFF 

DC /4000 

DC /OOOE 

DC T34CW+3 

DC 

OC /8100 

DC /00C8 



EXPECTED CSW 



EXP SNS 



*#»♦********************************************** 
* 

* ROUTINE —5-- CHECK SETTING OF THE SEEK 

* CHECK SENSE BIT 



PART NO, 
PAGE 



81130620 
81130630 
81130640 
81130650 
81130660 
81130670 
81130680 
81130690 
81130700 
81130710 
81130720 
81130730 
81130740 
81130750 
81130760 
81130770 
81130780 
81130790 
81130800 
81130810 
81130820 
81130830 
81130840 
81130850 
81130860 
81130870 
81130880 
81130890 
81130900 
81130910 
81130920 
81130930 
81130940 
81130950 
81130960 
81130970 
81130980 
81130990 
81131000 
81131010 
81131020 
81131030 
81131040 
81131050 
81131060 
81131070 
81131080 
81131090 
81131100 
81131110 
81131120 
81131130 
81131140 
81131150 
81131160 
81131170 
81131180 
81131190 
81131200 
81131210 
81131220 
81131230 
81131240 
81131250 
* 81131260 
81131270 
81131280 
81131290 



2279472 
23A 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR YhE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



*************************************************** 

# 

* 

* THIS ROUTINE FORCES THE SEEK CHECK SENSE 

* BIT TO BE SET. THIS IS ACCOMPLISHED BY 

* ATTEMPTING A SEEK WITH LESS THAN 6 BYTES 

* OF SEEK ARGUMENT SPECIFIED. 
* 

* 
*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 



1268 

1268 1 7401 0815 

126A 1 4C18 126F 

126C 9297 

126D 1 4C20 12B3 

126F C283 

1270 100A 

1271 I 4C10 1275 

1273 420C 

1274 1 1295 



T3501 EOU 
MDX 

BZ 

s 

BNZ 
* 

T3502 LD 
SLA 

BNN 
BS1 
OC 



* TEST ENTRY POINT 

. TRID.l BUMP RTN ID 

T3502 "R IF TEST NUMBER ZERO 

2 Kl-TB i ECREMENT BY ONE 

T3601 8R IF NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T3503 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 

TTL35 MESSAGE ADDRESS 



1275 
1276 
1277 
1278 
127A 
127C 
127D 
127E 
127F 
1280 
1281 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
128A 
128B 
128C 
128D 
128E 
128F 



42EE 
1010 
D2C0 
6500 128B 



6D00 1711 
42F7 









1 

1 



1 12AA 
42F1 
42E5 
1284 
4C18 
700A 
AF80 
12AD 
12B1 
0000 
0000 

oooo 
oooo 

42E8 
8106 
75 07 
420F 
1278 



1290 



T3503 BSI 2 GETDV-TB 

SLA 16 

STO 2 ERRSH-TB 

T3504 LDX LI T35ER 

STX LI WTAOR 

BSI 2 SIO-TB 

OC T35CW 

BSI 2 GETSN-TB 

BSI 2 CKTV-TB 

DC T3505 

BZ T35EN 

MDX T35TE 

T3505 DC /AF80 

OC T35CS 

DC T35SN 

DC 

DC 

DC 

DC 

T35ER BSI 2 EROUT-TB 

DC /8106 

DC /7507 

T35TE BSI 2 TLPER-TB 

DC T3504 

* 

* GO TO NEXT ROUTINE 



GET CHANNEL FOR RTN 
CLEAR ACC 

RESET ERROR SWITCH 
SET T/0 ERR ADDR 

CALL SIO ROUTINE 

CCW ADDRESS 
GET SENSE DATA 
CALL CHECK ROUTINE 
LIST ADDRESS 
EXIT IF NO ERRS 
GO TEST LOOP ON ERROR 

AODR OF EXP CSW 
ADDR OF EXP SNS 



CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADDRESS 
TST LOOP ON ERR 
LOOP ADDRESS 

IN SEQUENCE 



1290 42EB 

1291 CZBC 

1292 1 4C18 1283 

1294 42DF 

1295 0007 

129C 0013 
12A9 FFFF 

12AA 0004 
12AB 2007 
12AC 1 HIE 



T35EN BSI 
LD 



TTL35 

* 



BZ 
BSI 

PRNT 

PR NT 
DC 



! © 




12AD 4000 


! o 






\ 


DATE 
EC NO. 


14N0V69 30JAN70 
431319 431319A 



T35CW DC 
DC 
DC 

* 

T35CS DC 



FREDV-TB FREE CHANNEL 

TRTNN-TB GET RTN SWS 

T3601 GO TO NEXT RTN IN SEO 

CNTRL-TB GO TO CONTROL RTN 

. SECT 3.RT 5- . 

•TEST SEEK CHECK SENSE BIT. 
-1 

4 BYTE COUNT 

/20*256+SEEKC FLAGS AND OP CODE 
GDTRK ADDRESS 



/4000 



EXPECTED CSW 
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81131300 

81131310 

81131320 

81131330 

81131340 

81131350 

81131360 

81131370 

811313RO 

81131390 

81131400 

81131410 

81131420 

81131430 

81131440 

81131450 

81131460 

81131470 

81131480 

81131490 

81131500 

81131510 

81131520 

81131530 

81131540 

81131550 

81131560 

81131570 

81131580 

81131590 

81131600 

81131610 

81131620 

81131630 

81131640 

81131650 

81131660 

81131670 

81131680 

81131690 

81131700 

81131710 

81131720 

81131730 

81131740 

81131750 

81131760 

81131770 

81131780 

81131790 

81131800 

81131810 

81131820 

81131830 

81131840 

81131850 

81131860 

81131870 

81131880 

81131890 

81131900 

81131910 

81131920 

81131930 

81131940 

81131950 

81131960 

81131970 
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1800-2841 FUNCTION TEST (PHASE B) 



12AE OOOE 
12AF 1 12AD 
12B0 OOOO 
12B1 8100 
12B2 00C8 



DATE 
EC NO. 



12B3 

12B3 1 7401 0815 

12B5 1 4C18 12BA 

12B7 9297 

12B8 1 4C20 1316 

12BA C283 
12BB 100A 
12BC 1 4C10 12C0 
12BE 420C 
12BF 1 12E3 



12C0 
12C1 
12C2 
12C3 
12C5 
12C7 
12C8 
12C9 
12CA 
12CB 
12CC 
12CD 
12CE 
12CF 
1201 
12D2 
12D3 
12D4 
12D5 
1206 
12D7 
12D8 
1209 
12DA 
12DB 
12DC 
12DD 



42EE 
1010 

D2C0 

1 6500 12D9 
1 6000 1711 

42F7 

1 12F9 
42F1 
C242 
E043 

D242 

42E5 

12D2 

4C18 1206 

700A 

AE80 

1310 

1314 

OOOO 

OOOO 

OOOO 

OOOO 

42E8 

8106 

7607 

420F 

12C3 



OGRAM 


FOR 


THE 


1800 SYSTEM 


PART NO. 2279472 


E B) 










PAGE 24A 




DC 




/OOOE 




81131980 




DC 




T35CW+3 




81131990 




OC 









81132000 


T35SN 


DC 




/8100 


EXP SNS 


81132010 




OC 




/00C8 




81132020 


* 










81132030 


* 










81132040 


*************************************************** 


81132050 


* 










81132060 


* 


ROUTINE 


— 6 — CHECK SETTING OF THE TRACK 


81132070 


* 






OVERRUN SENSE BIT 


81132080 


* 










81132090 


***** 


St* ************** ****************************** 


81132100 


* 










81132110 


* 










81132120 


* 


THIS ROUTINE FORCES THE TRACK OVERRUN SENSE 


81132130 


* 


BIT TO BE SET. 


THIS IS ACCOMPLISHED BY 


81132140 


* 


FORMATTING A TRACK BEYOND ITS CAPACITY. 


81132150 


* 










81132160 


* 










81132170 


*************************************************** 


81132180 


* 








* 


81132190 


*************************************************** 


81132200 


*************************************************** 


81132210 


* 








* 


81132220 


*************************************************** 


81132230 


T3601 


EOU 




* 


TEST ENTRY POINT 


81132240 




MDX 


L 


TRIOtl 


BUMP RTN ID 


81132250 




BZ 




T3602 


BR IF TEST NUMBER ZERO 


81132260 




S 


2 


Kl-TB 


DECREMENT BY ONE 


81132270 




BNZ 




T3701 


BR IF NOT THIS TEST 


81132280 


* 










81132290 


T3602 


LD 


2 


TSWO-TB 


GET OPTION SWS 


81132300 




SLA 




OTTLE 


PRINT TITLES 


81132310 




BNN 




T3603 


BR IF NOT SET 


81132320 




BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


81132330 




DC 




TTL36 


MESSAGE ADDRESS 


81132340 


* 










81132350 


T3603 


BSI 


2 


GETDV-TB 


GET CHANNEL FOR RTN 


81132360 




SLA 




16 


CLEAR ACC 


81132370 




STO 


2 


ERRSW-T8 


RESET ERROR SWITCH 


81132380 


T3604 


LDX 


LI 


T36ER 


SET T/0 RET ADDR 


81132390 




STX 


LI 


WTADR 




81132400 




BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


81132410 




DC 




T36CW 


CCW ADDRESS 


81132420 




BSI 


2 


GETSN-TB 


GET SENSE DATA 


81132430 




LD 


2 


SCSXO+1-TB GET UNIT STATUS WD 


81132440 




AND 




T360F 


AND OUT UNWANTED BITS 


81132450 




STO 


2 


SCSXO+1-TB 


81132460 




BSI 


2 


CKTV-TB 


CALL CHECK ROUTINE 


81132470 




DC 




T3605 


LIST ADDRESS 


81132480 




BZ 




T36EN 


EXIT IF NO ERR 


81132490 




MDX 




T36TE 


GO "test LOOP ON ERROR 


81132500 


T3605 


OC 




/AE80 




81132510 




DC 




T36CS 


ADDR OF EXP CSW 


81132520 




DC 




T36SN 


ADDR OF EXP SNS 


81132530 




DC 









81132540 




DC 









81132550 




OC 









81132560 




DC 









81132570 


T36ER 


BSI 


2 


EROUT-TB 


CALL ERROR OUT ROUTINE 


81132580 




OC 




/8106 


FLAG BITS 


81132590 




DC 




/7607 


MSG NO OR AODRESS 


81132600 


T36TE 


BSI 


2 


TLPER-TB 


GO TST LOOP ON ERR 


81132610 




DC 




T3604 


LOOP ADDRESS 


81132620 


* 










81132630 


* 


GO TO NEXi ROUTINE IN SEOJLNCE 


81132640 


* 










81132650 
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DATE 
EC NO. 



12DE 





42EB 


T36EN 


BSI 


2 FREDV-TB FREE CHANNEL 


81132660 


120F 





C2BC 




LD 


2 TRTNN-TB GET RTN SWS 


81132670 


12E0 


1 


4C18 1316 




BZ . 


T3701 GO TO NEXT RTN IN SEO 


81132680 


12E2 





420F 




BSI 


2 CNTRL-TB GO TO CONTROL RTN 


81132690 


12E3 




0007 


TTL36 
# 


PRNT 


. SECT 3tRT 6- . 


81132700 
81132710 


12EA 




0014 




PRNT 


.TEST TRACK OVERRUN SENSE BIT. 


81132720 


12F8 





FFFF 


* 


DC 


-1 


8U32730 
81132740 


12F9 





0006 


T36CW 


DC 


6 BYTE COUNT 


81132750 


12FA 





4007 




DC 


/40*256+SEEKC FLAGS AND OP CODE 


81132760 


12FB 


1 


HIE 


,'■ * 


DC 


GDTRK ADDRESS 


81132770 
81132780 
81132790 


12FC 





0001 




OC 


1 BYTE COUNT 


81132800 


12F0 





401F 




DC 


/40*256+SF!LM FLAGS AND OP CODE 


81132810 


12FE 


1 


1129 


. * 
* 


DC 


SETPR ADDRESS 


81132820 
81132830 
81132840 


12FF 





0004 




OC 


4 fcYTE COUNT 


81132850 


1300 





4039 




DC 


/40*256+SP HA FLAGS AND OP CODE 


81132860 


1301 


1 


1124 


* 

* 


DC 


HRRZ ADDRESS 


81132870 
81132880 
81132890 


1302 





0001 




OC 


1 BYTE COUNT 


81132900 


1303 





0008 




DC 


0*256+0PTIC FLAGS AND OP CODE 


81132910 


1304 


1 


12FF 


■ » 


DC 


*-6 ADDRESS 


81132920 
81132930 
81132940 


1305 





OOOA 




DC 


10 BYTE COUNT 


81132950 


1306 





4015 




DC 


/40*256+WRR0 FLAGS AND OP COOE 


81132960 


1307 


1 


1124 


* 
* 


DC 


WRRZ ADORESS 


81132970 
81132980 
81132990 


1308 





0008 




OC 


8 BYTE COUNT 


81133000 


1309 





0010 




DC 


0*256+/10 FLAGS AND OP CODE 


81133010 


130A 


1 


130B 


* 


DC 


T36CK ADORESS 


81133020 
81133030 


130B 





00 C6 


T36CK 


OC 


/O0C6 Rl 


81133040 


130C 





0000 




DC 


HD 


81133050 


1300 





0102 




DC 


/0102 


81133060 


130E 





2400 




OC 


/2400 


81133070 


130F 





OOOF 


T360F 


DC 


/OOOF CONST 


81133080 


1310 





4200 


T36CS 


DC 


/4200 EXPECTED CSW 


81133090 


1311 





OOOE 




OC 


/OOOE 


81133100 


1312 


1 


130B 




DC 


T36CW+18 


81133110 


1313 





0000 




DC 





81133120 


1314 





0040 


T36SN 


OC 


/0040 EXP SNS 


81133130 


1315 





00C8 


* 

* 


OC 


/00C8 


81133140 
81133150 
81133160 








*************************************************** 


81133170 








* 






81133180 








* 


ROUTINE — 7 — CHECK SE1TINU OF ,; rND OF 


81133190 








* 




CYLINDER SENSE BIT 


81133200 








* 






81133210 








*************************************************** 


81133220 








* 






81133230 








* 






81133240 








» 


THIS ROUTINE FORCES THE END-OF-CYLINDER 


81133250 








* 


SENSE BIT TO BE SET. THIS IS ACCOMPLISHED 


81133260 








* 


BY 


PERFORMING TWO CHAINEO READ-HOME-ADDRESS 


81133270 








» 


CCW 


•St WITH THE FIRST ADDRESSING HEAD 9 ANO 


81133280 








* 


THE 


SECOND HAVING THE M/T BIT SET. 


81133290 








» 






81133300 








• 






81133310 








J************************************************** 


81133320 








* 




* 


81133330 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



PART NO. 2279472 
PAGE 25A 



DATE 
EC NO. 



*********** ********^** ***************************** 
*************************************************** 



*************************************************** 



1316 









T3701 


EOU 




* 


TEST ENTRY POINT 


1316 


1 


7401 


0815 




MDX 


L 


TRID.l 


BUMP RTN ID 


1318 


1 


4C18 


131D 




BZ 




T3702 


BR IF TEST NUMBER ZERO 


131A 





9297 






S 


2 


Kl-TB 


DECREMENT BY ONE 


131B 


1 


4C20 


136F 


$ 


BNZ 




T3801 


BR IF NOT THIS TEST 


131D 





C283 




T3702 


LD 


2 


TSWO-TB 


GET OPTION SWS 


131E 





100A 






SLA 




OTTLE 


PRINT TITLES 


131F 


1 


4C10 


1323 




BNN 




T3703 


BR IF NOT SET 


1321 





420C 






BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


1322 


1 


1343 




£ 


DC 




TTL37 


MESSAGE ADDRESS 


1323 





42EE 




T3703 


BSI 


2 


GETOV-TB 


GET CHANNEL FOR RTN 


1324 





1010 






SLA 




16 


CLEAR ACC 


1325 





D2C0 






STO 


2 


ERRSW-TB 


RESET ERROR SWITCH 


1326 


1 


6500 


1339 


T3704 


LOX 


LI 


T37ER 


SET T/0 RET ADDR 


1328 


1 


6000 


1711 




STX 


LI 


WTADR 




132A 





42F7 






BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


132B 


1 


135A 






DC 




T37CW 


CCW ADDRESS 


132C 





42F1 






BSI 


2 


5ETSN-TB 


GET SENSE DATA 


132D 





42E5 






BSI 


2 


CKTV-TB 


CALL CHECK ROUTINE 


132E 


1 


1332 






DC 




T3705 


LIST AODRESS 


132F 


1 


4C18 


133E 




BZ 




T37EN 


EXIT IF NO ERR 


1331 





700A 






MDX 




T37TE 


GO TEST LOOP ON ERROR 


1332 





AF80 




T3705 


DC 




/AF80 




1333 


1 


1369 






DC 




T37CS 


ADDR OF EXP CSW 


1334 


1 


136D 






DC 




T37SN 


ADDR OF EXP SNS 


1335 





0000 






DC 









1336 





0000 






DC 









1337 





0000 






DC 









1338 





0000 






DC 









1339 





42E8 




T37ER 


BSI 


2 


EROUT-TB 


CALL ERROR OUT ROUTINE 


133A 





8106 






DC 




/8106 


FLAG BITS 


133B 





7707 






DC 




/7707 


MSG NO OR AODRESS 


133C 





420F 




T37TE 


BSI 


2 


TLPER-TB 


TST LOOP ON ERR 


133D 


1 


1326 




* 


DC 




T3704 


LOOP ADDRESS 










* 

* 


GO TO NEXT ROUTINE IN SEQUENCE 


133E 





42EB 




T37EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


133F 





C28C 






LD 


2 


TRTNN-TB 


GET RTN SWS 


1340 


1 


4C18 


136F 




BZ 




T3801 


GO TO NEXT RTN IN SEO 


1342 





42DF 






BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


1343 




0007 




TTL37 

* 


PRNT 




. SECT 3t 


RT 7- . 


134A 




0015 




PRNT 




.TEST END 


OF CYLINOER SENSE BIT. 


1359 





FFFF 




•/f 


OC 




-1 




135A 





0006 




T37CW 


DC 




6 


BYTE COUNT 


135B 





4007 






DC 




/40*256+SEEKC FLAGS AND OP CODE 


135C 


1 


1363 




* 


DC 




T37EC 


ADDRESS 


135D 





0005 




* 


DC 




5 


BYTE COUNT 


135E 





401 A 






DC 




/40«256+ROHA fLAGS AND OP CODE 


135F 


1 


1366 




* 


DC 




T37A1 


ADDRESS 


1360 





0005 




* 


DC 




5 


BYTE COUNT 


1361 





009A 






DC 




0»256+RDHMT FLAGS AND OP CODE 


1362 


1 


1366 




$ 


DC 




T37A1 


ADORESS 


1363 





0000 




T37EC 


OC 







EOC SEEK 


1364 





00C6 






DC 




/00C6 
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431319 
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81133340 
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81133360 
81133370 
81133380 
81133390 
81133400 
81133410 
81133420 
81133430 
81133440 
81133450 
81133460 
81133470 
81133480 
81133490 
81133500 
81133510 
81133520 
81133530 
81133540 
81133550 
81133560 
81133570 
81133580 
81133590 
81133600 
81133610 
81133620 
81133630 
81133640 
81133650 
81133660 
81133670 
81133680 
81133690 
81133700 
81133710 
81133720 
81133730 
81133740 
81133750 
81133760 
81133770 
81133780 
81133790 
81133800 
81133810 
81133820 
81133830 
81133840 
81133850 
81133860 
81133870 
81133880 
81133890 
81133900 
81133910 
81133920 
81133930 
81133940 
81133950 
81133960 
81133970 
81133980 
81133990 
81134000 
81134010 
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IBM MAINTENANCE 01 AGNOST '. C . PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B> 



1365 0009 


OC 


/0009 




1366 0003 


. T37A1 BSS 


3 


RO AREA 


1369 4000 


T37CS DC 


/4000 


EXPECTED CSW 


136A OOOE 


OC 


/OOOE 




1368 1 1363 


DC 


T37CW+9 




136C 0005 


DC 


5 




136D 0020 


T37SN DC 


/0020 


EXP SNS 


136E 00C8 


DC 


/00C8 





DATE 
EC NO. 



*************************************************** 
* 

* ROUTINE —8— CHECK SETTING OF THE NO RECORD 

* FOUND SENSE BIT 

* 
*************************************************** 



THIS ROUTINE CH-Ci 
SENSE BIT. t SI- 
OPERATION IS PE. 
HOME ADDRESS N01 
ADDRESS. 



THE NO-RECORD-FOUND 
RCH HOME-ADDRESS-EQUAL 
1RMED WITH THE IN-CORE 
EQUAL TO THE TRACK HOME 



*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 



136F 









T3801 


EOU 




# 


TEST ENTRY POINT 


136F 


1 


7401 


0815 




MDX 


L 


TRIDtl 


BUMP RTN ID 


1371 


1 


4C18 


1376 




BZ 




T3802 


BR IF TEST NUMBER ZERO 


1373 





9297 






S 


2 


Kl-TB 


DECREMENT BY ONE 


1374 


1 


4C20 


13C7 




BNZ 




T3901 


BR IF NOT THIS TEST 


1376 





C283 




T3802 


LO 


2 


TSWO-TB 


GET OPTION SWS 


1377 





100A 






SLA 




OTTLE 


PRINT TITLES 


1378 


1 


4C10 


137C 




BNN 




T3803 


BR IF NOT SET 


137A 





42 OC 






BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


137B 


l 


139C 




* 
T3803 


DC 




TTL38 


MESSAGE ADDRESS 


137C 





42EF. 




BSI 


2 


GETDV-TB 


GET CHANNEL FOR RTN 


137D 





1010 






SLA 




16 


CLEAR ACC 


137E 





02C0 






STO 


2 


ERRSW-TB 


RESET ERROR SWITCH 


137F 


1 


6500 


1392 


T3804 


LDX 


LI 


T38ER 


SET T/0 RET ADDR 


1381 


1 


6D00 


1711 




STX 


LI 


WTADR 




1383 





42F7 






BSI 


2 


SIO-TB 


CALL SIO ROUTINE 


1384 


1 


1383 






DC 




T38CW 


CCW ADDRESS 


1385 





42F1 






BSI 


2 


GETSN-TB 


GET SENSE DATA 


1386 





42E5 






BSI 


2 


CKTV-TB 


CALL CHECK ROUTINE 


1387 


1 


1389 






DC 




T3805 


LIST ADDRESS 


1388 


1 


4C18 


1397 




BZ 




T38EN 


EXIT IF NO ERRS 


138A 





700A 






MDX 




T38TE 


GO TEST LOOP ON ERROR 


138B 





AF80 




T3805 


DC 




/AF80 




138C 


1 


13C1 






DC • 




T38CS 


ADDR OF EXP CSW 


1380 


1 


13C5 






DC 




T38SN 


ADDR OF EXP SNS 


138E 





0000 






DC 









138F 





0000 


"' 




DC 









1390 





oooo 






DC 









1391 





0000 






DC 









1392 





42E8 




T38ER 


BSI 


2 


EROUT-TB 


CALL ERROR OUT ROUTINE 


1393 





8106 






DC 




/8106 


FLAG BITS 


1394 





7807 






DC 




/7807 


MSG NO OR ADDRESS 


1395 





420F 




T38TE 


BSI 


2 


TLPER-TB 


GO TST LOOP ON ERR 


1396 


1 


137F 






DC 




T3804 


LOOP ADORESS 



PART NO. 2279472 
PAGE 26 



81134020 

81134030 

81134040 

81134050 

81134060 

81134070 

81134080 

81134090 

81134100 

81134110 

81134120 

81134130 

81134140 

81134150 

81134160 

81134170 

81134180 

81134190 

81134200 

81134210 

81134220 

81134230 

81134240 

81134250 

81134260 

81134270 

81134280 

81134290 

81134300 

81134310 

81134320 

81134330 

81134340 

81134350 

81134360 

81134370 

81134380 

81134390 

81134400 

81134410 

81134420 

81134430 

81134440 

81134450 

81134460 

81134470 

81134480 

81134490 

81134500 

81134510 

81134520 

81134530 

81134540 

81134550 

81134560 

81134570 

81134580 

81134590 

81134600 

81134610 

81134620 

81134630 

81134640 

81134650 

81134660 

81134670 

81134680 

81134690 



14N0V69 
431319 



30JAN70 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



1800-2841 FUNCTION TEST (PHASE B) 



GO TO NEXT ROUTINE IN SEQUENCE 



1397 42EB 

1398 C2BC 

1399 1 4C18 13C7 
139B 42DF 
139C 0007 

13A3 0015 
13B2 FFFF 

13B3 0006 
13B4 4007 
13B5 1 111E 



13B6 0004 
13B7 4039 
13B8 1 13BF 



T38EN BSI 
LD 
BZ 
BSI 

TTL38 PRNT 

* 

PRNT 
DC 

* 

T38CW OC 
DC 
DC 



DC 
DC 
DC 



DATE 
EC NO. 



13B9 0001 
13BA 0008 
138B 1 13B6 



13BC 0001 
13BD 2003 
13BE 1 13BF 



13BF 
13C0 
13C1 
13C2 
13C3 
13C4 
13C5 
13C6 



00C6 
0009 
4000 

OOOE 

1 13B9 
0004 
0008 
00C8 



DC 
DC 
DC 

* 

* 

DC 
DC 
DC 

* 

T38NR DC 
DC 

T38CS DC 
DC 
DC 
DC 

T38SN DC 
DC 



2 FREDV-TB FREE CHANNEL 
2 TRTNN-TB GET RTN SWS 

T3901 GO TO NEXT RTN IN SEQ 
2 CNTRL-TB GO TO CONTROL RTN 

. SECT 3.RT 8- . 

•TEST NO RECORO FOUND SENSE BIT. 
-1 

6 BYTE COUNT 

/40*256+SEEKC FLAGS AND OP CODE 
GDTRK ADDRESS 



4 BYTE COUNT 

/40*256+SRCHA FLAGS AND OP CODE 
T38NR ADDRESS 



1 BYTE COUNT 

0*256+0PTIC FLAGS AND OP CODE 
*-6 ADDRESS 



1 BYTE COUNT 

/20*256+0PN0P FLAGS AND OP CODE 

* 



/00C6 

/0009 

/4000 

/OOOE 

T38CW+6 

4 

/0008 

/00C8 



ADDRESS 

HA 

EXPECTED CSW 



13C7 42DF 



EXP SNS 

*************************************************** 

* * 
*************************************************** 
* 

* SECTION END 
* 

T3901 BSI 2 CNTRL-TB GO TO CONTROL RTN 
*************************************************** 

* * 
*************************************************** 
* 

* SECTION PREFACE 
* 

SECTION NUMBER 



BR IF RUN ALL RTNS 

TEST FOR VALID 

BR IF INVALID RTN NUMBER 

RESTORE RTN NUMBER 

GO TO FIRST RTN 

PRINT ENO OF TEST MSG 

BUMP PASS CNTR 
IN CASE OF SKIP 
GO TO MONITOR END 



13C8 





0004 




T40PR 


DC 




/0004 


13C9 





0000 




# 


DC 







13CA 





C2BB 




T40NT 


LD 


2 


TSCTN-TB 


13CB 


1 


4C18 


13D5 


* 


BZ 




T40EN 


13C0 





C2BC 




LD 


2 


TRTNN-TB 


13CE 


1 


4C18 


13E7 




BZ 




T4101 


13D0 





90F8 






S 




T40PR+1 


13D1 


1 


4C30 


0B25 




BP 




TCNER 


1303 





80F5 






A 




T40PR+1 


13D4 





7012 






MDX 




T4101 


13D5 





420C 




T40EN 


BSI 


2 


TLGMS-TB 


13D6 


I 


13DC 






DC 




T40ER 


13D7 


1 


7401 


0852 




MOX 


L 


PSCNT.l 


1309 





1000 






NOP 






130A 





4C80 


012E 




BSC 


I 


ENO 



14N0V69 
431319 



30JAN70 

431319A 





© i: 

1 r 
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81134700 





81134710 




81134720 




81134730 


i O : 


81134740 


| 


81134750 




81134760 


| © : 


81134770 


r 


81134780 


; 


81134790 


;'• ' 


81134800 




81134810 




81134820 


o 


81134830 




81134840 




81134850 


o 


81134860 


, 


81134870 




81134880 


o 


81134H90 




81134900 




81134910 


; o 


81134920 




81134930 


j 


81134940 


! O 


81134950 


; 


81134960 




81134970 


j o 


81134980 




81134990 


I 


81135000 


o 


81135010 




81135020 




81135030 


; ° 


81135040 




81135050 




81135060 


! © 


81135070 




B1135080 


. 


81135090 


O 


81135100 




81135110 , 




81135120 


o 


81135130 




81135140 


. 1 


81135150 


o 


81135160 




81135170 


i 


81135180 


1 ° 


81135190 




81135200 




81135210 


o 


81135220 




81135230 




81135240 


' o 


81135250 


i 


81135260 




81135270 


; o 


81135280 




81135290 




81135300 


o 


81135310 




81135320 




81135330 


1 ° 


81135340 




81135350 




81135360 


; o ; 


81135370 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-28*1 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



130C 0009 
13E5 FFOO 
13E6 FFFF 



13E7 42 OF 



13E8 



T40ER PRNT . »* END OF DFT **. 
DC /FFOO 
DC /FFFF 

**************#*****************#****♦************* 

* * 
eft************************************************* 
* 
*************************************************** 

* * 
********************************#*********»******** 

* SECTION END 

* 

T4101 8SI 2 CNTRL-TB GO TO CONTROL RTN 

*********#********************#******************** 

* * 

♦a************************************************* 
GTOVE ECU * GET DEVICE ROUTINE 



13E8 





42FA 


13E9 





4480 0131 


13EB 


1 


13E8 


13EC 


1 


0814 


13E0 


1 


08F0 


13EE 


1 


08 OC 


13EF 





C2AC 


13F0 





EA7E 


13F1 





EAOO 


13F2 





D2 30 


13F3 





EAAA 


13F4 





0234 


13F5 





022E 


13F6 





0232 


13F7 





C2AE 


13F8 





EA7E 


13F9 





1808 


13FA 





1008 


13FB 





829A 


13FC 





0240 


13F0 





8298 


13FE 





0236 


13FF 





8297 


1400 





02 38 


1401 





8297 


1402 





D23A 


1403 





8297 


1404 





D23C 


1405 





8297 


1406 





02 3E 


1407 





D27D 



GT0V1 BSI 2 STMLS-TB 
BSI 1 REODV 
DC GTDV1 



DC 
DC 
DC 

LD 
OR 
OR 
STO 

OR 
STO 



TSCED 
TSCAC 
TERM 



BUSY RETURN 

SEL CHN EDIT 

SEL CHN AREA CODE 

TERMINATOR 



2 H0400-TB BUILD HALT I/O IOCC 
2 TSCAC-TB OR IN AREA CODE 
2 DVADR-TB *** 
2 HIOXX+1-TB *** 

2 H0100-TB BUILD START I/O IOCC 
2 SIOXX+1-TB *** 



1408 1 4C80 0860 



STO 2 TIOXX+1-TB BUILtf TEST I/O IOCC 
* 

STO 2 SENSE+1-TB SET FOR SENSE IOCC 
# 

LD 2 H0700-TB BUILD SENSE CHANNEL 

OR 2 TSCAC-TB * STATUS IOCC'S 

SRA 8 

SLA 8 

A 2 K6-TB 

STO 2 SCSN5+1-TB " 06 

A 2 K2-TB 

STO 2 SCSNO+l-TB *** ■ 08 

A 2 Kl-TB 

STO 2 SCSN1 + 1-TB '■ 09 

A 2 Kl-TB 

STO 2 SCSN2+1-TB = OA 

A 2 Kl-TB 

STO - 2 SCSN3+1-TB ■ OB 

A 2 Kl-TB 

STO 2 SCSN4+1-TB ■ OC 

STO 2 SC1SW-TB SET INT SW 
* 

BSC I GETDV RETURN 
******************#**»************»**************** 

* * 
#***»*****#**♦***********«***»********************* 
a************************************************** 

* * 



140A 4480 0132 
140C 1 0814 
140D 1 080C 



FRDVE BSI I RELOV 
DC TSCED 
DC TERM 



RELEASE DEVICE 
SEL CHN EDIT 
TERMINATOR 



14N0V69 
431319 



30JAN7Q 
431319A 
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I 
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o 
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81135460 




«* i 
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! O 




81135480 


1 
| 


81135490 




81135500 
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O 


81135510 




81135520 
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o ! 


81135540 




81135550 
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. 


81135560 


\ ° 


o 


81135570 


1 


81135580 


t 


j 


81135590 


I o 


o ; 


81135600 


1 


81135610 


i 


I 


81135620 


i o 





81135630 




81135640 


1 


1 


81135650 


o 


o ! 


81135660 


1 


81135670 




i 


81135680 


o 


o j 


81135690 


! 


81135700 


_\ 


1 


81135710 


i o 


o j 


81135720 




81135730 


i 


i 


81135740 


1 





81135750 


i 


81135760 


I 


1 


81135770 


I o 


o ! 


81135780 




81135790 






81135800 


1 o 


O i 


81135810 


i 


81135820 






81135830 


! ° 


o j 


81135840 


i 


81135850 


; 




81135860 


; o 


O ; 


81135870 




81135880 






81135890 


o 


o \ 


81135900 




81135910 






81135920 


i o 


o ; 


81135930 




81135940 


i 




81135950 


i o 


O : 


81135960 




81135970 






81135980 


[ o 


o i 


81135990 


1 


81136000 
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81136010 
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o ; 


81136020 




81136030 
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81136040 
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81136050 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE Bl 



DATE 
EC NO. 



140E 
140F 
1410 1 
1412 

1412 0000 

1413 D82A 

1414 6927 

1415 2821 

1 





1010 
D27D 
4C80 086A 



1416 
1418 



74FF 
7008 



143A 



1419 6500 0064 

141B 1 6DO0 143A 

141D 1 6500 143A 

141F 1 6D00 143B 



1421 
1423 
1424 
1425 
1427 
1428 
1429 
142A 
142B 
142C 
142D 
142E 
142F 
1430 
1431 
1432 
1433 
1434 
1435 
1437 
1438 



6580 143B 
7106 
1000 
6D00 143B 



1 



1 

D100 
1090 
D101 
C011 

D102 

6A10 

COOF 

D103 

6B0D 

COOC 

D104 

CODF 
D105 

C809 

1 6580 143C 

2000 

1 4C80 1412 



143A 
143B 
0000 
0001 
0002 

0003 
0004 
0005 
143C 
143D 
143E 
1440 



0065 
143A 



0000 
0000 
0002 
0258 



1698 

1698 6920 

1699 6B21 



SLA 
STO 
BSC 

TNT EOU 

TMLNT DC 
STD 
STX 
STS 
MDX 
MDX 

* 

LDX 
STX 
LDX 
STX 

* 

TMLUK LDX 
MDX 
NOP 
STX 
STO 
SLT 
STO 
LD 
STO 
STX 
LD 
STO 
STX 
LD 
STO 
LD 
STO 
LOD 
LDX 

TMLST LDS 



16 

SCISW-TB 

FREDV 



TMLT2 

TMLTO 

TMLST 

TMLCTt-1 

TMLOK 



RESET- 
INTERRUPT SW 
RETURN 

MAINLINE ENTRY 
PRIMARY ENTRY 

STORE AO 

SAVE XR1 

SAVE STATUS 

DECREMENT TO SEE IF ROOM 
BR IF YES 



LI 
LI 
LI 
LI 

II 
1 

LI 
XI 

XI 

XI 
2 

XI 
3 

XI 

XI 

II 



100 SET NUMBER OF ENTRIES 
TMLCT STORE FOR LATER 

TMLTR-6 POINT TO START OF TABLE E 
TMLPT STORE POINTER 



TM1.PT 
6 

TMLPT 

TMLA 

16 

TMLO 

TMLTO 

TMLR1 

TMLT1 

TMLT1 

TMLR2 

TMLT1 

TMLT1 

TMLR3 

TMLNT 

TMLRX 

TMLT2 

TMLTO 



BSC I TMLNT 



GET POINTER TO TABLE 
BUMP BY ENTRY LENGTH 

IN CASE 32K BOUNDARY 
RE-STORE POINTER 
SAVE A-REG IN TBL 

TO A 
SAVE O-REG IN TBL 
GET SAVE XR1 
SAVE IN TBL 
SAVE XR2 
** 

STORE IN TBL 
SAVE XR3 
** 

STORE IN TBL 

GET ICNTR OF CALLING RTN 
STORE IN TBL 
RESTORE AO 
RESTORE XR1 

RESTORE STATUS 
EXIT 



POINTER AND CONSTANTS 



EOU 
EOU 

EOU 



TMLCT DC 
TMLPT DC 
TMLA 
TMLO 
TMLR1 
TMLR2 EOU 
TMLR3 EOU 
TMLRX EOU 
TMLTO DC 
TMLT1 OC 
TMLT2 BSS 

TMLTB BSS 
************* 

» 
************* 



+ 1 



100+1 NUMBER OF TBL ENTRIES 

TMLTB-6 POINTER TO LAST ENTRY 

OFFSET TO A-REG 

1 OFFSET TO O-REG 

2 OFFSET TO XR1 

3 OFFSET TO XR2 

4 OFFSET TO XR3 

5 OFFSET TO ICNTR 

*-* STORE FOR XR1 ON ENTRY 
*-« TEMPORARY STORAGE 
2 STORAGE FOR AO 

100*6 TRACE TABLE 
*****«****************#*«************* 

* 
************************************** 



* CALL ****»*»**»»**** 
» * BSI 2 SIO-TB * 

* * DC CCWADR » 

* ****************** 

* 

************************************ ********* ****** 

* » 
♦•a************************************************ 
SIONT EOU * ENTRY POINT 

STX 1 SI0X1+1 SAVE REGS 
STX 3 SI0X1+3 *** 



14N0V69 
431319 



30JAN7O 

431319A 



PART NO, 
PAGE 



81136060 
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81136160 
81136170 
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81136220 
81136230 
81136240 
81136250 
81136260 
81136270 
81136280 
81136290 
81136300 
81136310 
81136320 
81136330 
81136340 
81136350 
81136360 
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81136500 
81136510 

81136520 
81136530 
81136540 
81136550 
81136560 
81136570 
81136580 
81136590 
81136600 
81136610 
81136620 
81136630 
81136640 
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1800-2841 FUNCTION TEST (PHASE B) 
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DATE 
EC NO. 



169A 


1 


6760 


0876 




LDX 


13 


SIO 


GET CALLING ADORESS 


81136740 


169C 


1 


7401 


0876 




MOX 


L 


SIO.l 


BUMP FOR RETURN 


81136750 


169E 





1000 






NOP 








81136760 


169F 





C300 






LO 


3 





GET CCW ADORESS 


81136770 


16A0 





D233 






STO 


2 


SIOXX-TB 


SET FOR XIO 


81136780 


16A1 





D2C1 




* 


STO 


2 


CAMSV-TB 


SAVE FOR POSSIBLE PRINTS 


81136790 
81136800 


16A2 





10A0 




SI001 


SLT 




32 


CLEAR CSW 


81136810 


16A3 





DA41 






STO 


2 


SCSXO-TB 


** 


81136820 


16A4 





DA<-3 






STO 


2 


SCSX0+2-TB 


** 


81136830 


16A5 





0278 




' * 


STO 


2 


WIOSW-TB 


CLEAR WAIT SW 


81136840 
81136850 


16A6 





OA33 




» 


XIO 


2 


SIOXX-TB 


DO THE START I/O 


81136860 
81136870 


16A7 





0A35 






XIO 


2 


SCSNO-TB 


GET CHANNEL STATUS 


81136880 


16A8 





D235 




* 


STO 


2 


SCSNO-TB 


SAVE FOR LATER EXAM 


81136890 
81136900 


16A9 





7006 






MDX 




SI003 


GO TEST FOR ERRORS 


81136910 










'. * 


LOOP 


ON 


TIO UNTIL 


DEVICE END 


81136920 


16AA 





4206 




SI 002 


BSI 


2 


TIO-TB 


GO 00 A TIO 


81136930 
81136940 


16AB 





C24A 






LO 


2 


SCSX8+1-TB 


GET UNIT STATUS 


81136950 


16AC 





100B 






SLA 




UNBZY 


TEST FOR BUSY 


81136960 


16AD 


l 


4C28 


16AA 




BN 




SI002 


BR IF STILL BUSY 


81136970 


16AF 





70F2 




* 


MDX 




SI001 


GO DO THE SIO AGAIN 


81136980 
81136990 


16B0 





C2 35 




SI003 


LO 


2 


SCSNO-TB 


GET CHAN STATUS 


81137000 


16B1 





1007 






SLA 




SCABZ 


TEST FOR BUSY 


81137010 


16B2 


1 


4C10 


16C0 




BNN 




SIOOS 


BRANCH IF NOT NEG 


81137020 










. ■'•* 


CMO 


ACCEPTED 




81137030 


16B4 





C2D1 




SI 004 


LO 


2 


SIOSW-TB 


GET SIO SW 


81137040 


16B5 


1 


4C28 


16B8 


* 


BN 




SI0X1 


BR IF SET 


81137050 
81137060 


16B7 





4047 




» 


BSI 




WAITT 


GO WAIT FOR OE OR UNIT CHK 


81137070 
81137080 


1688 





6500 


0000 


SI0X1 


LDX 


LI 


*-# 


RESTORE REGS 


81137090 


168A 





6700 


0000 




LDX 


L3 


*-* 


*** 


81137100 


16BC 





1010 






SLA 




16 


RESET SIO SW 


81137110 


16BD 





0201 






STO 


2 


SIOSW-TB 


» 


81137120 


16BE 


1 


4C80 


0876 


• 


BSC 


I 


SIO 


THEN EXIT 


81137130 
81137140 


16C0 





C201 




SIOOS 


LO 


2 


SIOSW-TB 


GET CNTRL SW 


81137150 


16C1 





1001 






SLA 




1 


TEST FOR EXIT EVEN IF ERR 


81137160 


16C2 


1 


4C28 


1688 


':• * 


BN 




SI0X1 


8R IF SET 


81137170 
81137180 


16C4 





CAC5 






LDD 


2 


TYP2-TB 


'SIO ' 


81137190 


16C5 





0A67 






STD 


2 


STSER+6-TB 


SET IN MSG 


81137200 


16C6 


1 


4400 


1E58 




BSI 


L 


TCVSR 


GET SECT/RTN NUMBERS 


81137210 


16C8 





D2fcB 






STO 


2 


STSER+10-TB 


81137220 


16C9 





10S0 






SLT 




16 




81137230 


16CA 





D26E 






STO 


2 


STSER+13-TB SET IN MSG 


81137240 


16CB 





C235 






LD 


2 


SCSNO-TB 


GET CHAN STATUS 


81137250 


16CC 


1 


4C10 


16D6 




BNN 




SI006 


BR IF NOT OPER IS NOT SET 


81137260 










» 


NOT 


OPERATIONAL 




81137270 


16CE 





C2A5 






LD 


2 


H0013-TB 


GET MSG NUMBER 


81137280 


16CF 





42F0 






BSI 


2 


TCVBE-TB 


CONVERT TO PRNT CODE 


81137290 


16D0 





1090 






SLT 




16 


SAVE ONLY 


81137300 


16D1 





0261 






STO 


2 


STSER-TB 


SET IN MSG 


81137310 


16D2 





42E8 






BSI 


2 


EROUT-TB 


PRINT ERROR MSG 


81137320 


16D3 





0108 






DC 




/0108 


TAGS AND OPTIONS 


81137330 


16D4 


1 


08EO 






DC 




STSER 


MSG ADORESS 


81137340 


16D5 





7023 




* 


MDX 




SI009 


LOOP 


81137350 
81137360 


16D6 





1007 




SI 006 


SLA 




SCABZ 


TEST FOR ADAPTER BUSY 


81137370 


16D7 


1 


4C10 


16E2 




BNN 




SI007 


BR IF NOT 


81137380 


1609 





C2A4 






LD 


2 


H0011-TB 


SET MSG NUMBER 


81137390 


16DA 





8297 






A 


2 


Kl-TB 




81137400 


16DB 





42FD 






BSI 


2 


TCVBE-TB 


CONVERT 


81137410 
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431319 
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431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



16DC 1090 

16D0 0261 

160E 42E8 

160F OlOC 

16E0 1 08E0 

16E1 7017 



16E2 
16E3 
16E4 
16E6 
16E7 
16E8 
16E9 
16EB 
16E0 
16EE 
16EF 
16F0 

16F2 
16F3 
16F4 
16F5 
16F6 
16F7 
16F8 



C235 
1001 
4C10 16B4 






1 

42F1 
CA29 

109F 

1 4C10 16F2 
1 6780 08B2 
C301 

F2A5 

1008 

1 4C18 16A2 



SLT 

STO 

8SI 

OC 

DC 

MDX 

# 

SI007 LD 
SLA 
BNN 
BSI 
LDD 
SLT 
BNN 



16 
2 STSER-TB 
2 EROUT-TB 

/OlOC 

STSER 

SI009 

2 SCSNO-TB 

SCUSP 

SI004 
2 GETSN-TB 
2 SNWOS-TB 

FSKIN 

SI008 



LDX 13 SIOXX 



C2A4 
42FD 
1090 
0261 
42E8 
010F 
08E0 



16F9 C283 
16FA 100B 
16FB 1 4C28 16AA 

16FD 4203 
16FE 70AB 



LO 
EOR 
SLA 
BZ 

* 

SIOOS LD 
BSI 
SLT 
STO 
BSI 
DC 
DC 

* 

SI009 LO 
SLA 
BN 

* 

BSI 
MDX 



3 1 

2 H0013-TB 

8 

SI001 

2 H0011-TB 
2 TCVBE-TB 

16 
2 STSER-TB 
2 EROUT-TB 

/010F 

STSER 

2 TSWO-TB 
ORTRY 
SI002 



ONLY 

SET IN MSG 

CALL ERROR PRINT RTN 

MESSAGE TAGS AND OPTIONS 

MSG ADDRESS 



GET CHAN STATUS 

UNIT STATUS PENDING 

BR IF NOT SET 

ELSE GET SENSE INFO 

GET SENSE WORDS 

TEST FOR SEEK INCOMPLETE 

BR IF NOT SET 

GET CCW ADDRESS 

GET FLAGS AND OP CODE 

TEST FOR RFCALIBRATE 

RETRY IF SO 

SET ERR NUMBER 
CONVERT 
ONLY 
SET IN MSG 
CALL MSG RTN 
TAGS AND OPTIONS 
MSG ADORESS 

GET SW FNC 

TEST FOR RETRY SIO 

BR IF YES 



2 THALT-TB GO WAIT FOR OPERATOR 
SI002 LOOP 

* * 
lit************************************************** 
* 

* WAIT FOR DEVICE END FROM START I/O 



16FF 





0000 




WAITT 


oc 




*-* 




1700 





C280 






LD 


2 


TERM-TB 


GET COUNTER FOR LOOP 


1701 





02BA 




# 
WAITl 


STO 


2 


CNTON-TB 


SET FOR LOOP 


1702 





4206 




BSI 


2 


TIO-TB 


GO DO A TEST 1/0 


1703 





C24A 






LO 


2 


SCSX8+1-TB 


GET UNIT STATUS 


1704 





100B 






SLA 




UNBZY 


TEST FOR UNIT BUSY 


1705 


1 


4C28 


170B 




BN 




WAIT2 


BR TO WAIT IF ON 


1707 





1010 






SLA 




16 


ELSE CLEAR TIO SW 


1708 





D205 






STO 


2 


TIOSW-TB 


* 


1709 


1 


4C80 


16FF 


* 

WAIT2 


BSC 


I 


WAITT 


EXIT IF NOT BUSY 


170B 





42FA 




BSI 


2 


STMLS-TB 


GO TO MONITOR 


170C 


1 


74CE 


0839 




MDX 


L 


CNTONt-50 


COUNT TIME 


170E 





70F3 






MDX 




WAITl 


LOOP 


170F 


1 


4C80 


1711 




BSC 


I 


WTADR 


GO TO TIMEOUT ADORES 


1711 





0000 




WTADR 


DC 




»-« 


TIMEOUT AODRESS 



1712 



14N0V69 
431319 



« * 

* 

* 

* 

♦♦see********************************************** 

* » 

*************************************************** 

TIONT EOU * ENTRY FOR XFER VECTOR 



30JAN70 
431319A 



PART NO. 
PAGE 



81137420 
81137430 
81137440 
81137450 
81137460 
81137470 
81137480 
81137490 
81137500 
81137510 
81137520 
81137530 
81137540 
81137550 
81137560 
81137570 
81137580 
81137590 
81137600 
81137610 
81137620 
81137630 
81137640 
81137650 
81137660 
81137670 
81137680 
81137690 
81137700 
81137710 
81137720 
81137730 
81137740 
81137750 
81137760 
81137770 
81137780 
81137790 
81137800 
81137810 
81137820 
81137830 
81137840 
81137850 
81137860 
81137870 
81137880 
81137890 
81137900 
81137910 
81137920 
81137930 
81137940 
81137950 
81137960 
81137970 
81137980 
81137990 
81138000 
81138010 
81138020 
81138030 
81138040 
81138050 
81138060 
81138070 
81138080 
81138090 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



PART NO. 2279472 
PAGE 29 



1712 1010 




SLA 


16 


CLEAR- 


81138100 


1713 D27C 




STO 


2 WATSW-TB 


* 


81138110 


1714 0237 




STO 


2 SCSN1-TB 


* LOOP COUNTER 


81138120 




* 


WAIT 


FOR ADAPTER NOT BUSY 


81138130 


1715 0A35 


T1001 


XIO 


2 SCSNO-TB 


GET CHAN. STATUS WORD 


81138140 


1716 1007 




SLA 


SCABZ 


TEST FOR ADAPTER BUSY 


81138150 


1717 1 4C10 172A 




BNN 


TI002 


BR IF NOT 


81138160 


1719 0A3F 


* 


XIO 


2 SCSN5-TB 


ALLOW POLLING 


81138170 
81138180 


171A 42FA 




BSI 


2 STMLS-TB 


GO TO MONITOR 


81138190 


171B 1 7432 0886 




MDX 


L SCSN1.S0 


COUNT LOOPS 


81138200 


1710 70F7 


* 


MDX 


TI001 


LOOP UNTIL NOT BUSY 


81138210 
81138220 


171E 0A37 




XIO 


2 SCSN1-TB 


GET CHANNEL STATUS 


81138230 


171F D240 




STO 


2 SCSXC-TB 


* AND SAVE FOR ERROR 


81138240 


1720 0A3B 




XIO 


2 SCSN3-TB 


* MESSAGE 


81138250 


1721 024E 




STO 


2 SCSXC+1-TB 


* 


81138260 


1722 0A30 




XIO 


2 SCSN4-TB 


* 


81138270 


1723 024F 




STO 


2 SCSXC+2-TB 


* 


81138280 


1724 0A3F 




XIO 


2 SCSN5-TB 


# 


81138290 


1725 D250 


* 


STO 


2 SCSXC+3-TB 


* 


81138300 
81138310 


1726 42E8 




BSI 


2 EROUT-TB 




81138320 


1727 1106 




DC 


/110E 


TAGS ANO OPTIONS 


81138330 


1728 1 173E 


* 


DC 


TI0M1 


ERROR MSG ADDRESS 


81138340 
81138350 


17 29 70E8 


« 


MOX 


TIONT 


LOOP TO TRY AGAIN 


81138360 
81138370 


172A 0A2D 


TI002 

» 


XIO- 


2 TIOXX-TB 


EXECUTE TEST I/O 


81138380 
81138390 


172B 1 6C00 0854 




STX 


L TIOSH 


SET TIO SW 


81138400 


172D 0A3F 


* 


XIO 


2 SCSN5-TB 


RELIEVE POLL 


81138410 
81138420 


172E 1 4400 09A6 , 




BSI 


L TINTW 


WAIT FOR INTERRUPT 


81138430 


1730 7006 




MDX 


TI003 


BR IF DID NOT OCCUR 


81138440 


1731 C24A 




LD 


2 SCSX8+1-TB 


GET UNIT STATUS 


81138450 


1732 100A 




SLA 


UNCUE 


TEST FOR CNTL UNIT END 


81138460 


1733 1 4C28 1712 


* 


BN 


TIONT 


RETRY IF YES 


81138470 
81138480 


1735 1 4C80 0885 


* 


BSC 


1 TIO 


EXIT 


81138490 
81138500 


1737 42E8 


TI003 


BSI 


2 EROUT-TB 




81138510 


1738 110E 




oc 


/HOE 


TAGS AND OPTIONS 


81138520 


1739 1 174A 




DC 


TI0M2 


ERROR MSG ADDRESS 


81138530 




» 


ISSUE HALT I/O TO 


CLEAR CHANNEL 


81138540 


173A 0A2F 


* 


XIO 


2 HIOXX-TB 


t 


81138550 
81138560 


173B 420C 




BSI 


2 TLGMS-TB 




81138570 


173C 1 175B 


* 


DC 


TIOMS 




81138580 
81138590 


1730 70D4 


* 


MOX 


TIONT 




81138600 
81138610 


173E 0011 


TI0M1 


PR NT 


. 02 ADAPTER HUNG BUSY. 


81138620 


1749 FFFF '."; 


* 


DC 


/FFFF 




81138630 
81138640 


174A 0016 


TI0M2 


PRNT 


. 06 CHANNEL HUNG AFTER TEST I/O. 


81138650 


175A FFFF 




DC 


/FFFF 




81138660 


175B 0015 


TIOMS 


PRNT 


. A HALT 


/O HAS BEEN ISSUED TO. 


81138670 


176A FFOO 




DC 


/FFOO 




81138680 


176B 0017 




PRNT 


•TRY TO RESET THE CHANNEL CONDITION 


, 81138690 


177C FFFF 


* 


OC 


/FFFF 




81138700 
81138710 




a************************************************** 81138720 




* 








* 81138730 




♦ft************************************************* 81138740 




* 








81138750 




********»♦»*»**»****#**»*»******»**»*»************* 81138760 




• 








* 81138770 



DATE 
EC NO. 



14N0V69 
431319 



30JAN7O 
43 131 9 A 



PROG 10 
PAGE 
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DATE 
EC NO. 



ENANC 


E 


DIAGNOSTIC 


PROGRAM 


FOR 


THE 


1800 SYSTEM 


PART NO. 227947 
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FUNCTION TEST (PHASE B) 






















ft****************** »#*#**#«**<04****»»*ft>X4**'**«**#*## 


81138780 


1 o 










» 










81138790 












* 


CALL 


a*************** 


81138800 












* 


# 


BS 


L GETSN 


* 


81138B10 


o 










* 


***#******###***##$ 


81138820 












* 










81138830 


, 










#******#*##**##****##*#**#****#*##*###*#**#*#***### 


81138840 


; © 










* 








* 


81138850 












♦♦♦a*********************************************** 


81138860 




1770 





6916 




GTSNS 


STX 


1 


GTSNX+1 


SAVE REGS 


81138870 


' o 


177E 





6B17 






STX 


3 


GTSNX+3 


#*# 


81138880 


j 


177F 





CA4D 






LDD 


2 


SCSXC-TB 


SAVE SNS CHAN STATUS 


81138890 




1780 





DA51 






STD 


2 


SCSVS-TB 


** 


81138900 


1 © 


1781 





CA4F 






LDD 


2 


SCSXC+2-TB 


** 


81138910 




1782 





DA53 






STD 


2 


SCSVS+2-TB 




81138920 


' 


1783 





0A31 




GTSNO 


XIO 


2 


SENSE-T8 


SENSE I/O 


81138930 


o 


1784 





0A35 






XIO 


2 


SCSNO-TB 


GET CHAN STATUS 


81138940 




1785 





D235 






STO 


2 


SCSNO-TB 


SAVE 


81138950 


j 


1786 





1007 






SLA 




SCABZ 




81138960 


o 


1787 


1 


4C10 


179D 




BNN 




GTSN2 




81138970 












* 


SIO 


ACCEPTED- WAIT 


FOR NOT BUSY 


81138980 


{ 


1789 





0A35 




GTSN1 


XIO 


2 


SCSNO-TB 


GET CHAN STATUS 


81138990 


o 


178A 





1007 






SLA 




SCABZ 


TEST FOR BUSY 


81139000 




178B 


1 


4C28 


1789 


* 


BN 




GTSN1 


BR IF SO 


81139010 
81139020 


! © 


1780 





0A3F 






XIO 


2 


SCSN5-TB 


ALLOW POLLING 


81139030 


1 


178E 





1000 




* 


NOP 






TO ALLOW INTERRUPT 


81139040 
81139050 


! O 


178F 





C24E 






LD 


2 


SCSXC+1-TB 


GET UNIT STATUS 


81139060 




1790 





100E 






SLA 




UNCHK 




81139070 


1 


1791 


1 


4C28 


179D 




BN 




GTSN2 




81139080 


! O 


1793 





65 00 


0000 


GTSNX 


LDX 


LI 


*-* 


RESTORE REGS 


81139090 


■\ 


1795 





6700 


0000 




LDX 


L3 


*-* 


##* 


81139100 




1797 





CA51 






LDD 


2 


SCSVS-TB 


RESTORE SNS CHAN STATUS 


81139110 


: o 


1798 





0A4D 






STD 


2 


SCSXC-TB 


*# 


81139120 


i 


1799 





CA53 






LDD 


2 


SCSVS+2-TB 


** 


81139130 


i 


179A 





DA4F 






STD 


2 


SCSXC+2-TB 


** 


81139140 


o 


.1798 


1 


4C80 


0870 


* 


BSC 


I 


GETSN 


EXIT TO CALLER 


81139150 
81139160 


! 


179D 


1 


4400 


1E58 


GTSN2 


BSI 


L 


TCVSR 


GET SECTION / RTN NUMBERS 


81139170 


! o 


179F 





D26B 






STO 


2 


STSER+10-TB STORE IN MSG 


81139180 


! 


17A0 





1090 






SLT 




16 


Q TO A 


81139190 


j 


17A1 





D26E 






STO 


2 


STSER+13-TB J 


81139200 


i © 


17A2 





CAC7 






LDD 


2 


TYP3-TB 


'SNS' 


81139210 


1 


17A3 





0A67 






STD 


2 


STSER+6-TB 


SET IN MSG 


81139220 




17A4 





C24D 






LD 


2 


SCSXC-TB 


GET CHAN STATSUS WORD 


81139230 


1 © 


17A5 





1001 






SLA 




SCUSP 


TEST FOR UNIT STAT.PNOING 


81139240 


] 


17A6 


1 


4C10 


17AF 




BNN 




GTSN3 


BR IF NOT 


81139250 


1 










* 


UNIT 


STATUS PENDING 


81139260 


i o 


17A8 





C2B2 






LO 


2 


H2100-TB 


SET MSG NUMBER 


81139270 


-■','■ 


17A9 





42FD 






BSI 


2 


TCVBE-TB 


CONVERT TO EBC 


81139280 




17AA 





D261 






STO 


2 


STSER-TB 


SET IN MSG 


81139290 


i © 


17AB 





42E8 






BSI 


2 


EROUT-TB 


PRINT EROR MSG 


81139300 




17AC 





114E 






DC 




/114E 


TAGS AND OPTIONS 


81139310 


i 


17A0 


1 


08E0 






DC 




STSER 


MESSAGE 


81139320 


! o 


17AE 





70D4 






MDX 




GTSNO 


GO TRY AGAIN 


81139330 












* 


NOT 


OPERATIONAL 




81139340 


I 


17AF 





C235 




GTSN3 


LD 


2 


SCSNO-TB 


GET CHAN STATUS 


81139350 


! o 


17B0 





1007 






SLA 




SCABZ 


TEST FOR ADAPTER BUSY 


81139360 




17B1 


1 


4C10 


17BB 




BNN 




GTSN5 


BR IF NOT 


81139370 


i 


17B3 





C2AA 




* 


LD 


2 


H0100-TB 


SET MSG NUMBER TO 22 


81139380 
81139390 


' o 


17B4 





82B2 




GTSN4 


A 


2 


H2100-TB 


CREATE PROPER MSG NUMBER 


81139400 


'■-'■:'!' 


17B5 





42F0 






BSI 


2 


TCVBE-TB 


CONVERT 


81139410 


1 o 


17B6 





D261 






STO 


2 


STSER-TB 


SET IN MSG 


81139420 


':::.:■! 


17B7 





42E8 






BSI 


2 


EROUT-TB 


CALL ERROR MSG RTN 


81139430 


. i 


17B8 





114C 






DC 




/114C 


TAGS ANO OPTIONS 


81139440 


i ° 


17B9 


1 


08E0 






DC 




STSER 


MSG ADDRESS 


81139450 





14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE D i AGNO STI C, PROGRAM FOR THE 1BOO SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



17BA 7CC8 



17BB C2AB 
17BC 70F7 



MDX 



GTSNO 



GO TRY AGAIN 



O i 








en ; 

Si 

«sa- ; 








© 

© i ' 

© ; 


17BD 
17BD 
17BE 
17BF 
17C0 
17C1 








1 


C2FA 
D02E 
692E 
6B2E 
6580 UFO ..:, 


© I ■ 


17C3 
17C4 
17C6 
17C7 
17C9 
17CA 




1 



1 



1 


C029 

0500 17F2 
CO 27 

D500 17F3 
C025 
D500 17F4 


© !■'■■ 


17CC 
17CD 







7103 
6922 


© ! 
© 


17CE 
17CF 
1700 







C022 
028C 
4C80 012D 


© 

1 

©|. ' 
© ; : . 


1702 
1704 
1705 


1 





6600 087F 

C010 

02FA - .,;:; 


1706 
1707 
1708 
1709 








C01C 
0016 
C01B 
0015 


© / -' ; ": 


17DA 





61F7 


o 

— 


170B 
1700 
17DF 
17E0 


1 

1 





C500 17FE ', 
0500 17FB 
7101 
70FA 


o 

- 


17E1 
17E3 


1 




74FD 17F0 
7006 


o 


17E4 
17E6 
17E8 


1 
1 
1 


6580 17EE 
6780 17EF 
4C8 0879 


o 


17EA 
17EB 
17EC 







C006 
028C 
70F7 ; 


o 








o 


17ED 
17EE 
17EF 







0000 
0000 
0000 


o 

i 








Q ■ DATE 14N0V69 30JAN70 
EC NO. 431319 431319* 


: 








o 








1 o ; 

1 








1 o : 

















o ! 









GTSN5 LD 2 H0200-TB SET MSG NUMBER TO 23 

MDX GTSN4 GO TO COMMON RTN 

* * 

* 

* SAVE INDEX REGISTERS AND GO TO MONITOR 

* 

* * 

ftft$#ft#*ft$ftftftftft##ft:<<ft#ft&*ftft#*ft**ftftft#ftftft**ft*ftft*a*(ftftftftft 

STMLE EOU * 

LD 2 STMLS-TB GET CALLING ADDRS 

STO STMSA PUT IN TEMP SAVE AREA 

STX 1 STMSA+1 PUT REGS IN SAVE AREA 

STX 3 STMSA+2 ** 

GET Q LOCATION 



LDX II STMPT 

LD STMSA 

STO LI STMST 
LD STMSA+1 

STO LI STMST+1 
LD STMSA+2 

STO LI STMST+2 



MDX 
STX 



1 +3 
1 STMPT 



GET I REG 
PUT IN 
GET XRl 
PUT IN 
GET XR3 
PUT IN Q 

BUMP POINTER 
SAVE 



SET UP MONITOR RETURN 

* 

GO VISIT MONITOR 

RETURN FROM MONITOR HERE 



LD STMRT 
STO 2 MLSC2-TB 
BSC I START 



STMLX LDX L2 TB 



LD 
STO 

LD 
STO 
LD 
STO 

LDX 



STMST 
2 STMLS-TB 

STMST+1 
STMSA+1 
STMST+2 
STMSA+2 



STMLL LD LI STMST+12 

STO LI STMST+9 

MDX 1 +1 

MDX STMLL 



MDX 
MDX 



L STMPT, -3 
STMPS 



SET UP TABLE PNTR 
GET ENTRY LOC 
PUT IN RETURN 

GET XRl 

PUT IN TEMP SAVE 

GET XR2 

PUT IN TEMP SAVE 



MOVE ALL SAVED 

* PARAMETERS UP 3 

* PLACES IN 

* 

DECREMENT POINTER 
IF NOT 0, CONTINUE 



ELSE RESTORE PARAMETERS 
RETURN 



STMSE LDX II STMSA+1 

LDX 13 STMSA+2 

BSC I STMLS 

* GET HERE IF ENTRYS NEED SERVICING 

STMPS LD STMRT SET UP RETURN TO 

STO 2 MLSC2-TB * STMLS ROUTINE 

MOX STMSE EXIT 
* 

» TEMPORARY SAVE AREA 
* 

STMSA DC *-* 

DC *-* 

DC *-* 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



17F0 0000 
17F1 1 17D2 



17F2 0000 
17F3 0000 
17F4 0000 

17F5 0000 
17F6 0000 
17F7 0000 

17F8 0000 
17F9 0000 
17FA 0000 

17FB 0000 
17FC 0000 
17FD 0000 



OATE 
EC NO. 



STMPT 


DC 







POINTER 


STMRT 


DC 


STMLX 


RE-ENTRY LOCATION 


* 


QUEUED 


SAVE 


AREA 




* 










STMST 


DC 


ft-* 




I 1 




DC 


ft— * 




XRl 1 




DC 


#-* 




XR3 1 


* 












DC 


«-* 




I 2 




DC 


»-* 




XRl 2 




DC 


*-* 




XR3 2 


* 


OC 
DC 
DC 


*-« 

*-* 
«-* 






# 


OC 
DC 
DC 


*-ft 

*-* 
«-* 







*ft#fc*ft*ft*ft#***»*ftft#ft#**ft#ft*#ftft**»ftft*#**ft**#*ft##ft*ft* 
ft ft 

*»*ft»******«*»*#»*ft* *»»**»*«*»»****»«******»***♦*»* 
ft 

* THIS RTN IS DESIGN TO ALL INCOMING 

* STATUS, SENSE. AND DATA AGAINST USER 

* SUPPLIED PARAMETERS 
* 

*«****ft*»ft*4**ft««««««*ft*ft«*****«****ft**«ft********** 
ft * 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 



17FE 



17FE 1 6D00 18CC 
1800 1 6F00 18CE 



1802 1 C480 0864 

1804 D001 

1805 6500 0000 

1807 C100 

1808 1 E400 18D2 
180A 1 D400 18D1 

180C C100 
180D 1 E400 1803 
180F 1 D400 1919 

1811 C101 

1812 1 D400 191B 

1814 C102 

1815 1 D400 1997 

1817 C103 

1818 I D400 19F6 

181A CIO*- 
181B 1 D400 19F9 

1810 C105 
181E 1 D400 19FA 



CHECK EOU * 

ft 

* HOUSEKEEPING 



STX LI 1CKEX+1 
STX L3 tCKEX+3 



ENTRY POINT 



SAVE XRl 
SAVE XR3 



FETCH PARAMETER LIST FROM USERS CALL 



LD I CKTV 
STO *+l 
LDX LI *-* 



LD 

AND 

STO 

LD 

AND 

STO 

LD 
STO 

LO 
STO 

LD 
STO 

LO 
STO 

LO 
STO 



1 
L SFOOO 
L SPH1F 

1 
L $OFFO 
L JPH2F 

1 +1 
L $PH2A 

1 +2 
L $PH3A 

1 +3 
L SPH4C 

1 +4 
L SPH4A 

1 +5 
L *PH4B 



FETCH LIST ADDRESS 
PLACE IN LDX 
XR1=USER LIST ADDRESS 

FLAG WORD 

CLEAR ALL BUT PHASE1 CNTL 

HOLD FOR PHASE1 

FLAG WORD 

CLEAR ALL BUT PHASE2 CNTL 

HOLD FOR PHASE2 

ADDRESS OF S/B CSW 
HOLD FOR PHASE 2 

ADDRESS OF S/B SENSE 
HOLD FOR PHASE 3 

WORD COUNT 
HOLO FOR PHASE4 

ADDRESS OF WAS DATA 
HOLD FOR PHASE4 

AODESS OF S/B DATA 
HOLD FOR PHASE4 



14N0V69 
431319 



30JAN70 
431319A 
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81140350 
81140360 
81140370 
81140380 
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81140410 
81140420 
81140430 
81140440 
81140450 
81140460 
81140470 
81140480 
81140490 
81140500 
81140510 
81140520 
81140530 
81140540 
81140550 
81140560 
81140570 
81140580 
81140590 
81140600 
81140610 
81140620 
81140630 
81140640 
81140650 
81140660 
81140670 
81140680 
81140690 
81140700 
81140710 
81140720 
81140730 
81140740 
81140750 
81140760 
81140770 
81140780 
81140790 
81140800 
81140810 
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DATE 
EC NO. 





* 










81140820 


1820 C106 




LD 


1 +6 


ADOESS 


OF USER MSG 


81140830 


1821 1 0400 1806 




STO 


L *PH5A 


HOLD FOR PHASES 


81140840 




* 










81140850 


1823 1 7401 0864 




MDX 


L CKTV.+l 


SET RETURN ADDRESS 


8 1140860 


1825 1000 


* 
* 


NOP 




FOR END 


OF PHASE 1 


81140870 
81140880 
81140890 




* 


SET ALL MESSAGE AREAS TO BLANKS OR XXXX 


81140900 




* 










81140910 


1826 1 6700 1A64 




LDX 


L3 *MID 


SET POINTER TO MSG 


81140920 




* 






* THIS POINTER WILL BE 


81140930 




* 






* USER THROUGH ALL PHASES 


81140940 




;■* 










81140950 


1828 1 C400 1807 




LD 


L iXXXX 


FETCH CHAR BCO XX 


81140960 


182A D3C8 




STO 


3 $CAW 


SET CAW= 


XXXX 


81140970 


182B D3CC 


» 


STO 


3 $CAW+1 






81140980 

81140990 


182C 0300 




STO 


3 SCSWC 


SET CSW 


CHANNEL STATUS 


81141000 


1820 0301 


* 


STO 


3 *CSWC+1 


TO XXXX 




81141010 
81141020 


182E 0303 




STO 


3 *CSWU 


SET CSW 


UNIT STATUS 


81141030 


1B2F 0304 


* 


STO 


3 *CSWU+1 


TO XXXX 




81141040 
81141050 


1830 03D6 




STO 


3 SCSWA 


SET CSW 


CHANNEL ADDRESS 


81141060 


1831 0307 


* 


STO 


3 SCSWA+1 


TO XXXX 




81141070 
81141080 


1832 0309 




STO 


3 $CSWB 


SET CSW 


BYTE CNTR 


81141090 


1833 D30A 


' * 


STO 


3 tCSWB+1 


TO XXXX 




81141100 
81141110 


1834 D30E 




STO 


3 $NSN1 


SET SENSE BYTE1 


81141120 


1835 03DF 




STO 


3 SNSN1+1 


TO XXXX 




81141130 


1836 03b0 




STO 


3 SNSN1+2 


* 




81141140 


1837 03E1 


,''■». 


STO 


3 $NSNl+3 


* 




81141150 
81141160 


1838 03E3 




STO 


3 $SNS2 


SET SENSE BYTE2 


81141170 


1839 03E4 




STO 


3 SSNS2+1 


TO XXXX 




81141180 


183A D3E5 




STO 


3 SSNS2+2 


» 




81141190 


1838 D3E6 


* 


STO 


3 SSNS2+3 


* 




81141200 
81141210 


183C 03E8 




STO 


3 $SNS3 


SET SENSE BYTE3 


81141220 


183D 03E9 




STO 


3 SSNS3+1 


TO XXXX 




81141230 


183E D3EA 




STO 


3 SSNS3+2 


# 




81141240 


183F D3EB 


» 


STO 


3 SSNS3+3 


* 




81141250 
81141260 


1840 D3ED 




STO 


3 $SNS4 


SET SENSE BYTE4 


81141270 


1841 D3EE 




STO 


3 $SNS4+1 


TO XXXX 




81141280 


1842 03EF 




STO 


3 SSNS4+2 


* 




81141290 


1843 D3F0 


» 


STO 


3 *SNS4+3 


* 




81141300 
81141310 


1844 03FC 




STO 


3 $SCSC 


SET S/B 


CSW CHANNEL STATUS 


81141320 


1845 D3F0 


* 


STO 


3 $SCSC+1 


TO XXXX 




81141330 
81141340 


1846 D3FF 




STO 


3 *SCSU 


SET S/B 


CSW UNIT STATUS 


81141350 


1847 0300 


* 


STO 


3 $SCSU+1 


TO XXXX 




81141360 
81141370 


1848 0302 




STO 


3 $SCSA 


SET S/B 


CSW ADDRESS 


81141380 


1849 0303 


* 


STO 


3 $SCSA+1 


TO XXXX 




81141390 
81141400 


184A 0305 




STO 


3 tSCSB 


SET S/B 


CSW BYTE CNTR 


81141410 


184B 0306 


* 


STO 


3 SSCSB+1 


TO XXXX 




81141420 
81141430 


184C 030A 




STO 


3 SSSS1 


SET S/B 


SENSE BYTE1 


81141440 


1840 D30B 




STO 


3 tSSSl+1 


TO XXXX 




81141450 


184E D30C 




STO 


3 SSSS1+2 


* 




81141460 


184F 0300 


..' # 


STO 


3 $SSSl+3 


* 




81141470 
81141480 


1850 030F 




STO 


3 tSSSZ 


SET S/B 


SENSE BYTE2 


81141490 
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DATE 
EC NO. 



STO 


3 


SSSS2+1 


TO XXXX 




STO 


3 


SSSS2+2 


* 




STO 


3 


JSSS2+3 


* 




STO 


3 


SSSS3 


SET S/B 


SENSE BYTE3 


STO 


3 


SSSS3+1 


TO XXXX 




STO 


3 


SSSS3+2 


* 




STO 


3 


SSSS3+3 


* 




STO 


3 


SSSS4 


SET S/B 


SENSE BYTE4 


STO 


3 


SSSS4+1 


TO XXXX 




STO 


3 


tSSS4+2 


* 




STO 


3 


SSSS4+3 


* 





BLANK OUT USER MESSAGE 



LDX 



1 -30 



IBM MAINTtNANCi: DIAGNOSTIC PROGRAM FOR THE IHOO SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



1851 D310 

1852 0311 

1853 0312 

1854 0314 

1855 D315 

1856 D316 

1857 D317 

1858 D319 

1859 D31A 
185A 0318 
185B D31C 



185C 61E2 

* 

1850 1010 
185E 1 D500 1A2B 

1860 7101 

1861 70FC 

* 
* 
* 

1862 C28D 

1863 D31E 



1864 1 4400 1E58 

* 

1866 D3A3 

1867 1800 

1868 D3A7 

* 
* 

1869 C2C1 
186A 42FD 
186B 03CB 
186C 18D0 
I860 D3CC 



SET COUNTER FOR POSITIONS 



SLA 16 CLEAR ACC TO ZEROS 

STO LI SUMSG+30 PLACE ZEROS IN AREA 

MDX 1 +1 DEC COUNTER 

MDX *-4 LOOP BACK UNTIL CTR ZERO 



SET DATA PRINT SW OFF 



LD 
STO 



2 TERM-TB 

3 SNDPT 



FETCH /FFFF 



CONVERT SECTION ANO RTN NUMBERS 
BSI L TCVSR CONVERT TO BCD 



STO 
RTE 
STO 



3 SSECT 

16 
3 $RTN 



PLACE IN MESSAGE 



FETCH CAW AND CONVERT TO BCD 

LD 2 CAWSV-TB FETCH CAW 

BSI 2 TCVBE-TB CALL CONVERT RTN 

STO 3 tCAW PLACE IN MESSAGE 

RTE 16 * 

STO 3 $CAW+1 * 



186E 1010 

186F D065 

1870 1 C400 18D1 

1872 1 4428 18DA 

1874 1 C400 196A 
1876 1 4C20 1880 

1878 1 C400 1919 
187A 1 E400 18D4 
187C 1 D400 1919 

187E 1 4400 180A 



* * 

« 

* PHASE 1 (CONTROL) 

* * 

* 

CLEAR ERROR FLAGS 

* 

FETCH CONTROL FLAG WORD 

BRANCH TO PHASE 2 IF NEG 

FETCH CALLED ONCE SW 
BRANCH IF SET 

FETCH PHASE 2 FLAG 
REMOVE ANY CHECK BITS 
REPLACE 

BSI I SPH2 CALL PHASE 2 WITH NO CHK 



SPH1 


SLA 




16 




STO 




*PH1E 




LO 


L 


*PH1F 




BSI 


L 


$PH2,+Z 


* 










LD 


L 


*PH2S 




BNZ 




SP101 


* 










LD 


L 


SPH2F 




AND 


L 


*P1CR 




STO 


L 


*PH2F 



14N0V69 
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81141600 

81141610 

81141620 

81141630 

81141640 

81141650 

81141660 

81141670 

81141680 

81141690 

81141700 

81141710 

81141720 

81141730 

81141740 

81141750 

81141760 

81141770 

81141780 

81141790 

81141800 

81141810 

81141820 

81141830 

81141840 

81141850 

81141860 

81141870 

81141880 

81141890 

81141900 

81141910 

81141920 

81141930 

81141940 

81141950 

81141960 

81141970 

81141980 

81141990 

81142000 

81142010 

81142020 

81142030 

81142040 

81142050 

81142060 

81142070 

81142080 

81142090 

81142100 

81142110 

81142120 

81142130 

81142140 

81142150 

81142160 

81142170 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



OATE 14N0V69 30JAN70 
EC NO. 431319 431319A 



PART NO. 2279472 
PAGE 32 











'* 








* TO BE ABLE TO PRINT 


81142180 










* 








* CSW WORDS 


81142190 










. * 










81142200 


1880 





1010 




tPlOl 


SLA 




16 


CLEAR ACC 


81142210 


1881 


1 


0400 


196A 


» 


STO 


L 


*PH2S 


RESET CALLED ONCE SW 


81142220 
81142230 


1883 





CO 40 






LD 




1PH1F 


FETCH CONTROL FLAG 


81142240 


1884 





100 2 






SLA 




2 


* 


81142250 


1885 


1 


4428 


196B 


■■ * 


BSI 


L 


*PH3,+Z 


BRANCH TO PHASE 3 


81142260 
81142270 


1887 


1 


C400 


1995 




LD 


L 


$P305 


FETCH CALLED ONCE SW 


81142280 


1889 


1 


4C20 


1890 


* 


BNZ 




SP102 


BRANCH IF SW SET 


81142290 
81142300 


188B 


1 


C400 


18F7 




LD 


L 


1P2WS+1 


FETCH UNIT STATUS 


81142310 


1880 





100E 






SLA 




UNCHK 


* TEST FOR UNIT CHECK 


81142320 


188E 


1 


442 8 


196B 


* 


BSI 


L 


SPH3.+Z 


* GET SENSE BYTES ANYWAY 


81142330 
81142340 


1890 





1010 




»P102 


SLA 




16 


RESET PHASE3 CALLED 


81142350 


1891 


1 


0400 


1995 


■' ' * 


STO 


L 


SP305 


SW 


81142360 
81142370 


1893 





C03D 






LD 




*PH1F 


FETCH CONTROL FLAG 


81142380 


1894 





1003 






SLA 




3 


* 


81142390 


1895 


1 


4428 


19C1 


'■ * 


BSI 


L 


*PH4t+Z 


CALL PHASE 4 


81142400 
81142410 


1897 





C03E 






LO 




SPH5A 


FETCH MSG AODR 


81142420 


1898 


1 


4C18 


18AA 


* 


BZ 




*PH05 


BRANCH IF ZERO 


81142430 
81142440 


189A 





0001 






STO 




* + l 


PLACE IN LOX 


81142450 


189B 





6500 


0000 




LDX 


LI 


*-* 


XR1=USER MSG 


81142460 


189D 


1 


6700 


1A0D 


* 


LDX 


L3 


SUMSG 




81142470 
81142480 


189F 





C100 




$PH04 


LD 


1 





FETCH USER WORD 


81142490 


18A0 





F280 






EOR 


2 


TERM-TB 


LAST WORO 


81142500 


18A1 


1 


4C18 


18AA 


* 


BZ 




*PH05 


BRANCH IF ENO 


81142510 
81142520 


18A3 





C100 






LD 


1 





MOVE TO AREA 


81142530 


18A4 





0300 




..-■ * 


STO 


3 





* 


81142540 
81142550 


18A5 





7101 






MDX 


1 


+ 1 


ADV POINTERS 


81142560 


18A6 





1000 






NOP 






» 


81142570 


18A7 





7301 






MDX 


3 


+ 1 


* 


81142580 


18A8 





10C0 






NOP 






* 


81142590 


18A9 





70F5 




* . 


MDX 




SPH04 


CONTINUE 


81142600 
81142610 










* TEST 


PRINT OPTIONS 




81142620 










: * 










81142630 


18AA 


1 


C400 


191A 


tPH05 


LD 


L 


SP2EF 


FETCH CSW ERROR 


81142640 


18AC 


1 


4C20 


18B9 




BNZ 




$PH06 


BRANCH IF ON 


81142650 


18AE 





C026 






LO 




iPHlE 


FETCH PHASE ERROR 


81142660 


18AF 


1 


4C20 


18B9 


* 


BNZ 




SPH06 


BRANCH IF ON 


81142670 
81142680 


18B1 





C286 






LD 


2 


TSH3-TB 


FETCH SW FUNCTION 3 


81142690 


18B2 





100F 






SLA 




15 


TEST SW 15 


81142700 


18B3 


1 


4C10 


18BE 


* 


BNN 




SPH08 




81142710 
81142720 


18B5 





C023 






LO 




$0K 


SET OK IN MSG 


81142730 


18B6 


1 


0400 


1A02 


* 


STO 


L 


SOKSP 


* 


81142740 
81142750 


18B8 





7003 




* 


B 




$PH07 




81142760 
81142770 


18B9 





C01E 




*PH06 


LO 




$ER 


SET ER IN MSG 


81142780 


1BBA 


1 


0400 


1A02 


# 
* 

" * 


STO 


L 


SOKSP 


• 


81142790 
81142800 
81142810 
81142820 










* MSG HAS BEEN SET GO 


PRINT 


81142830 










'1 * 










81142840 


18BC 





420C 




$PH07 


BSI 


2 


TLGMS-TB 


GO PRINT MSG 


81142850 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



OATE 
EC NO. 



18BD 


1 


1A0O 




* C 

* 


DC 




SMSG 










OLLECT ERROR FLAG 


18BE 


1 


C400 


191A 


4PH08 


LO 


L 


SP2EF 


18C0 


1 


4C18 


18C7 




BZ 




SCKEB 


18C2 





C012 






LO 




SPH1E 


18C3 





EAB7 






OR 


2 


H8000-TB 


18C4 


1 


ECOO 


191A 




OR 


L 


SP2EF 


18C6 





DOOE 




* 


STO 




SPH1E 


18C7 





COOO 




SCKEB 


LD 




SPH1E 


18C8 





4820 






BSC 




Z 


18C9 





4203 






BSI 


2 


THALT-TB 


18CA 





COOA 






LD 




SPH1E 


18CB 





6500 


0000 


SCKEX 


LDX 


LI 


*-* 


18CD 





6700 


0000 




LOX 


L3 


*-# 


18CF 


1 


4C80 


0864 


* 


asc 


I 


CKTV 


1801 





0000 




# 
$PH1F 


OC 




*-* 


18D2 





FOOO 




SFOOO 


DC 




/FOOO 


18D3 





OFFO 




SOFFO 


DC 




/OFFO 


18D4 





FOFF 




SP1CR 


DC 




/FOFF 


1805 





0000 




SPH1E 


OC 




*-* 


18D6 





0000 




SPH5A 


DC 




*-* 


1807 




0001 




SXXXX 


PRNT 




.XX. 


1808 




0001 




$ER 


PRNT 




.ER. 


18D9 




0001 




$0K 


PRNT 




.OK. 



MESSAGE ADDRESS 
: 0R RETURN TO USER 
FETCH PHASE2 ERROR FLAG 



GET MASTER ERROR FLAG 
PLACE CSW ERROR BIT 
PLACE CSW DEFINERS 
SET MASTER ERROR FLAG 

FETCH MASTER ERROR FLAG 
SKIP IF NOT SET 
ELSE GO TEST IF HALT 
RE-ESTABLISH ERROR FLAG 
RESTORE XRS 



RETURN TO USER 



18DA 0000 



180B 1010 

18DC 0030 

18DD C03B 

18DE 1008 

180F 1 4C20 18E2 

18E1 70FF 



18E2 6103 
18E3 1140 
18E4 1 C500 18E8 
18E6 D009 
18E7 7004 



18E8 1 08CC 

18E9 1 08C8 

18EA 1 08C4 

16EB 1 08C0 



18EC 61FC 
18E0 1 7404 18F0 



14N0V69 30JAN70 
431319 431319A 



* ASTERISK 
* 

* PHASE 2 (CSW PROCESSING! 

* 

* * 
****** $4***********3(1 ******#********#«*********#* *** 
* 

$PH2 DC *-* ENWY POINT 
* 

* EXAM CONTROL FLAGS FOR CHECKS TO BE MADE 
* 

ZERO ERROR FLAG 

* 

FETCH FLAG 

* 

BRANCH TO EST. WHICH CSW 

*************************************************** 

MDX *-l TRAP STOP 

***************************$*********************** 



SLA 


16 


STO 


SP2EF 


LD 


*PH2F 


SLA 


8 


BNZ 


SP201 



*P201 LDX 1 +3 

SLCA 1 

LD LI SP2PT 

STO SP2PS+1 



B 



SP210 



* 

* 

SP2PT OC SCSXC 
DC SCSX8 
OC SCSX4 
OC SCSXO 

* 

* GET WAS CSW WORDS 

* 

SP210 LOX 1 -4 



TEST CNTR 

COUNT 

FETCH POSITION TAftLE 

PLACE IN STATUS LO INST 

GO TO GET WAS CSW 



CSW LOCATIONS 

* 
* 

*. . 



SET XR 



MDX L *P2PS+l,+4 SET SCSX PTR 



PART NO. 2279472 


PAGE 32A i 


81142860 


O 


81142870 




81142880 




81142890 


! ° 


81142900 


81142910 


! 


81142920 


1 © 


81142930 


81142940 


1 


81142950 


: © 


81142960 


81142970 


1 


81142980 


© 


81142990 


81143000 




81143010 


i 


81143020 




81143030 




81143040 


j 


81143050 




81143060 




81143070 


; 


81143080 




81143090 




81143100 


; O 


81143110 




81143120 




81143130 


: O 


81143140 




81143150 




81143160 


O 


81143170 




81143180 




81143190 


O 


81143200 




81143210 




81143220 


; O 


81143230 




81143240 


. { ■ 


81143250 


; O 


81143260 




81143270 


. i 


81143280 


1 G 


81143290 




81143300 


■ ! 


81143310 


1 O 


81143320 




81143330 


1 


81143340 


: 


81143350 


81143360 




81143370 


! ° 


81143380 


81143390 


'' 


81143400 


; O 


81143410 


81143420 




81143430 


O 


81143440 


81143450 




81143460 


; 


81143470 


81143480 


■ ■ ! ■ 


81143490 


i ° 


81143500 


81143510 


■ .; 


81143520 


1 G 


81143530 




: © 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-28*1 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PART NO, 2279472 
PAGE 33 









# 












81143540 


18EF 





C500 0000 . 


$P2PS 


LD 


LI 


*-* 


FETCH SCSXX 


81143550 


18F1 


1 


DiOO 18FA 






STO 


LI 


SP2WS+4 


MOVE UP TO OUR TABLE 


81143560 


18F3 





7101 






MDX 


1 


+ 1 


DEC COUNTER 


81143570 


18F4 





70FA 






MDX 




$P2PS 




81143580 


18F5 





7004 


* 




B 




SP220 


BRANCH TO START CHECK 


81143590 
81143600 


18F6 





oooo 


$P2WS 


DC 




*-* 


CHANNEL STATUS 


81143610 


18F7 





0000 






DC 




*-* 


UNIT STATUS 


81143620 


18F8 





0000 






DC 




#-# 


ADDRESS 


81143630 


18F9 





0000 


* 




DC 




*-* 


BVTE CTR 


81143640 
81143650 








* 


START 


CHECK (1, UNIT STATUS) 


81143660 








* 












81143670 


18FA 


l 


6580 1918 


*P220 


LDX 


11 


SPH2A 


SET XR1=S/B CSW ADO 


81143680 


18FC 





1010 






SLA 




16 




81143690 


18F0 





D01C 






STO 




$P2EF 


ZERO ERROR FLAG 


81143700 


18FE 





C0F8 






LD 




SP2WS+1 


FETCH STATUS WORD 


81143710 


18FF 





42F0 


* 




BSI 


2 


TCVBE-TB 


CALL CONVERT RTN 


81143720 
81143730 


1900 





D3D3 






STO 


3 


tcswu 


PLACE IN MESSAGE 


81143740 


1901 





1800 






RTE 




16 


* 


81143750 


1902 





0304 


* 




STO 


3 


JCSWU+1 


* 


81143760 
81143770 


1903 





C015 






LD 




$PH2F 


FETCH FLAG 


81143780 


1904 





1004 






SLA 




4 


* 


81143790 


1905 


1 


4C10 191C 


* 




BNN 




*P230 


BRANCH NO CHECK 


81143800 
81143810 








* 


CHECK 


UNIT STATUS 




81143820 








* 












81143830 


1907 





C2D0 






LD 


2 


DVAOR-TB 


FETCH DEVICE ADDRESS 


81143840 


1908 





1008 






SLA 




8 


MOVE TO THE LEFT 


81143850 


1909 





E901 






OR 


1 


+ 1 


MERGE UNIT STATUS S/B 


81143860 


190A 





42FD 






BSI 


2 


TCVBE-TB 


CALL CONVERT RTN 


81143870 


1908 





0300 






STO 


3 


SSCSU+1 


PLACE IN MESSAGE 


81143880 


190C 





1800 






RTE 




16 


# 


81143890 


190D 





D300 


# 




STO 


3 


SSCSU+1 


# 


81143900 
81143910 


190E 





C0E8 






LO 




SP2WS+1 


FETCH UNIT STATUS 


81143920 


190F 





1008 






SLA 




8 


REMOVE UNIT ADDRESS 


81143930 


1910 





1808 






SRA 




8 


* 


81143940 


1911 





F101 






EOR 


1 


+ 1 


TEST WITH S/B 


81143950 


1912 


1 


4C18 191C 


* 




BZ 




SP230 


BRANCH NO ERROR 


81143960 
81143970 


1914 





C005 






LD 




SP2EF 


FETCH ERROR FLAG 


81143980 


1915 





E802 






OR 




SP2UF 


SET US FAILURE BIT 


81143990 


1916 





0003 






STO 




SP2EF 


REPLACE 


81144000 


1917 





7004 


• * 




B 




SP230 


BRANCH IF NEXT CHECK 


81144010 
81144020 


1918 





0800 


*P2UF 


DC 




/0800 


US FAIL BIT 


81144030 


1919 





0000 


SPH2F 


DC 




*-* 


FLAG STORAGE 


81144040 


191A 





0000 


*P2EF 


DC 




*-* 


ERROR FLAG SOTRAGE 


81144050 


191B 





0000 


SPH2A 


DC 




*-* 


ADORESS OF S/B STATUS 


81144060 








* 












81144070 








* 


CHECK 


TWO 


(2, CHANNEL STATUS! 


81144080 








* 












81144090 


191C 





C0D9 


SP230 


LO 




SP2WS 


FETCH CHANNEL STATUS 


81144100 


1910 





42FD 






BSI 


2 


TCVBE-TB 


CALL CONVERT RTN 


81144110 


191E 





D3U0 






STO 


3 


SCSWC 


PLACE IN MESSAGE 


81144120 


191F 





18 00 






RTE 




16 


* 


81144130 


1920 





0301 


* 




STO 


3 


SCSWC+1 


* 


81144140 
81144150 


1921 





C0F7 






LO 




SPH2F 


FETCH FLAG 


81144160 


1922 





1005 






SLA 




5 


* 


81144170 


1923 


1 


4C10 1933 


» 




BNN 




*P240 


BRANCH NO CHECK 


81144180 
81144190 








* 


CHECK 


CHANNEL STATUS 


81144200 








■ * 












81144210 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PART NO, 2279472 
PAGE 33A 



1925 





C100 




LD 


1 





FETCH S/B STATUS 


81144220 


1926 





42F0 




BSI 


2 


TCVBE-TB 


CALL CONVERT RTN 


81144230 


1927 





03FC 




STO 


3 


sscsc 


PLACE IN MESSAGE 


81144240 


1928 





1800 




RTE 




16 


« 


81144250 


1929 





D3F0 


* 


STO 


3 


sscsc+i 


# 


81144260 
81144270 


192A 





C100 




LD 


1 





FETCH S/B 


81144280 


1928 





FOCA 




EOR 




SP2WS 


TEST WITH WITH WAS 


81144290 


192C 


1 


4C18 1933 


* 


BZ 




SP240 


BRANCH NO ERROR 


81144300 
81144310 


192E 





COEB 




LD 




SP2EF 


SET CHANNEL STATUS 


81144320 


192F 





E802 




OR 


* 


SP2CF 


ERROR BIT IN FLAG 


81144330 


1930 





D0E9 


# 


STO 




SP2EF 


WORD 


81144340 
81144350 


1931 





7001 


# 


B 




SP240 


GO CHECK AOOESS 


81144360 
81144370 


1932 





0400 


SP2CF DC 




/0400 


ERROR FLG BIT 


81144380 








* 










8 1144390 








# 


CHECK 


THREE (3, CCW 


ADDRESS) 


81144400 








* 










81144410 


1933 





C0C4 


$P240 LO 




SP2WS+2 


FETCH CSW ADORESS 


81144420 


1934 





42FD 




BSI 


2 


TCVBE-TB 


CALL CONVERT RTN 


811444 30 


1935 





03D6 




STO 


3 


SCSWA 


PLACE IN MESSAGE 


81144440 


1936 





1800 




RTE 




16 


* 


81144450 


1937 





D3D7 


* 


STO 


3 


SCSWA+1 


* 


81144460 
8U44470 


1938 





COEO 




LO 




SPH2F 


FETCH FLAG 


81144480 


1939 





1006 




SLA 




6 


* 


81144490 


193A 


1 


4C10 194A 


* 


BNN 




SP250 


GO* TO NEXT CHECK 


81144500 
81144510 








* 


CHECK 


CCW 


ADDRESS 




81144520 








* 










81144530 


193C 





C102 




LO 


1 


+ 2 


FETCH S/B ADORESS 


81144540 


1930 





42FD 




BSI 


2 


TCVBE-TB 


CALL CONVERT RTN 


81144550 


193E 





0302 




STO 


3 


SSCSA 


PLACE IN MESSAGE 


81144560 


193F 





18D0 




RTE 




16 


* 


81144570 


1940 





D303 


* 


STO 


3 


SSCSA+1 


* 


81144580 
81144590 


1941 





C102 




LD 


1 


+ 2 


FETCH S/B ADDRESS 


81144600 


1942 





F0B5 




EOR 




SP2WS+2 


TEST WITH WAS 


81144610 


1943 


1 


4C18 194A 


* 


BZ 




SP250 


GO TO NEXT CHECK 


81144620 
81144630 


1945 





C0D4 




LD 




SP2EF 


SET ADORESS ERROR 


81144640 


1946 





E802 




OR 




SP2AC 


BIT 


81144650 


1947 





D0D2 




STO 




SP2EF 


# 


81144660 


1948 





7001 


* 


B 




SP250 


GO TO NEXT CHECK 


81144670 
81144680 


1949 





0200 


SP2AC DC 




/0200 


CCW ADDRESS CHECK 


81144690 








* 










81144700 








* 


CHECK 


FOUR (4, BYTE 


COUNTER) 


81144710 








• 










81144720 


194A 


1 


74FF 18F9 


SP250 MDX 


L 


$P2WS+3,-l 


ADJUST BYTE COUNTER 


81144730 


194C 





1000 




NOP 






* 


81144740 


194D 





1010 




SLA 




16 


SET ACC TO FOR SUBR. 


81144750 


194E 





90AA 




S 




*P2WS+3 


INVERT WORD COUNT 


81144760 


194F 





00A9 




STO 




SP2WS+3 


* 


81144770 


1950 





42F0 




BSI 


2 


TCVBE-TB 


CALL CONVERT RTN 


81144780 


1951 





0309 




STO 


3 


tCSWB 


PLACE IN MESSAGE 


81144790 


1952 





18D0 




RTE 




16 


* 


81144800 


1953 





03 DA 


* 


STO 


3 


*CSWB+l 


* 


81144810 
81144820 


1954 





C0C4 




LD 




SPH2F 


FETCH FLAG 


81144830 


1955 





1007 




SLA 




7 


» 


81144840 


1956 


1 


4C10 1966 


* 


BNN 




SP2EN 


GO TO EXIT RTN 


81144850 
81144860 








• 


CHECK 


BYTE COUNTER 




81144870 








* 










81144880 


1958 





C103 




LO 


1 


♦3 


FETCH S/B 


81144890 
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IBM MAINTENANCE 01 AGN0ST1 C, PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 
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DATE 
EC NO. 



1959 42FD 
195A D305 
195B 18D0 
195C 0306 

1950 C103 
195E F09A 
195F 1 4C18 1966 

1961 C088 

1962 E802 

1963 D0B6 

1964 7001 

1965 0100 



1966 COOO 

1967 D002 

1968 1 4C80 18DA 



196A 0000 



196B 0000 
196C 42F1 



196D CA29 
196E 1 6500 1A42 

1970 4027 

1971 1 C400 1801 

1973 1002 

1974 1 4C10 1991 

1976 C020 

1977 F2B0 

1978 1 4C18 1991 

197A C01C 
197B 0001 
197C 6500 0000 

197E C100 
197F F229 
1980 1 4C20 1986 

1982 C101 

1983 F22A 

1984 1 4C18 198B 

1986 1 COO 1805 

1988 E80D 

1989 1 D400 1805 



198B C101 
198C 1800 



BSI 
STO 
RTE 
STO 

LD 

EOR 
BZ 

LD 
OR 
STO 
B 



2 TCVBE-TB 

3 SSCSB 
16 

3 *SCSB+1 

1 +3 

SP2WS+3 

SP2EN 

SP2EF 
$P2BC 
*P2EF 
*P2EN 



iP2BC OC /0100 

* 

» EXIT PHASE 2 

* 

SP2EN ID * 

STO $PH2S 

BSC I SPH2 



CALL CONVERT RTN 
PLACE IN MESSAGE 



FETCH BYTE COUNTER S/B 
TEST WITH WAS 
GO TO EXIT RTN 

SET BYTE COUNTER FLAG 



GO TO EXIT 

BYTE COUNTER ERROR BIT 



SET CALLED 
ONCE 

RETURN TO PHASE 1 



$PH2S OC *-* 

* * 

# 

* PHASE 3 GET 3 CHECK SENSE BYTES 

* 

* * 
on************************************************** 
* 

$PH3 DC *-* ENTRY POINT 
* 

BSI 2 GETSN-TB GET SENSE BYTES 
* 

* BUILD WAS SENSE DATA 



LDD 2 SNWDS-TB 

LOX LI *SNS1 
BSI SP3CC 

LD L SPH1F 
SLA 2 ' 
BNN SP301 



LO 

EOR 

BZ 

* 

LD 

STO 

LOX 

« 

LO 

EOR 

BNZ 

» 

LO 

EOR 

BZ 

* 

tP303 LD 
OR 
STO 

JP302 LO 
RTE 



SPH3A 

2 TERM-TB 

$P301 

$PH3A 
*+l 
LI *-* 

1 

2 SNWDS-TB 
$P303 



CONVERT SENSE DATA 



FETCH MASTER FLAG 
SHOULD SENSE BE CHECKED 
BRANCH IF NO 

FETCH S/B SNS ADDRESS 
TEST FOR FFFF 
BRANCH NO COMPARE 

FETCH S/B SNS ADDRESS 
PLACE IN LDX 
XR1=S/B SNS ADDR 

FETCH FIRST TWO BYTES 
* 
BRANCH IF ERROR 



1 +1 FETCH SECOND TWO BYTES 

2 SNWDS+1-TB * 

$P302 BRANCH IF ERROR 



L $PH1E 

*P306 

L SPH1E 

1 1 
16 



SET ERROR FLAG 

» 

PLACE S/B SNS 
IN A,0 



PART NO. 2279472 
PAGE 34 



81144900 
81144910 
81144920 
81144930 
81144940 
81144950 
81144 960 
81144970 
81144980 
81144990 
81145000 
81145010 
81145020 
81145030 
81145040 
81145050 
81145060 
81145070 
81145080 
81145090 
81145100 
81145110 
81145120 
81145130 
81145140 
81145150 
81145160 
81145170 
81145180 
81145190 
81145200 
81145210 
81145220 
81145230 
81145240 
81145250 
81145260 
81145270 
81145280 
81145290 
81145300 
81145310 
81145320 
81145330 
81145340 
81145350 
81145360 
81145370 
81145380 
81145390 
81145400 
81145410 
81145420 
81145430 
81145440 
81145450 
81145460 
81145470 
81145480 
81145490 
81145500 
81145510 
81145520 
81145530 
8114 5540 
81145550 
81145560 
81145570 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



PART NO. 2279472 
PACE 34A 



DATE 
EC NO. 



1980 





C100 




LO 


1 





» 


81145580 


198E 


1 


6500 1A6E 




LDX 


LI 


$SSSO 


SET LINE PTR 


81145590 


1990 





4007 


* 


BSI 




SP3CC 


GO CONVERT 


81145600 
81145610 


1991 





cooo 


SP301 


LD 




* 


SET CALLED ONCE SW 


81145620 


1992 





0002 


* 


STO 




SP305 


# 


81145630 
81145640 


1993 


I 


4C80 196B 


* 


BSC 


I 


$PH3 


RETURN TO CONTROL 


81145650 
81145660 


1995 





0000 


SP305 


DC 




*-* 




81145670 


1996 





2000 


*P306 


OC 




/2000 


ERROR FLAG 


81145680 


1997 





0000 


$PH3A 

* 


OC 




*-* 


S/B ADDRESS 


81145690 
81145700 








* CONVERT SENSE DATA 


TO BINARY 


81145710 








* 










81145720 


1998 





0000 


$P3CC 

* 
* 
* 


OC 




*-* 


ENTRY POINT 


81145730 
81145740 
81145750 
81145760 


1999 





0822 


* 


STO 




SP3S1 


SAVE SENSE DATA 


81145770 
81145780 


199A 





C29B 




LD 


2 


K8-TB 


SET EIGHT 


81145790 


199B 





D024 


* 


STO 




SP3S2 


IN COUNTER 


81145800 
81145810 


199C 





C81F 




LDD 




$P3S1 


GET SENSE INFO 


81145820 


1990 





18 DC 


SP3S4 


RTE 




28 


* 


81145830 


199E 





D81F 




STO 




$P3S5 


SAVE FOR LOOP 


81145840 


199F 





108C 




SLT 




12 




81145850 


19A0 





1010 




SLA 




16 




81145860 


19A1 





1081 




SLT 




1 




81145870 


19A2 





1003 




SLA 




3 




81145880 


19A3 





1081 




SLT 




1 




81145890 


19A4 





1003 




SLA 




3 




81145900 


19A5 





1081 




SLT 




1 




81145910 


19A6 





1003 




SLA 




3 




81145920 


19A7 





1081 




SLT 




1 




81145930 


19A8 





42F0 




BSI 


2 


TCVBE-TB 


CONVERT TO HEX 


81145940 


19A9 





D100 




STO 


1 





STORE IN MESSAGE 


81145950 


19AA 





18D0 




RTE 




16 


* 


81145960 


19AB 





0101 


* 


STO 


1 


+ 1 


V 


81145970 
81145980 


19AC 





7102 




MDX 


1 


+2 


BUMP POINTER 


81145990 


19AD 





1000 


* 


NOP 






a 


81146000 
81146010 


19AE 





C011 




LO 




$P3S2 


FETCH COUNTER 


81146020 


19AF 





8297 




A 


2 


Kl-TB 


ADD ONE 


81146030 


1980 


1 


4C04 19B6 




BOD 




* + 4 


BRANCH IF ODD 


81146040 


19B2 





C2CF 




LD 


2 


SPACE-TB 


FETCH SPACE CHAR 


81146050 


19B3 





0100 




STO 


1 





PLACE IN MESSAGE 


81146060 


19B4 





7101 




MDX 


1 


+ 1 


AOV POINTER 


81146070 


19B5 





1000 




NOP 






* 


81146080 


19B6 





C807 




LDD 




SP3S5 


GET SNESE INFO BACK 


81146090 


19B7 


1 


74FF 19C0 




MDX 


L 


$P3S2t-l 


DEC LOOP COUNT 


81146100 


19B9 





70E3 


* 


MDX 




$P3S4 


LOOP UNTIL FINISHED 


81146110 
81146120 


19BA 


1 


4C80 1998 


* 


BSC 


I 


$P3CC 




81146130 
81146140 


19BC 




0000 




BSS 


E 





SAVE AREA 


81146150 


19BC 





0000 


$P3S1 


OC 




*-* 


* 


81146160 


19BD 





0000 




DC 




*-« 


* 


81146170 


19BE 





0000 


SP3S5 


DC 




»-* 


* 


81146180 


19BF 





0000 




DC 




*-* 


* 


81146190 


19C0 





0000 


tP3S2 

* 


OC 




*-» 


• 


81146200 
81146210 








#*#*#e****************«**********«***************** 


81146220 








« 








• 


81146230 








#**»#*******«*********»**»»***#»***#**#********♦*** 


81146240 








* 










81146250 



14N0V69 
431319 



30JAN70 
431319A 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTP 
1800-28*1 FUNCTION TEST (PHASE B) 

* PHASE * <M', fl CH£CK R0UTINE) 

* * 

19C1 0000 , ;!»n* ut *-* ENTRY POINT 



lor- 



■£AIF 



STX 2 SP4SV+1 



19C3 1 6580 19FB 
19C5 1 6680 19F9 
19C7 1 6780 19FA 

19C9 C200 
19CA F3Q0 
19CB 1 4C20 19D3 

19C0 7201 
19CE 1000 
19CF 7301 
19D0 1000 
1901 71FF 
19D2 70F6 



1903 1 4C18 19DC 

19D5 71FF 
1906 1000 

19D7 1 C400 1805 
19D9 E825 
19DA 1 0400 1805 

19DC C300 
1900 001E 
190E C200 
190F 0010 
19E0 691D 

19E1 6600 0000 
19E3 1 6700 1A64 



19E5 C016 
19E6 42FD 
19E7 0332 
19E8 1800 
19E9 D333 

19EA C012 
19E8 42F0 
19EC 0327 
19ED 1800 
19EE 0328 

19EF COOB 
19F0 9000 
19F1 42F0 
19F2 033D 
19F3 1800 
19F4 033E 

19F5 C2A9 
19F6 D31E 



DATE 14N0V69 30JAN70 
EC NO. 431319 431319A 



*P401 



LDX 
LOX 
LDX 

LO 

EGR 

BNZ 

MOX 
NOP 
MOX 
NOP 
MOX 
MOX 



tl SPH4C 

12 SPH4A 

13 SPH4B 

2 

3 
*P402 

2 +! 

3 +1 

1 -1 
$P401 



SP402 



BZ 

MOX 
NOP 

LO 
OR 
STO 

LO 

STO 

LD 

STO 

STX 



$P4SV LOX 
LDX 



SP403 



$P403 
1 -1 



L *PH1E 

SP4EF 

L tPHlE 

3 

SP4D1 
2 

SP4D2 

1 *?4Q3 

L2 *-* 
L3 $MID 



CONVERT OATA 



LD 

BSI 
STO 
RTE 
STO 

LO 

BSI 

STO 

RTE 

STO 

LD 

S 

BSI 

STO 

RTE 

STO 

LD 
STO 



$P4D1 

2 TCVBE-TB 

3 $DSB 
16 

3 *0SB+1 

$P4D2 

2 TCVBE-TB 

3 $DWS 
16 

3 SDWS+1 

*PH4C 
»P4D3 

2 TCVBE-TB 

3 SWWCT 
16 

3 SWWCT+1 

2 HOOFF-TB 

3 *NDPT 



SAVE XR2 

SET WORD COUNTER 
SET WAS ADDR 
SET S/B ADDR 

FETCH WAS DATA 
TEST WITH S/B OATA 
BRANCH IF ERROR 

ADV AOOR 

ADV ADOR 

DEC WORD COUNTER 



BRANCH NO ERROR 

ADJUST THE WORD COUNTER 

* 

SET ERROR FLAG 



FETCH S/B DATA 

SAVE 

FETCH WAS DATA 

SAVL KURD COUNTER 

RESTORE XR2 
RESTORE XR3 



CONVERT S/B 
CALL CONVERT RTN 
PLACE IN MSG 



CONVERT WAS 
CALL CONVERT RTN 
PLACE IN MSG 

* 



FETCH INITIAL WCNT 
SUB REMINDER 
CALL CONVERT RTN 
PLACE IN MESSAGE 



FETCH NEW LINE 
SET IN MESSAGE 



PART NO. 
PAGE 



81146260 

81146270 

81146280 

81146290 

81146300 

81146310 

81146320 

81146330 

81146340 

81146350 

81146360 

81146370 

81146380 

81146390 

81146400 

81146410 

81146420 

81146430 

81146440 

81146450 

81146460 

81146470 

81146480 

81146490 

81146500 

81146510 

81146520 

81146530 

81146540 

81146550 

81146560 

81146570 

81146580 

81146590 

81146600 

61146610 

31146620 

81146630 

81146640 

81146650 

81146660 

81146670 

81146680 

81146690 

81146700 

81146710 

81146720 

8ii4'.730 

81146740 

81146750 

81146760 

81146770 

81146780 

81146790 

81146800 

81146810 

81146820 

81146830 

81146840 

81146850 

81146860 

81146870 

81146880 

81146890 

81146900 

81146910 

81146920 

81146930 



PROG ID 
PAGE 



2279472 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



19F7 1 4C80 19C1 


BSC 
* 
tPH4A DC 


I $PH4 


19F9 0000 


*-* 


19FA 0000 


$PH4B DC 


*-» 


19FB 0000 


SPH4C DC 


*-* 


19FC 0000 


SP4D1 DC 


«-* 


19FD 0000 


$P4D2 DC 


*-* 


19FE 0000 


$P4D3 DC 


*-* 


19FF 1000 


$P4EF DC 


/1000 




* OUTPUT 


MSG AREA 


1A00 0002 


$MSG PRNT 


. **. 


1A64 


$MID EOU 


SMSG+100 


FF9E 


JOKER EOU 


*-$MID 


1A02 0000 


SOKSP DC 


*-* 


1A03 0001 


PRNT 


.- . 


1A04 0003 


PRNT 


.SECT- . 


FFA3 


SSECT EOU 


*-SMIO 


1A07 0000 


DC 


*-* 


1A08 0003 


PRNT 


.,RTN- . 


FFA7 


SRTN EOU 


*-$MID 


1A0B 0000 


DC 


*-* 


1A0C 0001 


PRNT 


. . 


1A0D 0015 


$UMSG PRNT 


. 


1A1C 0015 


PRNT 


. 


1A2B OOFF 


DC 


/OOFF 


1A2C 0003 


PRNT 


. CAW . 


FFCB 


SCAW EQU 


*-$MID 


1A2F 0000 


DC 


*-* 


1A30 0000 


DC 


*-* 


1A31 0003 


PRNT 


. CSW . 


FFOO 


tCSWC EQU 


*-SMID 


1A34 0000 


DC 


*-* 


1A35 0000 


DC 


*-* 


1A36 0001 


PRNT 


• • 


FFD3 


SCSWU EQU 


*-$MIO 


1A37 0000 


DC 


*-» 


1A38 0000 


DC 


*-* 


1A39 0001 


PRNT 


. 


FFD6 


$CSWA EQU 


*-$MID 


1A3A 0000 


DC 


*-* 


1*36 0000 


DC 


*-* 


1A3C 0001 


PRNT 


. . 


FFD9 


$CSWB EQU 


*-$MID 


1A3D 0000 


DC 


*-# 


1A3E 0000 


DC 


*-* 


FFDB 


$N0S1 EQU 


*-$MID 


1A3F 0003 


PRNT 


. SNS . 


FFDE 


SNSN1 EQU 


*-$MID 


1A42 0000 


tSNSl DC 


*-* 


1A43 0000 


DC 


*-# 


1A44 0000 


DC 


*-* 


1A45 0000 


DC 


*-* 


1A46 0000 


DC 


*-* 


FFE3 


SSNS2 EOU 


*-$MID 


1A47 0000 


DC 


*-* 


1A48 0000 


DC 


*-* 


1A49 0000 


DC 


*-* 


1A4A 0000 


DC 


*-* 


1A4B 0000 


DC 


*-* 


FFE8 


*SNS3 EQU 


*-SMID 


1A4C 0000 


DC 


*-* 


1A4D 0000 


DC 


*-* 


1A4E 0000 


DC 


*-* 


1A4F 0000 


DC 


*-» 


1A50 0000 


DC 


*-* 


FFED 


SSNS4 EQU 


*-$MID 



RETURN TO CONTROL 



TEMP SAVE AREA 



14N0V69 
431319 



30JAN70 
431319A 



PART NO. 
PAGE 



81146940 

81146950 

81146960 

81146970 

81146980 

81146990 

81147000 

81147010 

81147020 

81147030 

81147040 

81147050 

81147060 

81147070 

81147080 

81147090 

81147100 

81147110 

81147120 

81147130 

81147140 

81147150 

81147160 

81147170 

81147180 

81147190 

81147200 

81147210 

81147220 

81147230 

81147240 

81147250 

81147260 

81147270 

81147280 

81147290 

81147300 

81147310 

81147320 

81147330 

81147340 

81147350 

81147360 

81147370 

81147380 

81147390 

81147400 

81147410 

81147420 

81147430 

81147440 

81147450 

81147460 

81147470 

81147480 

81147490 

81147500 

81147510 

81147520 

81147530 

81147540 

81147550 

81147560 

81147570 

81147580 

81147590 

81147600 

81147610 



PROG 10 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1S00-2BA1 FUNCTION TI-SI (PHASE B) 



DATE 
EC NO. 



1A51 





0000 




DC 


*-* 


1A52 





0000 




DC 


*-* 


1A53 





oooo 




DC 


*-* 


1A54 





oooo 




DC 


#-w 


1A55 





oooo 




DC 


*-* 


1A56 




0001 




PRNT 


• • 


1A57 





00FF 




DC 


/OOFF 


1A58 




0003 




PRNT 


S/B . 


FFFC 







$SCSC 


EQU 


*-$MID 


1A60 





oooo 




DC 


#~* 


XA61 





oooo 




DC 


*-* 


1A62 




0001 




PRNT 


. . 


FFFF 







SSCSU 


EOU 


*-$MID 


1A63 





oooo 




DC 


*-# 


1A64 





oooo 




DC 


*-* 


1A65 




oooi 




PRNT 


. . 


0002 







SSCSA 


ecu 


*-$MID 


1A66 





oooo 




DC 


*-* 


1A67 





oooo 




DC 


*-* 


1A68 




oooi 




PRNT 


. . 


0005 







tSCSB 


EOU 


*-$MID 


1A69 





oooo 




DC 


*-* 


1A6A 





oooo 




DC 


#-* 


1A6B 




0003 




PRNT 


. S/B . 


000A 







$SSS1 


EOU 


*-*MID 


1A6E 





oooo 


SSSSO 


DC 


*-* 


1A6F 





oooo 




DC 


*-# 


1A70 





oooo 




DC 


*-* 


1A71 





oooo 




DC 


*-* 


1A72 





oooo 




DC 


*-* 


0O0F 







*SSS2 


EOU 


*-SMID 


1A73 





oooo 




DC 


*-* 


1A74 





oooo 




DC 


*-« 


1A75 





oooo 




DC 


*-* 


1A76 





oooo 




DC 


#-* 


1A77 





oooo 




DC • 


*-* 


0014 







SSSS3 


EOU 


*-$MID 


1A78 





oooo 




DC 


*-* 


1A79 





oooo 




DC 


*-* 


1A7A 





oooo 




DC 


*-* 


1A7B 





oooo 




DC 


#-* 


1A7C 





oooo 




DC 


#-* 


0019 







SSSS4 


EOU 


*-$MID 


1A7D 





oooo 




DC 


*-* 


1A7E 





oooo 




DC 


*-* 


1A7F 





oooo 




DC 


*-# 


1A80 





oooo 




DC 


*-* 


1A81 





oooo 




DC 


*-* 


001E 







$NDPT 


EOU 


*-$MID 


1A82 





OOFF 




DC 


/OOFF 


1A83 




0008 




PRNT 


. DATA READ WAS . 


0027 







tows 


EQU 


*-$MID 


1ABB 





oooo 




DC 


*-* 


1A8C 





oooo 




DC 


#-* 


1A80 





OOFF 




DC 


/OOFF NEW LINE 


1A8E 




0008 




PRNT 


. DATA READ S/B . 


0032 







$OSB 


EOU 


*-$MID 


1A96 





oooo 


' \ . 


DC 


*-* 


1A97 





oooo 




DC 


*-» 


1A98 





00FF 




DC 


/OOFF 


1A99 




0008 




PRNT 


. WORD CNT WAS . 


0030 







$WWCT 


EQU 


*-$MID 


1AA1 





oooo 




DC 


*-* 


1AA2 





oooo 




DC 


*-* 


1AA3 





00FF 




DC 


/OOFF 


1AA4 





FFFF 




DC 


/FFFF 
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81147910 
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DATE 
EC NO. 











* 








81148300 










#*****##*#*#***##****#*#****#***###*#*##W#*#ft****** 


81148310 










# 






* 


81148320 










so************************************************* 


81148330 










# 






* 


81148340 










* 


TERLP IS CALLKD 3Y A **BS1 2 TLPER-T8** 


* 


81148350 










* 




TO TEST THE LOOP ERROR OPTION AND 


* 


81148360 










* 




BR TO THE LOOP ADDR IF BIT 12 IS SET 


* 


81148370 










* 






* 


81148380 










###### ^*#**#**##*Jp**##i4«)!:4#**#####** #*#¥#**#***#***# 


81148390 










# 






* 


81148400 










*#**#####*#**#####*######*###****#*###**##******$#* 


81148410 










# 








81148420 


1AA5 





C283 




TERLP 


LD 


2 TSWO-TB GET OPTION SWS 




81148430 


1AA6 





iooc 






SLA 


OLPER TEST LOOP ON ERROR 




81148440 


1AA7 


1 


4C28 


1AAD 


* 


BN 


TER01 YES 




81148450 
81148460 


1AA9 


1 


7401 


088E 




MDX 


L TLPER.l NO, BUMP RETURN 




81148470 


1AAB 


1 


4C80 


088E 


* 


BSC 


I TLPER CONTINUE 




81148480 
81148490 


1AAD 


1 


C480 


088E 


TER01 


LD 


I TLPER GET LOOP ADDRESS 




81148500 


1AAF 





D001 






STO 


TER02+1 PUT IN RETURN 




81148510 


1AB0 





4C00 


OOOO 


TER02 

» 


BSC 


L *-* CONTINUE 




81148520 
81148530 










******* #****###**^*###*##*#*#*#*#*#*##*#**#«****##* 


81148540 










* 






* 


81148550 










************************#*******************#*#***# 


81148560 










* 






» 


81148570 










* 


TSTLP IS CALLED 8Y A «8Sl Z TLPST-TB** 


* 


81148580 










* 




TO TEST THE LOOP START I/O OPTION 


* 


81148590 










* 




AND BR TO THE LOOP ADDR IF BIT 


* 


81148600 










* 




8 IS SET 


* 


81148610 










* 








81148620 










****#***#**#*##***«**«»****#*#*»***#*#***#******»♦* 


81148630 










* 






* 


81148640 










***##*****#**#***«***#****»**###************»****«* 


81148650 










* 








81148660 


1AB2 





C283 




TSTLP 


LD 


2 TSW0-T8 GET OPTION SWS 




81148670 


1AB3 





1008 






SLA 


OLPST TEST LOOP SIO 




81148680 


1AB4 


1 


4C28 


1ABA 


# 


BN 


TST01 YES 




81148690 
81148700 


1AB6 


1 


7401 


0891 




MDX 


L TLPSTtl NO, BUMP RETURN 




81148710 


1AB8 


1 


4C80 


0891 


* 


BSC 


I TLPST CONTINUE 




81148720 
81148730 


1A8A 


1 


C48 


0891 


TST01 


LD 


I TLPST GET LOOP ADDRESS 




81148740 


1ABC 





D001 






STO 


TST02+1 PUT IN RETURN 




81148750 


1ABD 





4C00 


OOOO 


TST02 

* 


BSC 


L *-* CONTINUE 




81148760 
81148770 


1ABF 


1 


74FD 


0891 


TST03 


MDX 


L TLPST, -3 GO BACK 




81148780 


1AC1 


1 


C400 


0891 




LD 


L TLPST 




81148790 


1AC3 





0001 






STO 


TST04+1 




81148800 


1AC4 





4C00 


OOOO 


TST04 


BSC 


L *-* 




81148810 










*****##******#*#*«*********##**#**»*#** ##*##******* 


81148820 










* 






* 


81148830 










********#**####**#*****##***************#***»#****# 


81148840 










s 


HALT 


ROUTINE 




81148850 










* 




SETS BIT 15 IN TSWO ON AND LOOPS 




81148860 










* 




THRU MONITOR UNTIL BIT IS CLEARED. 




81148870 










* 








81148880 










#**###*#****#**#***#***#******#*****####>**##**>!<>)<#*# 


81148890 










* 






* 


81148900 










*###*#**##*#****##*##*#**##****#*******#*****##**** 


81148910 


1AC6 









THLTE 


EQU 


* 




81148920 


1AC6 





C283 






LO 


2 TSWO-TB GET OPTION SWS 




81148930 


1AC7 





100E 






SLA 


OHALT TEST FOR HALT ON ERROR 




81148940 


1AC8 


1 


4C10 


1AD9 


* 


BNN 


THLTR BR IF NO 




81148950 
81148960 


1ACA 





C203 




THLTG 


LD 


2 THALT-TB GET CALLING ADDRESS 




81148970 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYST.EM 
1800-2841 FUNCTION TEST (PHASE 8) 



DATE 
EC NO. 



1ACB 





42PD 


1ACC 





0020 


1ACD 





1090 


1ACE 





001F 


1ACF 





'.2 or. 


1AU0 


1 


IAIiB 


1A01 





C297 


1AD2 





EA83 


1AD3 





0283 


IAD* 





42FA 



1A05 C283 
1AD6 1 4C04 1A04 



1A08 42FA 
1AD9 1 4C80 0882 



0000 







0001 







0002 







0003 







0006 







0007 







0009 







000A 







000B 







000C 







0000 







000E 







OOOF 







1B26 




0000 


1B26 




0006 



BSI 


2 


TCVBE-TB 


CONVERT TO PRNT CODE 


STO 




THLT2 


SET IN MSG 


SLT 




16 


TO A 


STO 




THLT2+1 


SET IN MSG 


RSI 


2 


TLGMS-TB 


GO PRINT MSG 


01 




IMLTM 


MESSAOfc ADDRESS 


LD 


2 


Kl-TB 


SET BIT 15 


OR 


2 


TSWO-TB 


* 


STO 


2 


TSWO-TB 


# 



^ 



LOOP THRU MONITOR UNTIL READY 



THLTL BSI 2 STMLS-TB 

« RETURN HERE 

LO 2 TSWO-TB 
BOO THLTL 

* 

BSI 2 STMLS-TB 

THLTR BSC I THALT 



GO TO MONITRR 



GET SWITCH WORD 
BR IF STILL ON 



GO TO MONITOR 
RETURN TO CALLER 



1ADB 0018 


THLTM 


PRNT 


14E0 0002 


THLT2 


PRNT 


1AEF OOFF 




DC 


1AF0 001* 




PRNT 


1AFE OOFF 




DC 


1AFF 0011 




PRNT 


130A OOFF 




DC 


1B0B 0012 




PRNT 


1B17 OOFF 




DC 


1B1B 0012 




PRNT 


1B24 FFFF 




DC 



. *»*HALT — 2841 DIAGNOSTIC AT ADRS . 

/OOFF 

. TO CLEAR HALT SET SWITCHES-. 

/OOFF 

. S/P OOPP PPPPt P=PID. 

/OOFF 

. OES XXXX XXXX XXXX XXXO. 

/OOFF 

. PRESS CONSOLE INTERUPT. 

/FFFF 



*************************************************** 

* * 

* 

'* CALL #£#*####*#****#*#*#*#***** 

* * BSI 2 EROUT-TB * 

* * DC /0127 CNTRL TAGS * 

* * DC /ABCO ERR NUMBER » 

* * , (SECT.RT.ER) * 

* 

* * 
#*#### ft******************************************** 
* 

* EOUATES FOR EROUT TAGS 

* 

csw=scsxo 

CSW=SCSX4 
CSW=SCSX8 
CSW=SCSXC 
EXIT TO ERADR 
PRINT A BLANK LINE 
BYPASS HALT LOOP 
GET SENSE BYTES 
BYPASS LINE 1 
PRINT ERROR MSG 
PRINT CAW 

* CSW 

* SNS 
»♦***************#******#**#******************#**** 

* * 

ERMSG BSS E 

PRNT . **ER-XXXX . 



OECXO 


EQU 





0ECX4 


EQU 


1 


0ECX8 


EOU 


2 


OECXC 


EQU 


3 


OEXIT 


EOU 


6 


OEPBL 


EOU 


7 


OEBYP 


EOU 


9 


OEGSN 


EOU 


10 


0EL1B 


EOU 


11 


OEERR 


EOU 


12 


OECAW 


EOU 


13 


OECSW 


EOU 


14 


OESNS 


EQU 


15 
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PART NO. 
PAGE 



81148980 
81148990 
81149000 
81149010 
8] 149020 

mi 49D30 

8114904 
81149050 
81149060 
81149070 
81149080 
81149090 
81149100 
81149110 
81149120 
81149130 
81149140 
81149150 
81149160 
81149170 
81149180 
81149190 
81149200 
81149210 
81149220 
81149230 
81149240 
81149250 
81149260 
81149270 
81149280 
81149290 
81149300 
81149310 
81149320 
81149330 
8 1149340 
81149350 
81149360 
81149370 
81149380 
81149390 
81149400 
81149410 
81149420 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



PART NO, 2279472 
PAGE 37A 



DATE 
EC NO. 



1B2C 




003C 




PRINT 


BSS 


E 


60 


PRINT BUFFER 


81149660 


1B68 









ERTNE 


EOU 




* 


ENTRY POINT 


81149670 


1B6B 





C2D4 






LD 


2 


STKSW-TB 


GET RE-ENTRY SWITCH 


81149680 


1B69 


1 


4C20 


1B7B 




BNZ 




ERTN2 


BR IF SET 


81149690 


1B6B 


1 


6000 


1C3H 




STX 


LI 


FRT17+1 


SAVE REGS 


81149700 


1 1161) 


1 


6100 


1C3A 




SIX 


L3 


FRT1 7+3 


w* 


HI 149710 


1B6F 


1 


C480 


0867 




LD 


I 


EROUT 


GET FLAGS 


81149720 


1B71 





100A 






SLA 




OEGSN 


GET SENSE BYTES 


81149730 


1B72 


1 


4C10 


1B7B 




BNN 




ERTN2 


BR IF NO 


81149740 


1B74 





C2E8 






LD 


2 


EROUT-TB 


GET RETURN ADORS 


8 1149750 


1B75 





02D4 






STO 


2 


STKSW-TB 


SET SW 


81149760 


1B76 





42F1 






BSI 


2 


GETSN-TB 


GET SENSE BYTES 


81149770 


1B77 





C2D4 






LD 


2 


STKSW-TB 


GET SAVED ADDRESS 


81149780 


1B78 





D2E8 






STO 


2 


EROUT-TB 


SET FOR RETURN 


81149790 


1B79 





1010 






SLA 




16 


CLEAR SWITCH 


81149800 


1B7A 





02 04 




* 


STO 


2 


STKSW-TB 




81149810 
81149820 


1B7B 


1 


6780 


0867 


ERTN2 


L.DX 


13 


EROUT 


SET REG 


81149830 


1B70 





C300 






LD 


3 





GET OPTIONS/FLAGS 


81149840 


187E 





1007 






SLA 




OEPBL 


PRINT BLANK LINE FIRST 


81149850 


187F 


1 


4C10 


1B83 




BNN 




ERTN3 


BR IF NOT 


81149860 


1B81 





420C 






BSI 


2 


TLGMS-TB 


PRINT BLANK LINE 


81149870 


1B82 


1 


080C 




* 


DC 




TERM 


/FFFF 


81149880 
81149890 


1B83 





C300 




ERTN3 


LD 


3 





GET TAGS 


81149900 


1B84 





I00B 






SLA 




0EL1B 


BYPASS LINE 1 PRINT 


81149910 


1B85 


1 


4C28 


IBBB 




BN 




ERT10 


BR IF YES 


81149920 


1B87 





1001 






SLA 




0EERR-0EL1B ERROR MSG 


81149930 


1B88 


1 


4C10 


1B9B 


* 


BNN 




ERTN6 


BR IF NOT 


81149940 
81149950 


1B8A 





6100 






LDX 


1 





SET COUNT TO ZERO 


81149960 


1B8B 





C301 






LO 


3 


1 


GET MSG ADDRESS 


81149970 


1B8C 





D001 






STO 




ERTN4+1 


SET FOR LOAD INSTRUCTION 


81149980 


1B80 





C5 00 


0000 


ERTN4 


LD 


LI 


*-* 


GET WORD TO MOVE 


81149990 


1B8F 





F28D 






EOR 


2 


TERM-TB 


IS IT END OF MSG 


81150000 


1B90 


1 


4C18 


1B97 




BZ 




ERTN5 


BR YES 


81150010 


1B92 





F28D 






EOR 


2 


TERM-TB 


RESTORE DATA WORD 


81150020 


1B93 


1 


D500 


1B29 




STO 


LI 


ERMSG+3 


STORE IN TABLE 


81150030 


1B95 





7101 






MDX 


1 


1 


COUNT 


81150040 


1B96 





70F6 




* 


MDX 




ERTN4 


LOOP 


81150050 
81150060 


1B97 


1 


75 00 


1B29 


ERTN5 


MOX 


LI 


ERMSG+3 


POINT TO NEXT WORD 


81150070 


1B99 





1000 






NOP 








81150080 


1B9A 





7009 




* 


MDX 




ERTN7 




81150090 
81150100 


1B9B 





C301 




ERTN6 


LO 


3 


1 


GET MSG NUMBER 


81150110 


1B9C 





42FD 






BSI 


2 


TCVBE-TB 


CONVERT TO 43 CODE 


81150120 


1B9D 





D08B 






STO 




ERMSG+3 


STORE 


81150130 


1B9E 





1800 






XCH 






SWAP A-Q 


81150140 


1B9F 





D08A 






STO 




ERMSG+4 




81150150 


1BA0 





1010 






SLA 




16 


SET IN TWO BLANKS 


81150160 


1BA1 





0089 






STO 




ERMSG+5 


*« 


81150170 


1BA2 


1 


6500 


1B2C 


* 


LDX 


LI 


PRINT 


SET POINTER 


81150180 
81150190 


1BA4 





C2D0 




ERTN7 


LD 


2 


DVADR-TB 


GET DEVICE ADDRESS 


81150200 


1BA5 





42FD 






BSI 


2 


TCVBE-TB 


CONVERT TO 43 CODE 


B1150210 


1BA6 





1090 






SLT 




16 


LOW ORDER TWO BYTES ONLY 


81150220 


1BA7 





D274 






STO 


2 


UNADR+3-TB 


STORE FOR PRINT 


81150230 


1BA8 





C2E8 






LD 


2 


EROUT-TB 


GET CALLING ADORESS 


81150240 


1BA9 





9297 






S 


2 


Kl-TB 


POINT TO CALLING INSTRUCTN 


81150250 


1BAA 





42 FD 






BSI 


2 


TCVBE-TB 


CONVERT TO HEX 


81150260 


1BAB 





0278 






STO 


2 


UNADR+7-TB 




81150270 


1BAC 





1090 






SLT 




16 




81150280 


1BA0 





D279 






STO 


2 


UNADR+8-TB 




81150290 


1BAE 





6904 






STX 


1 


ERTN8+3 


SAVE REG IN INSTRUCTION 


81150300 


1BAF 





6100 




* 


LDX 


1 





SET COUNT 


81150310 
81150320 


1BB0 


1 


C5 00 


08F0 


ERTN8 


LD 


LI 


UNADR 


GET WORD TO MOVE 


81150330 



14N0V69 
431319 



30JAN70 
431319A 
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• O 


o 


FUNCTION TEST (PHASE B) 














i 




1BB2 


D5 00 


0000 . 


STO 


LI 


*-* 




STORE IN NEW LOC'N 


81150340 


O 


o 


1BB4 


F28D 




EOR 


2 


TERM-TB 


TEST FOR END OF MSG 


81150350 






1BB5 1 


AC 1 8 


1B89 


BZ 




ERTN9 




BR IF YES 


81150360 






1BB7 


7101 




MOX 


1 


1 




BUMP COUNT 


811 50370 


i o 


o 


1BB8 


70F7 


'.. * 


MOX 




ERTN8 




LOOP 


81150380 
81150390 






1BB9 


420C 


ERTN9 


BSI 


2 


TLGMS- 


TB 


GO PRINT MSG 


81150400 


! ° 


o 


1BBA 1 


1B26 




DC 




ERMSG 




ADDRESS OF MESSAGE 


81150410 




CO 






* 


— CAW— 


ADDRESS 


OF CCW CHAIN 


81150420 


, 


c— 


1BBB 


C300 


ERT10 


LD 


3 







GET TAGS 


81150430 


' O 


oO 


1BBC 


1000 




SLA 




OF.CAW 




TEST FOR CAW,CSW t SNS 


81150440 


I 


«=a- 


1BBD 1 


4C1R 


1C30 . 


BZ 




ERT15 




BR IF NONE 


81150450 






1BBF 1 


6500 


1B2C 


LDX 


LI 


PRINT 




SET POINTER TO AREA 


81150460 


O 


O 


1BC1 1 


4C10 


1BCD 


BNN 




ERT11 




BR IF NO CAW 


81150470 


; 




1BC3 


10A0 




SLT 




32 






81150480 






1BC4 


D900 




STD 


1 









81150490 


! ° 





1BC5 


7102 




MOX 


1 


2 






81150500 






1BC6 


CAC9 




LOO 


2 


PCAW-TB 


GET HEADER 


81150510 


1 




1BC7 


D900 




STD 


1 







STORE IN AREA 


81150520 


O 


o 


1BC8 


C2C1 




LD 


2 


CAWSV- 


T8 


GET CCW ADDRESS FOR SIO 


81150530 






1BC9 


42FD 




BSI 


2 


TCVBE- 


TO 


CONVERT TO EBC 


81150540 


! 




1BCA 


0902 




STD 


1 


2 




STORE IN AREA 


81150550 


i o 





1BCB 


7104 




MDX 


1 


4 




BUMP POINTER 


81150560 






1BCC 


1000 




NOP 










81150570 


! 








* 


— CSW— 


CHANNEL 


DSW WORDS 


81150580 


I o 


o 


1BCD 


C300 


ERT11 


LD 


3 







GET TAGS 


81150590 






1BCE 


100E 




SLA 




OECSW 




TEST FOR CSW TO BE PRINTED 


81150600 


{ 




1BCF 1 


4CiO 


1BFF 


BNN 




ERT12 




BR IF NOT 


81150610 


i o 


o 


1BD1 


C300 




LO 


3 







GET OPTION WORD 


81150620 






1BD2 1 


6700 


08C0 


LDX 


L3 


SCSXO 




POINT TO CSW SAVE AREA 


81150630 






1BD4 


ieoc 




SRA 




12 




SAVE BITS 0-3 


81150640 


1 o 





1BD5 


100C 




SLA 




12 




*** 


81150650 


i 




1BD6 


48 30 




SKP 




Z- 






81150660 






1B07 


7304 




MDX 


3 


4 




BUMP TO NEXT SAVE AREA 


81150670 


1 o 


o 


18D8 


1001 




SLA 




1 




TEST NEXT BIT 


81150680 


i 




1BD9 


4830 




SKP 




Z- 






81150690 


1 




1BDA 


7304 




MDX 


3 


<* 




8UMP TO NEXT SAVE AREA 


81150700 


: ° 


o 


1BDB 


1001 




SLA 




1 




TEST NEXT BIT 


81150710 


j 




1BDC 


48 30 




SKP 




z- 






81150720 


i 
i 




18DD 


7304 




MDX 


3 


4 




BUMP TO NEXT SAVE AREA 


81150730 


! o 


■o 


18DE 


1001 




SLA 




1 




TEST NEXT BIT 


81150740 






1BDF 


4830 




SKP 




z- 






81150750 


I 




1BEO 


7304 




MDX 


3 


4 




BUMP TO NEXT SAVE AREA 


81150760 


I o 


o 


1BE1 


CACB 




LDD 


2 


PCSW-TB 


GET 'CSW ' 


81150770 


I -w 




1BE2 


09 02 




STD 


1 


2 




SET IN MSG 


81150780 


! 




1BE3 


C300 




LD 


3 







GET CHANNEL STATUS WORD 


81150790 


! O 


o 


1BE4 


42FD 




BSI 


2 


TCVBE- 


-TB 


CONVERT 


81150800 


1 




1BE5 


0904 




STD 


1 


4 




STORE 


81150810 


1 
j 




1B66 


C301 




LD 


3 


1 




GET UNIT STATUS WORD 


81150820 


i o 


o 


IBS 7 


42 FD 




BSI 


2 


TCVBE- 


-TB 


CONVERT 


81150830 






1BE8 


0107 




STO 


1 


7 




STORE 


81150840 


. ; 




1BE9 


1090 




SLT 




16 






81150850 


I O 





1BEA 


D108 




STO 


1 


8 




STORE 


81150860 






1BEB 


C302 




LD 


3 


2 




GET CSW ADDRESS WORD 


81150870 






1BEC 


42F0 




BSI 


2 


TCVBE- 


-TB 


CONVERT 


81150880 


i ° 





1BED 


D«0A 




STD 


1 


10 




STORE 


81150890 


i 




1BEE 


C303 




LD 


3 


3 




GET BYTE COUNT 


81150900 






1BEF 


42FD 




BSI 


2 


TCVBE-TB 


CONVERT 


81150910 


! O 





1BFO 


D10D 




STO 


1 


13 




STORE 


81150920 


I 




1BF1 


1090 




SLT 




16 




TO A 


81150930 






1BF2 


D10E 




STO 


1 


14 




STORE 


81150940 





o 


1BF3 


C2CF 




LO 


2 


SPACE-TB 


GET SPACES 


81150950 






1BF4 


0100 




STO 


1 







*# 


81150960 






1BF5 


0101 




STO 


1 


1 




** 


81150970 


o 


o 


1BF6 


0106 




STO 


1 


6 




SET IN BETWEEN 


81150980 






1BF7 


D109 




STO 


1 


9 




SET IN BETWEEN 


81150990 


1 




1BF8 


D10C 




STO 


1 


12 




SET IN BETWEEN 


81151000 


' o 


o 


1BF9 


D10F 




STO 


1 


15 






81151010 


1 

! o 

1 


o 


14N0V69 30JAN70 












PROG ID 0811- 


•o ! o 


o 
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1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



1BFA Dill 
1BFB 710F 
1BFC 1000 
1BFD 1 6780 0867 

1BFF C300 
1C00 100F 
1C0I 1 4C10 1C29 
1C03 CACD 
1C04 D100 
1C05 1090 
1C06 DI01 
1C07 7103 
1C08 1000 
1C09 C29B 
1C0A D0A8 
1C08 CA29 



1 17 
1 15 



1C0C 
1C0D 
1C0E 
1C0F 

1C10 
1C11 
1C12 
1C13 
1C14 
1C15 
1C16 
1C17 
1C18 
1C19 
1C1A 
1C1B 
1C1C 
1C1D 
1C1E 
1C1F 
1C21 
1C22 
1C23 
1C24 
1C25 
1C26 
1C28 



18 DC 
0AC3 
108C 
1010 
1081 
1003 
1081 
1003 
1081 
1003 
1081 
42FD 
D100 
1090 
D101 
7102 
1000 
C095 

8297 

1 4C04 1C25 
C2CF 

D100 
7101 
1000 

CAC3 

1 74FF 1BB3 
70E3 



1C29 C28D 
1C2A D100 
1C2B 420C 
1C2C 1 1B2C 
1C2D C2D4 
1C2E 1 4C20 1C30 

1C30 C300 
1C31 1009 
1C32 1 4C28 1C35 
1C34 4203 

1C35 C300 

1C36 1006 

1C37 6500 0000 

1C39 6700 0000 

1C3B 1 4CA8 1C41 

1C3D 1 7402 0867 
1C3F 1 4C80 0867 
1C41 0000 



ERT12 



STO 
MDX 
NOP 

LOX 13 EROUT 
--SNS-- 
3 



ERT13 



ERT14 



LD 
SLA 

BNN 

LDD 

STO 

SLT 

STO 

MDX 

NOP 

LD 

STO 

LDD 

RTE 

STD 

SLT 

SLA 

SLT 

SLA 

SLT 

SLA 

SLT 

SLA 

SLT 

BSI 

STO 

SLT 

STO 

MDX 

NOP 

LD 

A 

BOD 

LD 

STO 

MDX 

NOP 

LDD 

MDX 

MDX 

LD 
STO 

BSI 
DC 
LD 
BNZ 



GET 2311 



OFSNS 

ERT14 
2 PSNS-TB 
1 

16 
1 1 

1 3 

2 K8-TB 
ERTN8+3 

2 SNWDS-TB 

28 
2 ERTSV-TB 

12 

16 

1 

3 

1 

3 

1 

3 

1 
2 TCVBE-TB 
1 

16 
I 1 

1 2 

ERTN8+3 

2 Kl-TB 
*+4 

2 SPACE-TB 
1 

1 1 

2 ERTSV-TB 
ERTN8+3.-1 
ERT13 

2 TERM-TB 

1 

2 TLGMS-TB 
PRINT 

2 STKSW-TB 
ERT18 



ERT15 LD 3 

SLA OEBYP 

BN ERT16 

BSI 2 THALT-TB 



ERT16 
ERT17 



* 
ERT18 



LD 3 
SLA OEXIT 

LDX LI *-* 

LDX L3 *-* 

BN I ERADR 

MDX L EROUT, 2 

BSC I EROUT 
ERADR DC *-* 

*******♦********#*****«* 



M 
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CLEAR NEXT SLOT TOO 


81151020 


BUMP POINTER 


81151030 




81151040 


RESTORE REG 


8.1151050 


SENSE INFORMATION 


81151060 


GET TAGS 


81151070 


TEST FOR SNS INFO 


81151080 


BR IF NO 


81151090 


GET HEADER WORDS 


H1151100 


STORE 


81151110 




81151120 


STORE 


81151130 


BUMP POINTER 


81151140 




81151150 




81151160 


SAVE TEMPORARILY 


81151170 


GET SENSE INFO 


81151180 




81151190 


MOVE AROUND 


81151200 


SAVE FOR LOOP 


81151210 




81151220 




81151230 




81151240 




81151250 




81151260 




81151270 




81151280 




81151290 




81151300 


CONVERT TO HEX 


81151310 


STORE IN TBLE 


81151320 


Q TO A 


81151330 


STORE 


81151340 


BUMP POINTER 


81151350 




81151360 


FETCH COUNTER 


81151370 


AOD ONE 


81151380 


BRANCH IF ODD 


81151390 


FETCH SPACE CHARACTERS 


81151400 


PLACE IN PRINT LINE 


81151410 


ADVANCE PRINT LINE POINTER 


81151420 




81151430 


GET SENSE INFO BACK 


81151440 


COUNT 


81151450 


LOOP UNTIL FINISHED 


81151460 




81151470 


SET /FFFF AT END 


81151480 


** 


81151490 


PRINT MESSAGE 


81151500 




81151510 


GET SWITCH 


811515?1 


EXIT IF SET 


8H51530 




8H51540 


GET TAGS 


8H51550 




8H51560 


BR IF NOT HALT 


8H51570 


WAIT FOR OPERATOR 


8H51580 




81151590 


GET TAGS 


8H51600 


TEST FOR OTHER EXIT 


8H51610 


RELOAD REGS 


8H51620 


*** 


8H51630 


BR IF YES 


81151640 




8H51650 


BUMP RETURN BY TWO 


8H51660 


EXIT 


8H51670 


RETURN ADDRESS PUT HERE 


8H51680 


*#**###****#***##***#*>* + #*# 


8H51690 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



1C42 
1C42 6920 

1C43 C2HD 
1C44 1890 
1C45 1 DCOO 09C0 
1C47 1 0400 09C2 

1C49 1 4400 1E58 
1C4B 0065 
1C4C 1090 
1C40 0067 

1C4E 1 6500 1C83 
1C50 1 6000 1711 

1C52 6105 
1C53 1 6D00 0859 

1C55 1 74FF 0859 
1C57 7001 
1C58 7031 



1C59 42F7 
1C5A 1 1C08 
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DATE 
EC NO. 



1C5B 1 6500 09C0 



1C5D 





C900 


1C5E 





1088 


1C5F 





D255 


1C60 





C102 


1C61 





1808 


1C62 





02DB 


1C63 





1088 


1C64 





1008 


1C65 





EAOB 


1C66 





D256 


1C67 





C241 


1C68 





100E 


1C69 


1 


4C28 1C73 


1C6B 





CA55 


1C6C 





9873 


1C6D 


1 


4C20 IC73 



1C6F 6500 0000 
1C71 1 4C80 0894 



1C73 
1C74 
1C75 
1C76 
1C77 
1C78 



C255 
4200 
42FD 
0030 
1090 
D02F 



1C79 C256 



* 








* 


81151700 


*************************************************** 


81151710 


SEEKX 


EOU 




« 


ENTRY POINT 


81151720 




STX 


1 


IR1 + 1 




81151730 


* 










81151740 




LD 


2 


TERM-TB 


SET HA AREA = ALL l'S 


81151750 




SRT 




16 


* 


81151760 




STD 


L 


RAREA 


BLANK RAREA 


81151770 




STO 


L 


RAREA+2 


BLANK RAREA 


81151780 


* 










81151790 




BSI 


L 


TCVSR 


GET SECT AND RTN NOS. 


81151800 




STO 




M6 


EST SECT. NO. 


81151810 




SLT 




16 




81151820 




STO 




M7 


EST. RTN. NO. 


81151830 


* 










81151840 




LDX 


LI 


ERR1 




81151850 




STX 


LI 


WTADR 


EST. TIMEOUT ADDR. 


81151860 


* 










81151870 




LDX 


1 


5 




81151880 




STX 


LI 


LPCT1 


EST. ERROR COUNTER 


81151890 


» 










81151900 


BR1 


MOX 


L 


LPCT1,-1 


DECR. LOOP COUNT 


81151910 




MOX 




*+l 


CONTINUE 


81151920 




MDX 




ERRX 


TAKE HARD ERROR EXIT 


81151930 


* 










81151940 


* 










81151950 




BSI 


2 


SI0-T8 


CALL SIO ROUTINE 


81151960 




DC 




SKCYL 


CCW ADDRESS 


81151970 


* 








1. SEEK CYL 198 HD 


81151980 


* 








2. READ HA 


81151990 


* 










81152000 


* 


GET HERE IF INTERRUPT RECEIVED 


81152010 


* 










81152020 




LDX 


LI 


RAREA 


FWA OF HOME AODR. 


81152030 


* 










81152040 




LDO 


1 


+ 




81152050 




SLT 




8 


A = CYLt CYL 


81152060 




STO 


2 


HA+O-TB 


HA+O ■ CYLt CYL 


81152070 


* 










81152080 




LD 


1 


+ 2 




81152090 




SRA 




8 




81152100 




STO 


2 


TEMP1-TB 




81152110 




SLT 




8 




81152120 




SLA 




8 




81152130 




OR 


2 


TEMP1-TB 


A » HD, HD 


81152140 




STO 


2 


HA+l-TB 


HA+1 » HD, HD 


81152150 


* 










81152160 




LD 


2 


SCSXO-TB 


LOOK AT UNIT STATUS 


81152170 




SLA 




UNCHK 


LOOK FOR UNIT CHECK 


81152180 




BN 




ERR2 


PRINT ERROR 


81152190 


* 










81152200 


* 


COMPARE ACTUAL 


AND EXPECTED HA 


81152210 


* 










81152220 




LDD 


2 


HA-TB 


ACTUAL HA 


81152230 




so 




SKARG+1 


EXPECTED HA 


81152240 




BNZ 




ERR2 




81152250 


* 










81152260 


IR1 


LDX 


LI 


*-* 


RESTORE IR1 


81152270 




BSC 


I 


SKTV 


RETURN TO CALLER 


81152280 


w 










81152290 


ERR2 


LD 


2 


HA-TB 


CYL NO 


81152300 




BSI 


2 


TCVHO-TB 


HEX TO DECIMAL 


81152310 




BSI 


2 


TCVBE-TB 


DECIMAL TO 1443 


81152320 




STO 




M2+9 




81152330 




SLT 




16 




81152340 




STO 




M2+10 


EST. CYL NO. 


81152350 


* 










81152360 




LD 


2 


HA+l-TB 


HEAD NO. 


81152370 



14N0V69 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



PART NO, 2279473 
PAGE 39A 



DATE 
EC NO. 



1C7A 





42FD 




BSI 


2 


TCVBE-TB 


HEX TO 1443 


81152380 


1C7B 





1090 




SLT 




16 




81152390 


1C7C 





D02E 


* 


STO 




M2 + 13 


EST. HEAD NO. 


81152400 
61152410 


1C7D 





42E8 




BSI 


2 


EROUT-TB 


CALL ERROR OUT ROUTINE 


81152420 


1C7E 





016B 




DC 




/016B 


FLAG BITS 


81152430 


1C7F 


1 


1CAD 




DC 




M5 


MSG NO OR ADDRESS 


81152440 


1C80 





420C 




BSI 


2 


TLGMS-TB 


CALL LOG ROUTINE 


81152450 


1C81 


1 


1C8E 




DC 




Ml 




81152460 


1C82 





7005 


* 


MDX 




ERR6 


GO WAIT FOR OPER ACTION 


81152470 
81152480 


1C83 





42E8 


ERR1 


BSI 


2 


EROUT-TB 


CALL ERROR OUT ROUTINE 


81152490 


1C84 





016B 




DC 




/016B 


FLAG BITS 


81152500 


1C85 


1 


1CAD 




DC 




M5 


MSG NO OR ADDRESS 


81152510 


1C86 





420C 




BSI 


2 


TLGMS-TB 


CALL LOG ROUTINE 


81152520 


1C87 


1 


1CBF 




DC 




M8 




81152530 


1C88 





4203 


ERR6 


BSI 


2 


THALT-TB 




81152540 


1C89 





70CB 


* 


MOX 




8R1 


RETRY SIO 


81152550 
81152560 


1C8A 





420C 


ERRX 


BSI 


2 


TLGMS-TB 


CALL LOG ROUTINE 


81152570 


1C8B 


1 


1CCA 


* 


DC 




MX 




81152580 
81152590 


1C8C 





4C80 012E 


* 


BSC 


I 


END 


TERMINATE 


81152600 
81152610 








* 


PRINT 


HARD ERROR 


MESS. AND EXIT 


81152620 








* 










81152630 








* 










81152640 


1C8E 




0015 


Ml 


PRNT 




. HA EXPECTED' CYL 0198, HD 00 . 


81152650 


1C9D 





FFOO 




DC 




/FFOO 


NEW LINE 


81152660 


1C9E 




0014 


M2 


PRNT 




•HA READ 


= CYL XXXX,HD XX. 


81152670 


1CAC 





FFFF 


* 


DC 




-1 




81152680 
81152690 


1CAD 




0002 


M5 


PRNT 




.25 . 




81152700 


1CAF 




0002 




PRNT 




•SECT. 




81152710 


1CB1 




0001 


M6 


PRNT 




• . 




81152720 


1CB2 




0003 




PRNT 




., RTN. 




81152730 


1CB5 


- 


0001 


M7 


PRNT 




. . 




81152740 


1CB6 




0008 




PRNT 




. , ERROR 


3N SEEK. 


81152750 


1CBE 





FFFF 


* 


DC 




-1 




81152760 
81152770 


1CBF 




0010 


M8 


PRNT 




.*** TIMEOUT ***. 


81152780 


1CC9 





FFFF 


* 


DC 




-1 




61152790 
81152800 


1CCA 




0013 


MX 


PRNT 




•**HARD ERROR** PROG TERM. 


81152810 


1CD7 





FFFF 


* 
* 
* 


DC 




-1 




81152820 
81152830 
81152840 
81152850 


1CD8 





0006 


SKCYL 


DC 




6 


BYTE COUNT 


81152860 


ICD9 





4007 




DC 




/40*256+SEEKC FLAGS AND OP CODE 


81152870 


1CDA 


1 


1CDF 


* 
* 


DC 




SKARG 


ADDRESS 


81152880 
81152890 
81152900 


1CDB 





0005 




DC 




5 


BYTE COUNT 


81152910 


1C0C 





001A 




DC 




0*256+RDHA 


FLAGS AND OP CODE 


81152920 


1CDD 


1 


09CO 


* 
* 


DC 




RAREA 


ADDRESS 


81152930 
81152940 
81152950 


1CDE 




0001 




BSS 


E 


1 


ALIGN TO ODD BOUNDARY 


81152960 


1CDF 





0000 


SKARG 


DC 









81152970 


1CE0 





00C6 




DC 




198 


CYLINDER 198 


81152980 


1CE1 





0000 


* 


DC 







HEAD 


81152990 
81153000 








*************************************************** 


81153010 








* 








• 


81153020 








*************************************************** 


81153030 








* 










81153040 








* 










81153050 
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30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE 8) 



*********************** **************************** 

.* » 

*************************************************** 



1CE2 
1CE2 C2 06 
1CE3 1 4C18 ice; 
1CE5 42FA 
1CE6 70FB 



1CE7 
1CE8 
1CE9 
1CEB 
ICED 
1CEF 



C20C 
D2D6 

D400 1DD0 
6F00 1DCA 
6D00 1DCC 



C283 
1CF0 100D 
1CF1 1 4C28 1DC7 

1CF3 C294 
1CF4 1 4C10 1CF7 

1CF6 70FF 



TLGME EOU 
LD 
BZ 
8SI 
B 

* 

TLGNB LD 
STO 
STO 
STX 
STX 
LD 
SLA 
BN 



-TB 



LGBSY- 
TLGNB 
STMLS-T8 
TLGME 

TLGMS-TB 

LGBSY-TB 

LEXIT+1 

TLGX3+1 

TLGX3+3 

TSWO-TB 

OBYPR 

TLGEN 



ENTRY POINT 
GET LOG BUSY SW 

BR IF NOT BUSY 
GO VISIT MONITOR 

ELSE LOOP 

GET CALLING ADDRS 

SET LOG BUSY SW 

SET RETURN ADDRS 

SAVE REG 

SAVE REG 

GET OPTION SWS 

BR IF BYPASS PRNTOUT 



LD 2 TLGED-TB GET EDIT FOR PRINTER 
BNN TLG01 BR IF NOT SELECTED 

*************************************************** 

MDX *-l TRAP STOP 
*************************************************** 
* RELEASE SC IN CASE SHARED CHANNEL 



1CF7 





C295 




1CF8 


1 


4C10 


1D06 


1CFA 





1010 




1CFB 


1 


D400 


1DD1 


1CFD 





C29E 




1CFE 





D2 37 




1CFF 





42FA 




IDOO 


1 


74FF 


08B6 


1D02 





70FC 




1D03 





42EB 




1D04 


1 


6C00 


1001 


1D06 





4480 


0131 


1D08 


1 


1D1F 




1D09 


1 


0813 




1D0A 


1 


1D93 




1D0B 


1 


080C 





TLG01 



TLG02 



1D0C C2DE 

IDOO 1 4C04 1014 

1D0F C2AA 
1D10 1 ECOO 1D93 
1D12 D25A 
1D13 7004 



1D14 
1D15 
1D17 
1D18 
1D19 



C2AD 

1 ECOO 1093 
D25A 

C2AE 

ECOO 1093 



1D1B D25C 

1D1C EA97 

1D1D 

1D1E 



D260 
7002 



LD 
BNN 

SLA 
STO 

LD 

STO 

BSI 

MDX 

MDX 

BSI 
STX 
BSI 

DC 
DC 
DC 
DC 

LO 
BOD 

LD 
OR 
STO 
MDX 



TLG40 LD 
OR 
STO 
LD 

OR 

STO 

OR 

STO 

MDX 



TLGCM 



101F 42FA 
1D20 70E5 

1D21 1 6580 1DD0 
1D23 C100 
1D24 D001 
1D25 6500 0000 



TLG03 



BSI 
MDX 



TLG04 LDX 
LD 
STO 
LDX 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



2 TSCEO-TB GET DDEF 

TLG02 BR IF NOT SEL 

16 CLEAR CHANNEL FREED SW 

L FRESW * 

2 K20-TB SET COUNTER FOR DELAY 

2 SCSN1-TB ** 

2 STMLS-TB GO TO MONITOR 

L SCSN1.-1 DECR. COUNTER 

*-4 LOOP UNTIL FINISHED 

2 FREOV-TB FREE SEL CHNL 

L FRESW SET SC FREED SW 

I REODV REQUEST DEVICE 

TLG03 BUSY RETURN 

TLGED EDIT FOR PRINTED 

TLGDA AREA CODE GIVEN BACK 

TERM TERMINATOR 

2 T45SW-TB GET 43/53 SW 

TLG40 BR IF 1443 



H0100-TB 
TLGDA 
TLGWR+1-TB 
TLGCM 



ELSE BUILD WRITE IOCC 



* GO TO COMMON RTN 



LI 



H0500-TB CREATE WR IOCG 

TLGDA OR IN AREA CODE 

TLGWR+1-TB 

H0700-TB CREATE SENSE IOCC 

TLGDA OR IN AREA CODE 

TLGSN+1-TB 

Kl-TB SET RESET BIT 

TLGSR+1-TB *** 

TLG04 GO TO PRINT 

STMLS-TB GO TO MONITOR 
TLG02 LOOP TO TRY AGAIN 

LEXIT+1 GET CALLING RTN ADDR 

GET MSG ADDRESS 

*+l SET FOR LOAD INDEX 

*-* LOAD REG 
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PAGE 
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81153180 


! O 


o | 


81153190 


| 




81153200 




! 


81153210 


1 o 


o 


81153220 


j 




81153230 




1 


81153240 


1 o 


O | 


81153250 


1 


! 


81153260 


1 


! 


81153270 


i ° 


O i 


81153280 




! 


81153290 


1 


i 


81153300 


j o 


O | 


81153310 




I 


81153320 


1 




81153330 


i ° 


o ! 


81153340 




i 


81153350 


i 




81153360 


i 


O : 


81153370 




j 


81153380 




j 


81153390 


! ° 


O ! 


81153400 


i 


j 


81153410 




\ 


81153420 


! O 


© : 


81153430 






81153440 


' 




81153450 


! o 


o \ 


81153460 


j. 


1 


81153470 




1 


81153480 


o 


o ■ 


81153490 




! 


81153500 


. 


i 


81153510 


o 


O ! 


81153520 






81153530 


i 


j 


81153540 


o 


o 


81153550 




I 


81153560 


i 


i 


81153570 


! O 


° j 


81153580 


1 


! 


81153590 


1 


i 


81153600 


! ° 


o i 


81153610 




■ i 
I 


81153620 


i 




81153630 


i O 


o 


81153640 




j 


81153650 






81153660 


O 


o 


81153670 






81153680 


1 . 


i ! 


81153690 


! o 


| O ! 


81153700 


j 


! I 


81153710 






81153720 


1 o 


; o ! 


81153730 


i 


i 



1 o ; o 

| O ; O 

! O O 

| O ; O 

i O I O 



i 



o o 



© 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



1D27 1 6000 1DD4 
1D29 1 6780 08D8 
1D2B 6B16 

1D2C C100 
102D F28D 
1D2E 1 4C18 1D34 

1030 C280 
1D31 E2B6 
1D32 42FD 
1D33 DB02 

1D34 1010 
1D35 D25E 
1036 D25F 
1D37 D05A 
1038 C299 
1D39 D300 
1D3A 7301 



STX 


LI 


TLGCH+2 


LDX 


13 


TLGWR 


STX 


3 


TLGBP+1 


LD 


1 





EOR 


2 


TERM-TB 


BZ 




TLG05 


LD 


2 


TPID-TB 


AND 


2 


H7FFF-TB 


BSI 


2 


TCVBE-TB 


STD 


3 


2 



TLG05 



1D3B 
1D3D 
1D3E 
1D3F 
1D40 
1D41 
1043 
1D45 
1D46 
1D47 
1D48 
1049 
1D4A 
1D4B 
1D4C 



0000 
1DD2 



1 4400 1D02 
700F 
1008 
EA5B 
D303 

7401 

1 4400 
7007 
1888 
C303 
1808 
1088 
D303 
7301 
70EE 



TLG06 



TLGBP 



SLA 

STO 

STO 

STO 

LD 

STO 

MDX 

BSI 

MDX 

SLA 

OR 

STO 

MDX 

BSI 

MDX 

SRT 

LD 

SRA 

SLT 

STO 

MDX 

MDX 



16 

TLGSW-TB 

TLGSW+1-TB 

TLGIS 

K3-TB 



1 



SAVE IN 'GET CHAR' RTN 
GET WRD COUNT ADDRESS 
SET FOR BUMPING 

GET FIRST DATA WORD 
COMPARE WITH /FFFF 
BR IF YES 

GET PID 

DROP SELECT BIT 
CONVERT TO 1443 CODE 
SET IN MSG 

CLEAR - 

* 1ST/2N0 CHAR SW 



INTERRUPT SW 



L TLGCH 
TLG07 
8 

2 TLGSP- 

3 3 

L *-*.! 

L TLGCH 

TLG07 



3 
8 
8 
3 
1 
TLG06 



BUMP TO PT TO BUFFER 

GET A CHARACTER 

COME HERE FOR HEX FF 
PUT IN HIGH ORDER BYTE 
TB SET LOW ORDER TO SP 
STORE IN BUFFER 
BUMP WORD COUNT 
GET ANOTHER CHARACTER 
IF CHARACTER IS HEX FF 
CHARACTER TO 
GET LAST CHARACTER 
BYTE TO LOW POSITION 
COMBINED BYTES IN A 
STORE IN BUFFER 
BUMP SINK 
LOOP UNTIL HEX FF 



1D4D C2DE 
1D4E 1 4C04 1D7A 

1D50 C25F 
1D51 1 4C18 1055 
1D53 C2B9 
1054 0303 

1D55 C2A9 
1D56 EB03 
1057 D303 

1D58 1 6500 1DF1 
1D5A 6936 
105B 1010 

1D5C D25E 



1D5D C032 
1D5E 1 0400 10F0 
1D60 7023 



1D61 1 6580 1091 
1D63 C25E 
1D64 1 4C18 1D6D 



* 
* 
* 
TLG07 



# 
TLG08 



TEST FOR 1443, IF YES GO TO XIO 
IF 1053 DO A CARRIAGE RETURN 

LD 2 T45SW-TB GET 43/53 SW 

BOD TLG42 BR IF 1443 

PUT TERMINATOR IN MESSAGE 

LD 2 TLGSW+1-T8 GET 1ST/2ND CHAR SW 

BZ TLG08 BR IF 2ND CHAR 

LD 2 HFFOO-TB ELSE GET TERMINATOR 

STO 3 3 PUT IN MESSAGE 



LD 
OR 
STO 



2 HOOFF-TB 

3 3 
3 3 



LDX LI TLGBA+1 
STX 1 TLGSV 
SLA 16 
STO 2 TLGSW-TB 



GET TERMINATOR 
PUT IN MESSAGE 



SET UP BUFFER POINTER 
SAVE 

CLEAR- 
* SECOND CHAR SW 



START LINE WITH A **CARRIAGE RETURN** 

LD TLGCR GET CR CHARACTER 
STO L TLGBA PUT IN OUTPUT AREA 
MDX TLG43 GO PRINT 



COME HERE FROM INTERRUPT ROUTINE IF 1053 



* 
TLGPR 



LDX 

LD 
BZ 



II TLGSV 
2 TLGSW-TB 
TLG09 



RESTORE POINTER 
GET 2ND CHAR SW 
BR IF (CHAR 1) 



14N0V69 
431319 



30JAN70 
431319A 



PART NQ. 
PAGE 



81153740 

81153750 

81153760 

81153770 

81153780 

81153790 

81153800 

81153810 

81153820 

81153830 

81153840 

81153850 

81153860 

81153870 

81153880 

81153890 

81153900 

81153910 

81153920 

81153930 

81153940 

81153950 

81153960 

81153970 

81153980 

81153990 

81154000 

81154010 

81154020 

81154030 

81154040 

81154050 

81154060 

81154070 

81154080 

81154090 

81154100 

81154110 

81154120 

81154130 

81154140 

81154150 

81154160 

81154170 

81154180 

81154190 

81154200 

81154210 

81154220 

81154230 

81154240 

81154250 

81154260 

81154270 

81154280 

81154290 

81154300 

81154310 

81154320 

81154330 

81154340 

81154350 

81154360 

81154370 

81154380 

81154390 

81154400 

81154410 



PROG ID 
PAGE 



2279472 
40A 



0811-0 
40A 



© 

o 

© 



o 



! O I 

: i 
i 

: O [ 
O f 

' I 
i © I 

I ° 

1 o 
i o 

! O 

i 

| o 

! ° 

' o 

i 

i ° 

: 

.; © 
i Q 
! O 

I . 

; ° 

i o 
■ o 

i 

I ° 

I 

! ° 
! © 

i 
i 

, o 

i 

: o 

!• 

i 
'i • 



ooooooooooooooooooooooooooooooooo« 



O : 

c 
o 

O ; 
o 

s ; 

© i 
O ! 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

G 

o 
S o 

1 ° 

I 

i o 

J 
t 

o 
o 
c 

! o 

c 
c 
c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2-841 FUNCTION TEST (PHASE 8) 



OATE 
EC NO. 



1066 





1010 


1067 





D25E 


1068 





cioo 


1069 





1008 


1D6A 





7101 


106B 





6925 


1D6C 





7005 


1060 





CIOO 


106E 





1808 


106F 





1008 


1070 


1 


6C00 080D 



1072 92B9 

1073 1 4C18 10B0 



SLA 16 ELSE RESET SW 

STO 2 TLGSW-TB * 

LO 10 GET CHARACTERS 

SLA 8 SAVE 2ND CHAR 

MDX 1 1 BUMP POINTER 

STX 1 TLGSV SAVE POINTER 

MOX TLG10 GO TO COMMON RTN 

* GET HERE IF PRINTING CHARACTER 1 
TLG09 LD 10 GET CHARACTERS 

SRA 8 

SLA 8 

STX L TLGSW SET 2ND CHAR SW 

* GET HERE IF PRINTING CHARACTER 2 
TLG10 S 2 HFFOO-TB TEST FOR END OF LINE 

BZ TLGX2 BR IF YES 



ELSE RESTORE CHAR 
RIGHT JUSTIFY CHAR 
CONVERT TO 1816 CODE 
PUT IN OUTPUT AREA 



* * 

* 

* 00 XIO WRITE- 

* PRINT A LINE (1443) 

* PRINT A CHARACTER (1053) 
* 

* * 



1075 82S9 




A 


2 HFFOO-TB 


1076 1808 




SRA 


8 


1D77 1 4400 


1E77 


BSI 


L TCV45 


1D79 D076 




STO 


TLGBA 



107A 





0A5B 




TLG42 


XIO 


2 


TLGSN-T8 


SENSE OSW 


1D7B 





18D0 






RTE 




16 


SAVE 


1D7C 





C2DE 






LD 


2 


T45SW-TB 


GET 43/53 SW 


1D7D 





4804 






SKP 




E 


SKIP IF 53 


1D7E 





108A 






SLT 




10 


SHIFT 31 FOR 43 


1D7F 





1095 






SLT 




21 


SHIFT 21 FOR 53 


1D80 


1 


4C10 


1084 




BNN 




TLG43 


BR IF READY 


1082 





42FA 






BSI 


2 


STMLS-TB 


ELSE GO TO MONITOR 


1D83 





70F6 




* 
TLG43 


MDX 




TLG42 


LOOP UNTIL READY 


1D84 





0A59 




XIO 


2 


TLGWR-TB 




1085 





68 OC 


>• ";' 




STX 




TLGIS 


SET INT SW 


1D86 





C23D 






LO 


2 


TERM-TB 


GET /FFFF 


1087 





0250 






STO 


2 


TLGCT-TB 


SET LOOP COUNT 


1088 





42FA 




TLG11 


BSI 


2 


STMLS-TB 


GO TO MONITOR 


1D89 





C008 






LO 




TLGIS 


TEST FOR INT 


1D8A 


1 


4C18 


10AC 




BZ 




TLGXR 


BR IF IT HAPPENED 


1D8C 


1 


74FF 


080C 




MDX 


L 


TLGCT.-l 


DECR COUNT 


1D8E 





70F9 






MOX 




TLG11 


LOOP 



108F 70FF 



***»,l^***«******»******** ******************* ****** 

MOX *-l TRAP STOP 
«**«**********#************************************ 

* 
a************************************************** 

* * 
a************************************************** 
* 

* PRINT INTERRUPT ROUTINE 



1090 8100 


TLGCR DC 


/8100 


CARRIAGE*RETURN 


1091 0000 


TLGSV DC 


*-* 


SAVE BUFFER POINTER 


1092 0000 


TLGIS DC 





INT SW 
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1 


81154960 


! O 


O i 


81154970 


i 




81154980 


; 




81154990 


' o 


o ! 


81155000 


1 




81155010 


1 


1 


81155020 


! o 


o 


81155030 


I 




81155040 


j 




81155050 


! o 





81155060 


i 




81155070 






81155080 


o 


© 


81155090 


j 






i o 


o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



1093 0000 

1094 0000 

1095 COFC 
1D96 4B18 

1097 70FF 

1098 1 0C00 08DE 
1D9A 1 4C28 10A0 

1D9C 1002 
109D 1 4C.28 IDAS 

1D9F 70FF 

10A0 1800 
1DA1 C2DE 
1DA2 F297 
10A3 1 4C20 IDAS 
10A5 1092 
1DA6 1 4C10 1DAA 

IDAS 1010 
1DA9 D0E8 
10AA 1 4C80 1094 



1DAC C043 
10AD 1808 
1DAE 1 4C20 1061 



1 6780 08D8 

1 6F00 1042 

C299 
1DB5 0300 
10B6 7301 
1DB7 10A0 

DB01 

025E 

4017 

7002 

1 4C00 1D3E 



10B0 
1DB2 
10B4 



1DB8 
1DB9 
1DBA 
10BB 
1DBC 



1DBE 4480 0132 
1DC0 1 0813 
10C1 1 080C 
1DC2 COOE 
1DC3 4820 
10C4 42EE 

1DC5 1010 
1DC6 OOOA 



7401 1DDO 
6700 0000 
6500 0000 



10C7 1 

1DC9 

1DCB 

10CD 1010 

10CE D206 

10CF 4C00 0000 

1DD1 0000 



TLGDA DC 


*-* 


TLGIN DC 


*-* 


LO 


TLGIS 


SKP 


•i — 


*♦♦###*#*##*#******#** 


MDX 


*-l 


##***##**#**#***#***** 


xio 


L TLGSR 


BN 


TLG12 


SLA 


2 


BN 


TLG13 


3#**tfc«a a************** 


MOX 


*-l 


******* a************** 


TLG12 RTE 


16 


LD 


2 T45SW-TB 


FOR 


2 Kl-TB 


BNZ 


TLG13 


SLT 


18 


BNN 


TLG13+2 



TLG13 SLA 16 

STO TLGIS 
BSC I TLGIN 



AREA CODE PUT HERE BY MON 
INTERRUPT ENTRY POINT 
GET INT SWITCH 
SKIP IF NONZERO 
a**************************** 

TRAP STOP 
a***!************************* 

SENSE RESET OSW 

BR IF XFER COMPLETE (1443 
* OR SVC RESPONSE (1053) 
TEST FOR PRINT COMPLETE 

BR IF YES 

**#*#****#&******##********** 

TRAP STOP 

*#***$#****<#*#$************#* 

SAVE OSW 
GET 43/53 SW 
TEST FOR 1443 

BR IF 1053 
GET OSW (PRINT COMPLETE) 



CLEAR INT SWITCH 
EXIT INT RTN 



* 
***** 



********************************************** 

* 
********************************************** 



MONITOR COMES HERE FROM INT RTN 



13 

L3 

2 

3 

3 

3 
2 



TLGBA 

8 

TLGPR 

TLGWR 

TI.GBP+1 

K3-TB 



1 

32 

1 

TLGSW-TB 

TLGCH 

TLG15 

TLG06+3 

RELDV 
TLGEO 
TERM 
FRESW 

Z 



GET WORD CNT 

TEST FOR 1053 CHAR 
BR IF 1053 

GET BUFFER ADDRESS 

SET PTR TO WORD COUNT 

SET WRD CNT = 3 

*** 

BUMP POINTER 

SET PIO=BLANKS IN MESSAGE 

* 

RESET 1ST/2ND CHAR SW 
GET A CHARACTER 

HERE IF HEX /OOFF 

. ELSE LOOP 



TLGXR LD 
SRA 
BNZ 

TLGX2 LDX 

STX 

LD 

STO 

MDX 

SLT 

STD 

STO 

BSI 

MDX 

BSC 
* 
TLG15 BSI 

OC 

DC 

LD 

BSC 

BSI 
* 

SLA 
STO 

TLGEN MDX 
TLGX3 LDX 

LDX 

SLA 

STO 
LEXIT BSC 
* 

FRESW DC CHNL RELEASED SW 

*************************************************** 
* * 



GO RELEASE DVC 
AODRS OF EDIT WRD 

GET CHNL RELS SW 
SKIP IF NOT SET 



2 GETDV-TB ELSE GET CHNL 



L 

L3 

LI 



16 
FRESW 



LEXIT+1,1 

*-* 

*-* 

16 

LGBSY-TB 

*-* 



RESET- 

* CHNL RELS 



SW 



BUMP RETURN BY 

RESTORE REG 

RESTORE REG 

RESET LOG BUSY 

* 

EXIT PRINT RTN 



SW 
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81155100 
81155110 
81155120 
81155130 
61155140 
81155150 
81155160 
81155170 
61155180 
81155190 
81155200 
81155210 
81155220 
81155230 
81155240 
81155250 
81155260 
81155270 
81155280 
81155290 
81155300 
81155310 
81155320 
81155330 
81155340 
81155350 
81155360 
81155370 
81155380 
81155390 
81155400 
81155410 
81155420 
81155430 
81155440 
81155450 
81155460 
81155470 
81155480 
81155490 
81155500 
81155510 
81155520 
81155530 
81155540 
81155550 
81155560 
81155570 
81155580 
81155590 
81155600 
81155610 
81155620 
81155630 
81155640 
81155650 
81155660 
81155670 
81155680 
81155690 
81155700 
81155710 
81155720 
81155730 
81155740 
81155750 
81155760 
81155770 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



1DD2 





0000 




TLGCH 


DC 


1D03 





6500 


0000 




LDX 


IDD5 





C25F 






LO 


1DD6 


1 


4C20 


10DD 




BNZ 


10D8 


1 


6C00 


08DE 




STX 


1DDA 





C100 






LD 


1DDB 





18 08 






SRA 


1DDC 





7007 




* 
TLG16 


MDX 


1DD0 





1010 




SLA 


10DE 





D25F 






STO 


1DDF 





C100 






LO 


10E0 





1008 






SLA 


10E1 





1808 






SRA 


1DE2 





7101 






MDX 


1DE3 





69F0 




* 
TLG17 


STX 


IDE* 


1 


4C20 


1DE7 


BNZ 


1DE6 





C2 5B 






LD 


1DE7 





F2A9 




TLG18 


EOR 


1DE8 


1 


4C98 


1D02 




BZ 


IDEA 





F2A9 






EOR 


1DEB 


1 


7401 


1DD2 




MDX 


1DED 


1 


4C80 


1002 


* 


BSC 


10F0 




0000 




BSS 


1DF0 





0000 




TLGBA 


DC 


1DF1 




0003 






PRN 


1DF4 




0032 






BSS 



* 

* FETCH ONE CHARACTER FROM SOURCE MESSAGE 



*-* ENTRY POINT 

LI *-* SET UP POINTER 
2 TLGSW+1-TB GET 1/2 CHAR SW 

TLG16 BR IF SET 

L TLGSW+1 SET 1/2 CHAR SW 

1 GET TWO CHARACTERS 
8 KEEP HIGH ORDER ONE 
TLG17 GO TO CMN RTN 

16 CLEAR 1ST/2N0 CHAR SWITCH 

2 TLGSW+1-TB *** 

1 GET TWO CHARACTERS 

8 KEEP LOW ORDER ONE 

8 #*** 

1 1 BUMP SOURCE POINTER 

1 TLGCH+2 SAVE 

TLG18 SET TO SPACE IF ZERO 

2 TLGSP-TB *** 

2 HOOFF-TB TEST FOR HEX FF 
I TLGCH EXIT IF HEX FF 

2 HOOFF-TB RE-INVERT IT 
L TLGCH, 1 BUMP RETURN ADDRESS 



BSC I TLGCH 



EXIT THIS RTN 



1E26 



E 

*-* WORD COUNT FOR PRNT LINE 

. XXXX. PID GOES HERE 

50 LENGTH OF BUFFER 

* * 

* # 
* 

* CONVERT HEX WORD TO 1443 CODE 

* 

* * 
TCV8N EOU * ENTRY POINT 

GET NEXT CHARACTER 

GET NEXT CHARACTER 

GET NEXT CHARACTER 
GET NEXT CHARACTER 



ENTRY 



1E26 





18 DO 




RTE 




16 


1E27 





400E 




BSI 




TCVOl 


1E28 





1008 




SLA 




8 


1E29 





D2BE 




STO 


2 


TCVS1-TB 


1E2A 





400B 




BSI 




TCVOl 


1E2B 





EABE 




OR 


2 


TCVS1-TB 


1E2C 





02BE 


* 


STO 


2 


TCVS1-TB 


1E2D 





4008 


* 


BSI 




TCVOl 


1E26 





1008 




SLA 




8 


1E2F 





D28F 




STO 


2 


TCVS2-TB 


1E30 





4005 




BSI 




TCVOl 


1E31 





EABF 




OR 


2 


TCVS2-TB 


1E32 





1890 




SRT 




16 


1E33 





C2BE 




LO 


2 


TCVS1-TB 


1E34 


1 


4C80 087C 


* 
TCVOl 


BSC 


I 


TCVBE 


1E36 





0000 


DC 




*-* 


1E37 





1010 




SLA 




16 


1E38 





1084 




SLT 




4 
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81155780 
81155790 
81155800 
81155810 
81155820 
81155830 
81155840 
81155850 
81155860 
81155870 
81155880 
81155890 
81155900 
81155910 
81155920 
81155930 
81155940 
81155950 
81155960 
81155970 
81155980 
81155990 
81156000 
81156010 
81156020 
81156030 
81156040 
81156050 
81156060 
81156070 
81156080 
81156090 
81156100 
81156110 
81156120 
81156130 
81156140 
81156150 
81156160 
81156170 
81156180 
81156190 
81156200 
81156210 
81156220 
81156230 
81156240 
81156250 
81156260 
81156270 
81156280 
81156290 
81156300 
81156310 
81156320 
81156330 
81156340 
81156350 
81156360 
81156370 
81156380 
81156390 
81156400 
81156410 
81156420 
81156430 
81156440 
81156450 
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431319 



30JAN70 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 
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DATE 
EC NO. 



1E39 1 4C20 1E3E 
1E3B C2A3 
1E3C 1 4C80 1E36 



BNZ TCV02 
LD 2 HOOOA-TB 
BSC I TCVOl 



1E3E 





929C 


1E3F 





4830 


1E40 





82A7 


1E41 





829C 



TCV02 S 

SKP 

A 

A 



2 K9-TB 

Z- 
2 H0027-TB 
2 K9-TB 



1E42 1 4C80 1E36 



BSC I TCVOl 



BR IF NOT ZERO 

= /0A 
EXIT 

SUBTRACT 9 

ADD BACK A CONSTANT 

EXIT 



1E44 1 4CA8 087F 

1E46 1890 

1E47 AAA2 

1E48 100C 

1E49 DOOD 

1E4A 1004 

1E4B AAAO 

1E4C 1008 

1E4D E809 

1E4E D008 

1E4F 1008 



* * 
* 

* CONVERT HEX TO DECIMAL, A REG TO A REG 
* 

* *** CALL - BSI 2 TCVHO-TB *** 

* * 
* 

I TCVHD EXIT IF NEG 
16 

2 K1000-TB MOST SIGNIFICANT OIGIT 

12 POSITION DIGIT 
THEXS 

4 CLEAR A REG 



THEXD BN 
SRT 
D 

SLA 
STO 
SLA 



1E50 
1E51 
1E52 
1E53 
1E54 
1E55 



AA9D 
108C 
180C 
1084 
E802 
4C80 087F 



D 

SLA 
OR 
STO 
SLA 

D 

SLT 

SRA 

SLT 

OR 



2 K100-TB 
8 

THEXS 
THEXS 

8 

2 K10-TB 
12 
12 
4 
THEXS 



NEXT SIGNIFICANT OIGIT 
POSITION OIGIT 



CLEAR A REG 

NEXT SIGNIFICANT DIGIT 
COMBINE LAST TWO DIGITS 

*** 
*** 



1E57 0000 



BSC I TCVHD 

* 

THEXS DC 



TEMP STORAGE 



* * 

* » 

* 

* CALL BSI L TCVSR 

* GET AO = SPACE/SECT/SPACE/RTN 

* 

********************* *****ft*##******4********»*,i,#** 

* * 
********************** *****************$#*#*«#*#**# 



1E58 


0000 




TCVSR 


DC 




*-* 




1E59 


6B0A 






STX 


3 


TCVSZ+1 


SAVE REG 


1E5A 1 


6780 


0815 




LDX 


13 


TRIO 


GET ROUTINE NUMBER 


1E5C 1 


C700 


1E67 




LD 


L3 


DIGIT 


GT PRINTABLE CODE 


1E5E 


1890 






SRT 




16 


A TO 


1E5F 1 


6780 


0800 




LDX 


13 


TSID 


GET SECT NUMBER 


1E61 1 


C700 


1E66 




LD 


L3 


DIGIT-1 


GET PRINTABLE CODE 


1E63 


6700 


0000 


TCVSZ 


LDX 


L3 


»-* 


RESTORE REG 


1E65 1 


4C80 


1E58 


* 


BSC 


I 


TCVSR 


EXIT 


1E67 


0016 




OIGIT 


PRNT 




.0123 


4 5 6 7 8 9 ABC E F 



14N0V69 
431319 



30JAN70 
431319A 



81156460 
81156470 
81156480 
81156490 
81156500 
81156510 
81156520 
81156530 
81156540 
81156550 
81156560 
81156570 
81156580 
81156590 
81156600 
81156610 
81156620 
81156630 
81156640 
81156650 
81156660 
81156670 
81156680 
81156690 
81156700 
81156710 
81156720 
81156730 
81156740 
81156750 
81156760 
81156770 
81156780 
81156790 
81156800 
81156810 
81156820 
81156830 
81156840 
81156850 
81156860 
81156870 
81156880 
81156890 
81156900 
81156910 
81156920 
81156930 
81156940 
81156950 
81156960 
81156970 
81156980 
81156990 
81157000 
81157010 
81157020 
81157030 
81157040 
81157050 
81157060 
81157070 
81157080 
81157090 
81157100 
81157110 
81157120 
81157130 
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OATE 
EC NO. 









♦♦ft************************************************ 


81157140 








* 








* 


81157150 








*************************************************** 


81157160 








* 










81157170 








* 


CONVERT 


1443 CODE 


TO 1816/1053 CODE 


81157180 








* 










81157190 








*************************************************** 


81157200 








* 








* 


81157210 








*************************************************** 


81157220 


1E77 





0000 


TCV45 


DC 




*-* 




81157230 


1E78 





6B45 




STX 


3 


TCVSV+1 




81157240 


1E79 





D043 




STO 




TCVSV 


SAVE 1443 CHAR 


81157250 


1E7A 


1 


6700 1E90 




LDX 


L3 


TCVTB 


SET UP POINTER 


81157260 


1E7C 





10A0 




SLT 




32 


CLEAR AO 


81157270 


1E70 





C300 


TCV03 


LD 


3 





PICK UP NEXT ENTRY IN TBL 


81157280 


1E7E 





18C8 




RTE 




8 


DELETE TR CHAR 


81157290 


1E7F 





F030 




EOR 




TCVSV 


TEST CHAR 


81157300 


1E80 


1 


4C18 1E89 


# 


BZ 




TCV04 


CHAR COMPARES 


81157310 
81157320 


1E82 





1088 




SLT 




8 


RESTORE REG = 


81157330 


1E83 





E2A9 




AND 


2 


HOOFF-TB 


SET UP TO TEST 


81157340 


IE84 





F2A9 




EOR 


2 


HOOFF-TB 


* FOR TERMINATOR 


81157350 


1E85 


1 


4C18 1E8B 


* 


BZ 




TCVEN 


GO TO END ROUTINE 


81157360 
81157370 


1E87 





7301 




MDX 


3 


1 


INC POINTER 


81157380 


1E88 





70F4 


* 


MDX 




TCV03 


RETURN TO LOOP 


81157390 
81157400 


1E89 





1800 


TCV04 


XCH 






RESTORE TR CHAR 


81157410 


1E8A 





4818 


* 


SKP 




+- 


EXIT 


81157420 
81157430 


1E8B 





CO 30 


TCVEN 


LD 




TCVSP 


SET UP SPACE 


81157440 


1E8C 


1 


6700 1EBE 




LDX 


L3 


TCVSV+1 


RESTORE XR3 


81157450 


1E8E 


1 


4C80 1E77 




BSC 


I 


TCV45 


EXIT 


81157460 








a************************************************** 


81157470 








# 








* 


81157480 








*************************************************** 


81157490 


1E90 





313E 


TCVTB 


DC 




/313E 


AU443tTILT-R0TATE) 


81157500 


1E91 





321A 




DC 




/321A 


B 


81157510 


1E92 





33 IE 




DC 




/331E 


C 


81157520 


1E93 





3432 




DC 




/3432 


D 


81157530 


1E94 





35 36 




DC 




/3536 


E 


81157540 


1E95 





3612 




DC 




/3612 


F 


81157550 


1E96 





3716 




DC 




/3716 


G 


81157560 


1E97 





3826 




DC 




/3826 


H 


81157570 


1E98 





39 22 




DC 




/3922 


I 


81157580 


1E99 





217E 




DC 




/217E 


J 


81157590 


1E9A 





22 5A 




DC 




/225A 


K 


81157600 


1E9B 





235E 




DC 




/235E 


L 


81157610 


1E9C 





2472 




DC 




/2472 


M 


81157620 


1E90 





2576 




DC 




/2576 


N 


81157630 


1E9E 





2652 




DC 




/2652 





81157640 


1E9F 





2756 




DC 




/2756 


P 


81157650 


1EA0 





2866 




DC 




Z2866 


Q 


81157660 


1EA1 





2962 




DC 




/2962 


R 


81157670 


1EA2 





129A 




DC 




/129A 


S 


81157680 


1EA3 





139E 




DC 




/139E 


T 


81157690 


1EA4 





14B2 




DC 




/14B2 


U 


81157700 


1EA5 





15B6 




DC 




/15B6 


V 


81157710 


1EA6 





1692 




DC 




/1692 


w 


81157720 


1EA7 





1796 




DC 




/1796 


X 


81157730 


1EA8 





1BA6 




DC 




/18A6 


Y 


81157740 


1EA9 





19A2 


» 


DC 




/19A2 


Z 


81157750 
81157760 


1EAA 





01FC 




DC 




/01FC 


1(1443, TILT-ROTATE) 


81157770 


1EAB 





02D8 




DC 




/02D8 


2 


81157780 


1EAC 





03 DC 




DC 




/030C 


3 


81157790 


1EAD 





04F0 




DC 




/04FO 


4 


81157800 


1EAE 





05F4 




DC 




/05F4 


5 


81157810 
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FUNCTION TEST (PHASE B) 












1EAF 





06 DO 






DC 




/06D0 


6 


81157820 


1EB0 





07 D4 






DC 




/07D4 


7 


81157830 


1EB1 





08E4 






DC 




/08E4 


8 


81157840 


1EB2 





O9E0 






DC 




/09E0 


9 


81157850 


1EB3 





0AC4 




* 


DC 




/0AC4 





81157860 
81157870 


1EB4 





0021 






DC 




/0021 


SPI1443, TILT-ROTATE) 


81157880 


1EB5 





2CD6 






DC 




/2CD6 


* 


81157890 


1EB6 





1CFE 






DC 




/1CFE 


( 


81157900 


1EB7 





3CF6 






DC 




/3CF6 


) 


81157910 


1EB8 





11BC 






DC 




/11BC 


/ 


81157920 


1EB9 





2084 






DC 




/2084 


- 


81157930 


1EBA 





0BC2 






DC 




/0BC2 


= 


81157940 


1EBB 





OOFF 




TCVTC 


DC 




/OOFF 


TERM 


81157950 


1EBC 





2100 




TCVSP 


DC 




/2100 


SPACE 


81157960 


1EBD 





0000 




TCVSV 


DC 







TEMP STORAGE 


81157970 


1EBE 





0000 






DC 









81157980 










#*#»*#**#*###»)!##**##<(*##***)»* ».' 1 *#####>!<*j) 1 ###*###4###* 


81157990 










* 








# 


81158000 










*«###* #***4*6***##«»»#*4*&#*4ee>!<$4$tt<(*#>i'$4#>>#*«tt>!<4** 


81158010 










# 


WAIT 


FOR I/O INTERRUPT 


81158020 










8*#* ###$#****$*##***###** *****#*******#****#*****<>* 


81158030 










* 








* 


81158040 










****** ******#**##))i*#«#*#*W#>!t###*#*******##******#*# 


81158050 










* 










81158060 


1EBF 









TINTS 


EOU 




* 


ENTRY POINT 


81158070 


1EBF 





C28D 






LD 


2 


TERM-TB 


SET TIMEOUT COUNTER 


81158080 


1EC0 





D237 




* 


STO 


2 


SCSN1-TB 


* 


81158090 
81158100 


1EC1 





C27B 




TINS2 


LD 


2 


WIOSW-TB 


FETCH WAIT SWITCH 


81158110 


1EC2 


1 


4C20 


1ED0 


* 


BNZ 




TINS3 


BRANCH IF SET 


81158120 
81158130 


1EC4 


1 


74FF 


08 B6 




MDX 


L 


SCSN1.-1 


DEC WAIT COUNTER 


81158140 


1EC6 





70FA 




* 


MDX 




TINS2 


LOOP BACK AND WAIT 


81158150 
81158160 










* COME HERE 


IF TIMEOUT 




81158170 










* 










81158180 


1EC7 





0A37 






XIO 


2 


SCSN1-TB 


GET SELECTOR CHANNEL AND 


81158190 


1EC8 





D24D 






STO 


2 


SCSXC-TB 


UNIT STATUS. 


81158200 


1EC9 





0A3B 






XIO 


2 


SCSN3-TB 


* 


81158210 


1ECA 





D24E 






STO 


2 


SCSXC+1-TB 


* 


81158220 


1ECB 





0A3D 






XIO 


2 


SCSN4-TB 


* 


81158230 


1ECC 





D24F 






STO 


2 


SCSXC+2-TB 


* 


81158240 


1ECD 





0A3F 






XIO 


2 


SCSN5-TB 


* 


81158250 


1ECE 





D250 






STO 


2 


SCSXC+3-TB 


* 


81158260 


1ECF 





7006 




* 


MDX 




TINS4 


GO TO ERROR RETURN 


81158270 
81158280 


1ED0 


1 


7401 


0897 


TINS3 


MDX 


L 


WAITS.+l 


BUMP RETURN 


81158290 


1ED2 





1010 






SLA 




16 


RESET WAIT I/O SW 


81158300 


1ED3 





D27B 




« 


STO 


2 


WIOSW-TB 


* 


81158310 
81158320 


1ED4 


1 


4C80 


0897 


* 


BSC 


I 


WAITS 


RETURN TO USER 


81158330 
81158340 


1E06 


1 


C480 


0897 


TINS4 


LD 


I 


WAITS 


SET-UP ERROR RETURN 


81158350 


1ED8 





D003 






STO 




*+3 


* 


81158360 


1ED9 





1010 






SLA 




16 


RESET-WAIT SW 


81158370 


1EDA 





D27B 






STO 


2 


WIOSW-TB 




81158380 


1ED8 





4C00 


0000 


* 


BSC 


L 


*-* 


RETURN TO USER 


81158390 
81158400 










*************************************************** 


81158410 










* 








* 


81158420 










*************************************************** 


81158430 










• 










81158440 










* 


SPECIAL 


TIO ROUTINE 


81158450 










* 










81158460 










* 


WILL 


RETURN THE FOLLOWING CONDITIONS 


81158470 










* 


VIA 


THE 


A REG WHEN 


USER RETURN IS ISSUED. 


81158480 










* 










81158490 
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ISM MAINTENANCE 01 AGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



1EDD 



1EDD 1010 
1E0E D24B 



1E0F 0A35 
1EE0 1007 
1EE1 1 4C10 1EE6 

1EE3 0A3F 
1EE4 C2E4 
1EE5 7012 

1EE6 0A3F 
1EE7 0A20 

1EE8 42FA 
1EE9 C24B 
1EEA 1 4C13 1EE8 

1EEC C2*9 
1EE0 1 4C10 1EFI 

1EEF C2B1 
1EF0 7007 

1EF1 C24A 
1EF2 1008 
1EF3 1 4C18 1EF7 

1EF5 C2B7 
1EF6 7001 

1EF7 1010 

1EF8 1 4C80 0888 



* /OOOO DEVISE IS AVAILABLE — NO STATUS 

* /8000 CSW STORED 

* /4000 ADAPTER BUSY 

* /2000 NOT OPERATIONAL 

* 

###*#** *****##*****#*#**# ************************** 

* * 

*************************************************** 
TIOSE EOU * ENTRY POINT 



SLA 
STO 



16 CLEAR- 
2 SCSX8+2-TB * INTERRUPT SW 



TEST FOR ADAPTER BUSY 



XIO 
SLA 
BNN 

* 

XIO 

LD 

MOX 

* 

TI0S1 XIO 
XIO 

* 

TIOSF BSI 
LO 
BZ 

* 

LD 
BNN 

* 

LD 
MOX 

* 

TI0S2 LO 
SLA 
BZ 

* 

LD 
MDX 



2 SCSNO-TB 
SCABZ 
TI0S1 

2 SCSN5-TB 

2 H4000-TB 

TI0S3 

2 SCSN5-TB 
2 TIOXX-TB 



GET CHANNEL STATUS WORD 
TEST FOR ADAPTER BUSY 
BRANCH IF NOT BUSY 



FETCH RETURN CODE 
GO TO EXIT 



EXECUTE TIO 



2 STMLS-TB GO VISIT MONITOR 
2 SCSX8+2-TB FETCH INTERRUPT SW 
TIOSF BRANCH IF NOT YET 



2 SCSX8-T8 
TI0S2 



2 H2000-TB 
TI0S3 



FETCH CHANNEL STATUS 
BRANCH IF OPERATIONAL 



FETCH RETURN CODE 
GO TO EXIT 



2 SCSX8+1-TB FETCH UNIT STATUS 



8 
TI0S4 



2 H8000-TB 
T10S3 



CLEAR UN-IT ADDRESS 
BRANCH IF STATUS ZERO 



FETCH RETURN CODE 
GO TO EXIT 



SET RETURN CODE 
RETURN TO USER 



TI0S4 SLA 16 

* 

TI0S3 BSC I TIOSN 

a************************************************** 



**#**#**#**#******************* ******************** 

* CONVERT HOME ADDRESS TO 1443 CODE 

a************************************************** 

* * 
a************************************************** 



1EFA 






CVHAE 


EOU 


* 


ENTRY POINT 


1EFA 


6900 








STX 


1 CVHA1+1 


SAVE XR1 


1EFB 1 
1EFD 
1EFE 


C46 
D001 
6500 


0861 
0000 


* 
* 




LD 

STO 

LDX 


I CVHA 
•♦1 

LI *-» 


FETCH PARAMETER 
PLACE IN LOX 
XRl'PARM 








CONVERT HEAD OR CYLINDER 


IFOO 1 
1F02 
1F03 1 


C500 
18D0 
C500 


09C1 
09 CO 




LD 
RTE 

LD 


LI RAREA+1 

16 
LI RAREA 


FETCH DATA 
PLACE IN Q 
FETCH DATA 
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81158500 
81158510 
81158520 
81158530 
81158540 
81158550 
31158560 
81158570 
81158580 
81158590 
81158600 
81158610 
81158620 
81158630 
81158640 
81158650 
81158660 
81158670 
81158680 
81158690 
81158700 
81158710 
81158720 
81158730 
81158740 
81158750 
81158760 
81158770 
81158780 
81158790 
81158800 
81158810 
81158820 
81158830 
81158840 
81158850 
8II58860 
81158870 
81158880 
81158890 
81158900 
81158910 
81158920 
81158930 
81158940 
81158950 
81158960 
81158970 
81158980 
81158990 
81159000 
81159010 
81159020 
81159030 
81159040 
81159050 
81159060 
81159070 
81159080 
81159090 
81159100 
81159110 
81159120 
81159130 
81159140 
81159150 
81159160 
81159170 



14N0V69 
431319 



30JAN70 
431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



DATE 
EC NO. 



1F05 
1F06 






1088 
42FD 




SLT 
BSI 


8 

2 TCVBE-TB 


CALL CONVERT RTN 


1F07 
1F09 
1F0B 




1 
1 


6500 
7401 
4C80 


0000 
0861 
08 61 


CVHAl LDX 
MDX 
BSC 

* 


LI *-* 

L CVHAt+1 

I CVHA 


RESTORE XR1 

SET RETURN ADDRESS 

RETURN TO USER 










*************************************####***#*#*#** 



*****#******#***************************##****#**** 

* HOME ADDRESS COMPARE ROUTINE 

^a**********************************^:*^*****:*;^!* 

* * 

****** a******************************************** 



IFOO 



1F0D 
1F0E 

1F0F 
1F10 

1F11 
1F13 
1F14 



6924 
6B25 



1010 
D027 



1 C480 0873 

D001 

6500 0000 



HACRT EOU 

* 

STX 
STX 

* 

SLA 
STO 

* 

LO 

STO 

LDX 



1 HACR3+1 
3 HACR3+3 



16 
HACR5 



I HABLC 

* + l 
LI *-* 



1F16 1 7401 0873 



' * 
* 



MDX L HABLC.+l 



1F18 
1F1A 
1F1B 
1F1D 

1F1F 
1F20 
1F21 
1F22 
1F23 

1F24 
1F25 
1F26 

1F28 
1F29 

1F2B 
1F2C 

1F2D 
1F2E 
1F2F 

1F30 
1F31 
1F33 
1F35 

IF37 
IF 38 

1F38 

1F3A 

NO 



1 C480 0873 
D001 

6700 0000 

1 7401 0873 

C101 
18D0 
C100 
1088 
D013 

C301 

F011 

1 4C20 1F31 

COOF 

1 4C20 1F30 

COOO 
DOOB 

7101 
7301 
70EF 

1010 

6500 0000 

6700 0000 

1 4C80 0873 

0000 
0000 



0A8B 



LD 
STO 
LDX 
MDX 

» 

HACR1 LD 
RTE 
LD 
SLT 
STO 

* 

LD 

EOR 

8NZ 

LD 
BNZ 

* 

LD 
STO 

c 

MDX 
MDX 
MDX 



I HABLC 

*+l 
L3 *-* 
L HABLCt+1 

1 +1 

16 
1 

8 

HACR4 

3 +1 
HACR4 
HACR3 

HACR5 
HACR2 

* 
HACR5 

1 +1 
3 +1 

HACR1 



HACR2 SLA 16 

HACR3 LDX LI *-* 

LOX L3 *-* 

BSC I HABLC 

* 

HACR4 DC »-* 
HACR5 DC *-* 

* 

PEND EOU *-l 
END BGIN 



STATEMENTS FLAGGEO IN THE ABOVE ASSEMBLY 



ENTRY POINT 

SAVE XR1 
SAVE XR3 

CLEAR ACC 

RESET PASS SWITCH 

FETCH WAS ADDRESS 
SET IN LOX 
XR1=WAS ADDRESS 

ADVANCE PARM LIST 

FETCH S/B ADDRESS 
SET IN LDX 
XR3=S/B ADDRESS 
SET-UP RETURN ADDRESS 

FETCH WAS +1 

PLACE IN Q REG 

FETCH WAS +0 

SET-UP CYLINDER ONLY 

SAVE 

FETCH S/B WORD 

TEST FOR MATCH WITH WAS 

BRANCH IF ERROR 

FETCH SECOND PASS SW 
BRANCH IF SET 

FETCH A VALUE 
SET PASS SW 

ADV TO HEAD TEST 

* 

CONTINUE 

CLEAR ACC 
RESTORE XR1 
RESTORE XR3 
RETURN TO USER 

SAVE AREA 
PASS SWITCH 

END OF PGM 
XFER ADDRESS 



14N0V69 
431319 



30JAN70 
431319A 
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81159180 
81159190 
81159200 
81159210 
81159220 
81159230 
81159240 
81159250 
81159260 
81159270 
81159280 
81159290 
81159300 
81159310 
81159320 
81159330 
81159340 
81159350 
81159360 
81159370 
81159380 
81159390 
81159400 
81159410 
81159420 
81159430 
81159440 
81159450 
81159460 
81159470 
81159480 
81159490 
81159500 
81159510 
81159520 
81159530 
81159540 
81159550 
81159560 
81159570 
81159580 
81159590 
81159600 
81159610 
81159620 
81159630 
81159640 
81159650 
8 LI 59660 
81159670 
81159680 
81159690 
81159700 
81159710 
81159720 
81159730 
81159740 
81159750 
81159760 
81159770 
81159780 
81159790 
81159800 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



o 

o 

o 

o I 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

G 

o 
o 

! o 
o 
o 
o 

O I 



$CAW 

$CKEB 

tCKEX 

$CSWA 

iCSWB 

*cswc 
scswu 

SOSB 

sows 

$ER 

$F000 

$MID 

tMSG 

SNOPT 

SNOSl 

SNSN1 

SOK 

$OKER 

JOKSP 

$PH04 

*PH05 

SPH06 

SPH07 

SPH08 

JPH1 

1PH1E 

*PH1F 

*PH2 

SPH2A 

SPH2F 

JPH2S 

SPH3 

$PH3A 

SPH4 

SPH4A 

*PH4B 

$PH4C 

*PK5A 

JP1CR 

iPlOl 

*P102 

*P2AC 

*P2BC 

*P2CF 

*P2EF 

1P26N 

SP2PS 

JP2PT 

*P2UF 

4P2WS 

IP 201 

SP-210 

SP220 

SP230 

*P240 

iP2S0 

*P3CC 

iP3Sl 

SP3S2 

SP3S4 

SP3S5 

SP301 

4P302 

SP303 

*P305 

*P306 

SP4D1 

*P4D2 



FFCB 

1807 

18C8 

FFD6 

FF09 

FFDO 

FF03 

0032 

0027 

18 08 

1802 

lAt>4 

1A00 

001E 

FFOB 

FFOE 

1809 

FF9E 

1A02 

189F 

18 AA 

1869 

188C 

18BE 

186E 

1805 

1801 

180 A 

191B 

1919 

196A 

19AB 

1997 

19C1 

19F9 

19FA 

19FB 

16 06 

1BLH 

I860 

1890 

19*9 

1965 

1932 

191A 

1966 

18EF 

18E8 

1918 

18F6 

16E2 

18EC 

18FA 

191C 

1933 

194A 

1998 

19BC 

19C0 

199D 

19BE 

1991 

1986 

1986 

1995 

1996 

19FC 

19FD 



18?A 182B 1B6B I860 

18CQ 

17FE 1800 

1820 1831 1935 1937 

18S2 1833 1951 1953 

182C 1820 191E 1920 

182E 182F 1900 1902 

19E7 19E9 

19EC 19EE 

1869 

1808 ■'• 

1826 19E3 

I860 

1863 19F6 

1834 1835 1836 1837 
1865 

1866 18BA 
18A9 

1898 18A1 
18AC 18AF 
18B8 
18B3 



186F 
180A 
1872 
1812 
180F 
1874 
1885 
1815 
1895 
181B 

ieiE 

1818 
1621 
187A 
IB 76 
1839 
1946 
1962 
192F 
18AA 
1956 
18E6 
18E4 
1915 
183B 
18DF 
18E7 
18F5 
1905 
1923 
193A 
1970 
1999 
199B 
1989 
199E 
1974 
1984 
1980 
1887 
1988 
1900 
19DF 



18AE 
18 70 
187E 
18FA 
1878 
1881 
188E 
1976 
19F7 
19C5 
19C7 
19C3 
1897 
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0031 


0E07 


0EE6 


OEEF 


OEFB 


OF 04 


1180 
















SRCKE 


0029 




























SRCKH 


0049 




























START 


0120 


0986 


1700 
























STKSW 


0853 


OABA 


1B68 


1B75 


1B77 


1B7A 


1C2D 
















STMLE 


17B0 


087A 


























STMLL 


17DB 


17E0 


























STMLS 


0879 


09AC 
101F 


0AD9 
1082 


0AF3 
1088 


13E8 
1EE8 


170B 


171A 


17B0 


1705 


17E8 


1A04 


1AD8 


1CE5 


1CFF 


STMLX 


1702 


17F1 


























STMPS 


17EA 


17E3 


























STHPT 


17F0 


0A90 


17C1 


17C0 


17E1 




















STHRT 


17F1 


17CE 


17EA 
























STMSA 


17E0 


17BE 


17BF 


17C0 


17C3 


17C6 


17C9 


1707 


1709 


17E4 


17E6 








STMS6 


17E4 


17EC 


























STMST 


17F2 


17C4 


17C7 


17CA 


1704 


1706 


1708 


170B 


1700 












STSER 


08 EO 


16C5 
17A0 


16C8 
17B6 


16CA 
17B9 


1601 


1604 


1600 


16E0 


16F5 


16F8 


179F 


17A1 


17A3 


17AA 


TB 


087F 


0902 


0904 


0907 


090B 


090F 


0915 


0918 


09 IB 


091F 


0920 


0921 


0923 


0926 






0927 


0928 


0929 


092A 


0931 


0932 


0933 


0939 


09 3C 


0930 


093E 


0946 


0948 






094E 


0961 


0966 


0969 


096B 


0975 


097B 


0984 


09A7 


09A8 


09A9 


09 AC 


09B0 






09B1 


09B2 


09B3 


09B4 


09B5 


09B6 


09B7 


0980 


0A91 


0A96 


0A97 


0A98 


OA99 






0A9A 


0A9B 


0A9C 


0A9F 


OAAO 


0AA1 


0AA2 


0AA9 


OAAB 


0AB2 


OABA 


OABB 


OABC 






OABD 


OABE 


0AC2 


0AC4 


OACB 


0A04 


0A06 


0A09 


0AE6 


0AE8 


0AE9 


OAEA 


OAEB 






OAEC 


OAEO 


0AF1 


0AF3 


0AF4 


OAFS 


0AF9 


OAFA 


OAFO 


OAFE 


OAFF 


0802 


0B04 






0B06 


0809 


OBOA 


OBOB 


0800 


0B18 


0B1A 


0B1B 


0B1C 


0810 


0B1E 


0B21 


0B25 






0B26 


0B2A 


0B2C 


0B2D 


OB 6 A 


0B76 


0B79 


0870 


0B7F 


0B80 


0884 


0BA8 


08AE 






0BB2 


0BB4 


0BB6 


OBBO 


OBBE 


0BC1 


0B03 


OBOF 


00F6 


0DF9 


0E05 


0E08 


OEOC 






OEOE 


OEOF 


0E1B 


0E21 


0E3B 


0E3D 


0E3F 


0E4A 


0E4B 


0E4E 


0E60 


0E65 


10B9 






10BC 


10C8 


10CB 


10CF 


1001 


1003 


1008 


100A 


10DB 


10E7 


10EA 


10EC 


10ED 






10F0 


112E 


1131 


1135 


1137 


1139 


113E 


1140 


1142 


1143 


114F 


1152 


1154 






1156 


1157 


115A 


11A3 


11A6 


11AA 


11 AC 


11AE 


11B3 


11B5 


11B7 


1188 


11C4 






11C7 


11C9 


11CB 


11CC 


11CF 


1219 


121C 


1220 


1222 


1224 


1229 


122B 


122C 






1238 


12 3B 


1230 


123F 


1240 


1243 


126C 


126F 


1273 


1275 


1277 


127C 


127E 






127F 


128B 


128E 


1290 


1291 


1294 


12B7 


12BA 


12BE 


12C0 


12C2 


12C7 


12C9 






12CA 


12CC 


12CD 


1209 


120C 


120E 


120F 


1262 


131A 


1310 


1321 


1323 


1325 
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DATE 
EC NO. 



ENANCE 


DIAGNOSTIC PROGRAM FOR THE 1800 


SYSTEM 












PART NO. 
PAGE 


22794 72 

48 


FUNCTION TEST (PHASE B) 






















132A. 132C 132D 1339 133C 


133E 133F 


1342 


1373 


1376 


137A 


137C 


137E 








138 3 .138 5 1386 1392 1395 


1397 1398 


139B 


13C7 


13CA 


13CD 


13D5 


13E7 








1318 13EF 13F0 13F1 13F2 


13F3 13F4 


13F5 


13F6 


13F7 


13F8 


13FB 


13FC 








13FD 13FE 13FF 1400 1401 


1402 1403 


1404 


1405 


1406 


1407 


140F 


16A0 








16A1 16A3 16A4 16A5 16A6 


16A7 16A8 


16AA 


16AB 


16H0 


16B4 


16Bf) 


16C0 








16C4 16C5 16C8 16CA 16CB 


16CE 16CF 


16D1 


16D2 


1609 


16DA 


I60B 


16D0 








16DE 16E2 16E6 16E7 16EE 


16F2 16F3 


16F5 


16F6 


16F9 


16F0 


1700 


1701 








1702 1703 1708 170B 1713 


1714 1715 


1719 


171A 


171E 


171F 


1720 


1721 








17?2 1723 1724 1725 1726 


172A 172D 


1731 


1737 


173A 


173B 


177F 


1780 








17E.1 1782 1783 1784 1785 


1789 1780 


178F 


1797 


1798 


1799 


179A 


179F 








17A1 17A2 17A3 17A4 17A8 


17A9 17AA 


17AB 


17AF 


17B3 


17B4 


17B5 


17B6 








17P7 17BB 17B0 17CF 17D2 


1705 17EB 


1862 


1869 


186A 


18A0 


18B1 


18BC 








18C3 18C9 18FF 1907 190A 


1910 1926 


1934 


193D 


1950 


1959 


196C 


1960 








1977 197F 1983 199A 19A8 


19AF 1982 


19E6 


19EB 


19F1 


19F5 


1AA5 


1AB2 








1AC.6 1ACA 1ACB 1ACF 1AD1 


1AD2 1A03 


1AD4 


1AD5 


1AD8 


1B68 


1B74 


1B75 








1B76 1B77 1B78 1B7A 1B81 


1B8F 1B92 


1B9C 


1BA4 


1BA5 


1BA7 


1BA8 


1BA9 








1BAA 1BAB 1BA0 1BB4 1BB9 


18C6 1BC8 


1BC9 


1BE1 


1BE4 


1BE7 


1BEC 


1BEF 








1BF3 1C03 1C09 1C0B 1C0D 


1C17 1C1E 


1C21 


1C25 


1C29 


1C2B 


1C2D 


1C34 








1C43 1C59 1C5F 1C62 1C65 


1C66 1C67 


1C6B 


1C73 


1C74 


1C75 


1C79 


1C7A 








1C70 1C80 1C83 1C86 1C88 


1C8A 1CE2 


1CE5 


1CE7 


1CE8 


1CEF 


1CF3 


1CF7 








1CFD 1CFE 1CFF 1003 100C 


100F 1D12 


1D14 


1017 


1018 


1D1B 


1D1C 


1D1D 








1D1F 1020 1D30 1031 1D32 


1D35 1036 


1D38 


103F 


1040 


1D50 


1D53 


1D55 








105C 1D63 1D67 1D72 1D75 


107A 107C 


1082 


1084 


1086 


1D87 


1088 


10A1 








1DA2 1DB4 1DB9 1DC4 1DCE 


1005 100E 


1DE6 


10E7 


IDEA 


1E29 


1E2B 


1E2C 








1E2F 1E31 1E33 1E3B 1E3E 


IE40 1E4I 


1E47 


1E4B 


1E50 


1E83 


1E84 


1EBF 








1EC0 1EC1 1EC7 1EC8 1EC9 


1ECA 1EC8 


1ECC 


1ECD 


1ECE 


1ED3 


1EDA 


1EDE 








1EDF 1EE3 1EE4 1EE6 1EE7 


1EE8 1EE9 


1EEC 


1EEF 


1EF1 


1EF5 


1F06 






TCNER 


OB25 


0B12 0B6E ODFD 10C0 13D1 


















TCNE2 


0B5A 


0AF2 


















TCNPR 


0AD4- 


0AA5 


















TCNRQ 


0AD9 


OADC 


















TCNSW 


08 3C 


OBI A 


















TCNTA 


0B2E 


0816 0B22 0B26 


















TCNTE 


0B04 


085F . 


















TCNTZ 


0B33 


0B2E ' 


















TCN01 


OAEB 


0AD7 


















TCN02 


0AF8 


0A6F 


















TCN03 


0B14 


0B23 


















TCN04 
TCVBE 


0B21 
087C 


OBOE 

097B OAFA OAFF 0B26 0E21 


16CF 16DB 


16F3 


17A9 


17B5 


186A 


18FF 


190A 








1910 1926 1934 1930 1950 


1959 19A8 


19E6 


19EB 


19F1 


1ACB 


1B9C 


1BA5 








1BAA 1BC9 1BE4 1BE7 1BEC 


1BEF 1C17 


1C75 


1C7A 


1D32 


1E34 


1F06 






TCVBN 


1E26 


0870 


















TCVEN 


1E8B 


1E85 


















TCVHD 


087F 


OAFE 1C74 1E44 IE55 


















TCVSP 


1EBC 


1E8B 


















TCVSR 


1E58 


16C6 1790 1864 1C49 1E65 


















TCVSV 


1E8D 


1E78 1E79 167F 1E8C 


















TCVSZ 


1E63 


1E59 


















TCVS1 


08 3D 


1E2* 1E2B 1E2C 1E33 


















TCVSZ 


08 3E 


1E2F 1E31 


















TCVTB 


1E90 


IE7A 


















TCVTC 


1E8B 




















TCVOi 


1E36 


1E27 1E2A 1E2D 1E30 163C 


1E42 
















TCV02 


1E3E 


1E39 


















TCV03 


1E7D 


1E88 


















TCV04 


1E89 


1E30 


















TCV45 


IE 77 


1077 1E8E 


















TEMPI 


085A 


1C62 1C65 


















TEMP2 


085B 




















TERLP 
TERM 


1AA5 
080C 


088F 

09A7 0AB1 0AB8 OACA 0AD1 


OADF 0AE3 0BA8 OBAt 


136E 


1400 1700 1862 








18A0 1977 1B82 1B8F 1B92 


1BB4 1C2S 


1C43 


100B 1020 1086 IPC] 


IfcBI- 




TER01 


1AAD 


1AA7 


















TER02 


1AB0 


1AAF 


















THALT 


0882 


0B2C 16F0 18C9 1ACA 1A09 1C34 1C88 














THEXD 


1E44 


0880 


















THEXS 


1E57 


1E49 IE40 1E4E 1E54 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-2841 FUNCTION TEST (PHASE B) 



PART NO. 
PAGE 



2279472 
48A 



OATE 
EC NO. 



THLTE 

THLTG 

THLTL 

THLTM 

THLTR 

THLT2 

TINS2 

TINS3 

TINS4 

TINTS 

TiNTW 

TINT2 

TINT3 

TIO 

TIOMS 

TI0M1 

TI0M2 

TIONT 

TIOSE 

T10SF 

TIOSN 

TIOSW 

T10S1 

TI0S2 

TI0S3 

TI0S4 

TIO XX 

TI001 

TI002 

TI003 

TLGBA 

TLGBP 

TLGCH 

TLGCM 

TLGCR 

TLGCT 

TLGDA 

TLGED 

TLGEN 

TLGIN 

TLGIS 

TLGME 

TLGMS 

TLGNB 
TLGPR 
TUGSN 
TLGSP 
TtGSR 
TLGSV 
TLGSW 
TLGWR 
TLGXR 
TLGX2 
TLGX3 
TLG01 
TLG02 
TLG03 
TLG04 
TLG05 
TLG06 
TLG07 
TLG08 
TLG09 
TLG10 
TLG11 
TLG12 
TLG13 



1AC6 

1ACA 

1AD4 

1ADB 

1AD9 

1AED 

1EC1 

1ED0 

1606 

1EBF 

09A6 

09A9 

09BA 

0885 

175B 

173E 

174A 

1712 

1EDD 

1EE8 

0888 

0854 

1EE6 

1EF1 

1EF8 

1EF7 

08AC 

1715 

172A 

1737 

10F0 

1D41 

1DD2 

1018 

1D90 

08 DC 

1D93 

0813 

1DC7 

1094 

1D92 

1CE2 

088 B 

1CE7 
1061 
08DA 
08 DA 
080E 
1091 
08 OD 
0808 
1DAC 
10B0 
1DC9 
1CF7 
1006 
1D1F 
1021 
1034 
103B 
1D4D 
1D55 
1D6D 
1072 
1088 
1DA0 
IDAS 



0883 

1A06 

1AD0 

IAC8 

1ACC 

1EC6 

1EC2 

1ECF 

08 98 

09B8 

09AF 

09AA 

16AA 

173C 

1728 

1739 

0886 

0889 

1EEA 

1EF8 

0915 

1EE1 

1EED 

1EE5 

1EF3 

0928 

171D 

1717 

1730 

08 D8 

1D2B 

1D27 

1013 

1D5D 

1D87 

OADE 

OAAB 

1CF1 

10AA 

1037 

088C 

0984 

1321 

1CE3 

10AE 

101B 

103F 

1D1D 

1D5A 

1D35 

1012 

1D8A 

1073 

1CEB 

1CF4 

1CF8 

1D08 

1D1E 

102E 

1D4C 

1030 

1051 

1064 

106C 

1D8E 

1D9A 

1090 



1ACE 

09BA 09BE 172E 
1702 1735 

1729 1733 173D 

0918 0A98 1708 172B 

1EF0 1EF6 
13F5 172A 1EE7 



1058 1D5E 1D79 1DAC 

1DB2 

1D3B 1D43 10BA 10E3 1DE8 1DEB 10ED 



1D8C 

0AE4 1D0A 1D10 1D15 1019 

OABO 0AC4 0AC9 OAOO 0AE2 1CF3 1D09 10C0 



1085 1089 1095 1DA9 

0AF1 0802 0B2A 0670 OEOC 0E65 10CF 1135 11AA 1220 1273 12BE 
137A 1305 173B 18BC 1ACF 1B81 1BB9 1C2B 1C80.1C86 1C8A 1CE7 



1D7A 

1DE6 

1098 

1D61 106B ■ ■ „ 

1036 1050 1D5C 1063 1D67 1070 10B9 10D5 1DD8 1DD6 

1017 1029 1084 1OB0 



1CE0 
1020 



10BC 
1045 



10A3 1DA6 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800-28*1 FUNCTION TEST (PHASE B) 



PART NO. 2279472 
PAGE *9 



DATE 
EC NO. 



TLG15 

TLG16 

TLG17 

TLG18 

Tl_G*0 

TLG*2 

TLG*3 

TLPER 

TLPST 

TMLA 

TMLCT 

TMLNT 

TMLOK 

TMLPT 

TMLO 

TMLRX 

TMLR1 

TMLR2 

TMLR3 

TMLST 

TMLTB 

TMLTO 

TMLT1 

TMLT2 

TNT 

TP1D 

TRID 

TRTNN 

TSAD 

TSCAC 

TSCCW 

TSCED 

TSCTN 

TSIO 

TSTLP 

TSTOl 

TST02 

TST03 

TST04 

TSWOS 

TSWO 

TSW1 

TSW2 

TSW3 

TTLER 

TTLOO 

TTL01 

TTL11 

TTL21 

TTL31 

TTL32 

TTL33 

TTL34 

TTL35 

TTL36 

TTL37 

TTL38 

TYP2 

TYP3 

T10NT 

T10PR 

T11CE 

TUCK 

T11EC 

THEN 

T11ER 



1DBE 
1D0D 
10E* 
IDS 7 
1D14 
1D7A 
108* 
088E 
0891 
0000 
1*3A 
1*12 
1*21 
1*3B 
0001 
0005 
0002 
0003 
000* 
1*37 
1**0 
1*3C 
1*30 
1*3E 
1*12 
07FF 
0615 
08 3B 

0801 
08F0 
08 AO 
081* 
08 3 A 
0800 
1AB2 
1ABA 
1ABD 
1ABF 
1AC4 
08A3 
0802 

0803 
08 0* 
06 05 
OR*B 
0B33 
OB** 
0BC2 
0fc*F 
10F1 
■115B 
11D0 
12** 
1295 
12E3 
13*3 
139C 
08** 
08*6 
0B6A 
0B68 
0BF9 
0C30 
0C06 
OBBD 
0B03 



10t>B 

1DD6 

101)0' 

10E* 

100DV 

1D*E. 

ID 60 

0BD3 

OBIt* 

1*27 

1*16 

1*32 

1*18 

1*1F 

1*29 

1*33 

1*2B 

1*2E: 

1*31 

1*15 

1*10 

1*1* 

1*2C 

1*13 

OABO 
OBIB 
0B09 
1398 
0B18 
13ED 
08 AC 
0AB2 
OBOD 
OABE 
0892 
1AB4 
1ABC 

1AC3 
08A2 
0A9A 
1AH2 
0A9B 
OAAO 
0A9C 
OB 27 
0B03 
0B01 
0B7E 
OEOD 
10D0 
1136 
11AB 
1221 
127* 
12BF 
1322 
137B 
16C4 
17A2 
0P2F 
0E6D 
0885 
0B8C 
0BF1 
OB 08 
0E.B8 



108 3 

1080 

0E60 10EA 1152 11C7 123B 128E 12DC 133C 1395 1AA9 1AAB 1AA0 

0E3D 1AB6 1AB8 1ABA 1ABF 1AC1 

1MB 
1*38 

1*21 1425 



1*3B 

1*2A 1*35 
1*20 142F 1430 
1434 

0B72 0E01 10C4 112A 119F 1215 1268 12B3 1316 136F 1E5A 
0B6A OBBE 00F9 0E4B 10BC 10ED 1157 11CC 1240 1291 120F 133F 

13C0 
0B1F 
13F0 13F8 

0AB7 OACB OADO 13EC 140C 1CF7 

13CA 

0B14 0B1C 0B1E 0821 IE5F 



0930 094B 

0B79 0E08 10CB 1131 11A6 121C 126F 12BA 1310 1376 16F9 1AA5 

1AC6 1A02 1A03 1AD5 1CEF 

0BO6 OBOA OB25 

OAEO 0AF4 0AF8 

1881 

0829 0B2B 



0870 
0B05 
0890 OBAO 0BA3 0887 



14N0V69 
431319 



30JAN70 
431319A 
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T11EX 
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T11G0 
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T11SV 
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T11XX 

T11YY 
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T1103 
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T1122 

T1123 

T112* 
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DATE 

EC NO. 



T21CH 


0ED6 


OEOB 






T21CI 


0EE5 


OEEA 






T21CJ 


OEEE 


0E>=3 






T21CK 


0E8C 


0E2B 


0E2D 


0E40 


T21CL 


OEFA 


OEFF 






T21CM 


0FO3 


0FO8 






T21CX 


0E85 


OEDE 


0EE7 


OEFO 


T21C1 


OESB 


0F^8 


0F2C 


0F32 


T21C2 


0EC4 


OF 50 


0F54 


0F5A 


T21C3 


0E03 


0F78 


0F7C 


0F82 


T21C4 


0E62 


OFAO 


0FA4 


OFAA 


T21C5 


0EF7 


0FC8 


OFCC 


OF 02 


T21C6 


0F9C 


OFFO 


0FF4 


OFFA 






lOBO 


1086 


108A 


T21C7 


0F15 


1018 


101C 


1022 


T21C8 


0F1E 


1040 


1044 


104A 


T21DT 


OESB 


OF DO 


0FE4 


OFEE 


T21EC 


0E7F 


0E1C 


0E62 




T21EN 


0E4A 


0E67 






T21EX 


0E78 


0E25 


0E27 


0E80 


T21FM 


0E6A 


OE20 


OEBO 


0EC6 


T21G0 


0E43 


0E64 






T21HA 


0E6B 


OECO 


0F4E 


0FF8 


T21H5 


0E71 


0F1A 






T21KD 


0E8A 
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0FA8 
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T21M1 


0E94 


0E66 






T21M2 


0E82 


OE22 


0E92 
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0ED8 


OF 76 


T21SN 
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0E29 


0E8E 




T21SV 
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0E44 


0E45 
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0E1D 
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OGOO 
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T32WH 


1188 


1155 




T3201 


112A 


10C9 


10EE 


T3202 


1131 


112C 




T3203 


1137 


1133 




T3204 


113A 


1153 




T3205 


1148 


1144 




T33CS 


120F 


11BE 




T33CW 


11E8 


11B4 




T33EM 


11CB 






T33ER 
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11AF 




T33EX 


11C9 


11BA 




T3 3HA 


1209 
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120C 


11F9 


HFC 
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1213 


11BF 




T33TE 


11C7 


11BC 




T33TT 


11F4 


11B6 


1211 
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1200 


11CA 




T3301 


119F 


112F 


1158 
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11A6 
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11AC 
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125F 


125B 




T34CS 
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T3703 


1323 


131F 








T3704 


1326 


133D 








T3705 


1332 


132E 








T38CS 


13C1 


138C 








T38CW 


13B3 


1384 13C3 








T38EN 


1397 


1388 








T38ER 


1392 


137F 








T38NR 


13BF 


13B8 








T38SN 


13C5 


1380 








T38TE 


1395 


138 A 








T3801 


136F 


131B 1340 








T3802 


1376 


1371 








T3803 


137C 


1378 








T3804 


137F 


1396 








T3805 


138B 


1387 








T3901 


13C7 


1374 1399 








T40EN 


13D5 


13CB 








T40ER 
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13D6 
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13CA 


08 32 
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0AB3 
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». PURPOSE PAGE 

1.1 INTENT # 

1.2 BRIEF DESCRIPTION OF TEST ROUTINES .* I '. * 1A 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS . 2 

2.2 EQUIPMENT REQUIREMENTS * * * 2 

3. USE PROCEDURE 

3.1 PROGRAM LOADING _. 

3.2 PROGRAM OPERATION I '. I '.ZA 

3.2.1 INSTRUCTIONS 

3.2.3 PROGRAM OPTION SWITCHES 

3.2.4 ROUTINE SELECTION SWITCHES 

3.2.5 DEVICE SELECTION SWITCHES 

3.2.6 OPTIONAL ROUTINE SWITCHES 

3.3 PROGRAM HALTS 3A 

3.4 PROGRAM TERMINATION * * * * * * 4 

4. PRINTOUTS 

4.1 MESSAGE FORMATS. . 4 

4.2 ERROR NUMBER DESCRIPTIONS (ALL PHASES) . ,4A 

4.3 ERROR NUMBER DESCRIPTIONS (PHASE A). . . . 5A 

4.4 ERROR NUMBER DESCRIPTIONS (PHASE B). . . . 18 

5. COMMENTS 

5.1 DETAILED DESCRIPTION OF PROGRAM ROUTINES 19A 

6. APPENDIX 

6.1 DEVICE AM) CHANL STATUS BITS IN HEX . . . 23A 

6.2 SENSE BIT BREAKDOWN TABLE 24 

6.3 EDIT PROCEDURE *25 



PHASE A 
1 . PURPOSE 

1.1 INTENT - THIS PROGRAM IS DESIGNED TO ( 1 ) DETECT MALFUNCTIONS IN THE IBM 

2311 DISK FILE. AND (2) AID IN THE ISOLATION OF FAILURES BY PRO- 
VIDING D I AGNOST IC INFORMATION AND SCOPE LOOP FACILITIES. 

1.2 BRIEF DESCRIPTION OF TEST ROUTINES - 
SECTION ROUTINE 



1 



1 



6 

7 

SECTION ROUTINE 



STATUS CHECK 
TEST I/O 

NO-OP 

SENSE I/O 

COMMAND EXIT 

READ TEST 
RECALIBRATE 



TEST THE CHANNEL STATUS FOR READY 
AND AVAILABLE. 

TESTS FOR CONDITION OF ACCESS. IF 
CONDITION CCOE IS ZERO. ACCESS IS 
READY AND AVAILABLE . 

CHECKS INITIAL SELECTION €■ ENDING 
PROCEDURE TO t FROM CONTROL UNIT. 

VERIFIES THAT SENSE DATA CAN BE 
TRANSFEREO FROM 2841 TO THE CHANNEL 

CHECKS FOR HANG UP CONDITIONS ON 
START I/O COMMANDS. 

READS HA FROM ALL HEADS 

EXECUTES RETURN TO 000 SEEK 



CAR AND DIFF CNTRS TESTS ALL COMBINATIONS OF BITS ON 
AND OFF IN CAR ANO DIFF COUNTER. 



SEEK INCOMPLETE 



EXECUTES SEEK TO 255 AND CHECKS FOR 
SEEK INCOMPLETE. 



SEQUENTIAL INC/DEC EXECUTES SINGLE CYL. SEEKS FROM CVL 
SEEK °«0 TO 001 ...TO 202, TO 201 TO 200 

TO 199.. .TO 000. 

WORST CASE ACTUATOR LOOPS SEEKING BETWEEN CYL 006 ANO 

CYLS 7,9,11,18.36.70,76 
81, 86 AND 198 FOR 20 PASSES. 



RANDOM SEEK 



EXECUTES SERIES OF 500 RANDOM SEEKS 
CHECKING FOR CORRECT HA. 



SECTION ROUTINE 

3 1 WRITE TEST 

2 HAR ADVANCE 

3 END OF CYL 

4 RPM TEST 



WRITES RO RECORDS WITH ALL HEADS 



CHECKS HAR AC HEAD ADVANCE 
CHECKS END OF CYLINDER 
CHECKS ISK RPM 
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PHASE B CONTAINS OPTIONAL ROUTINES WHICH CAN BE RUN ONLY WHEN THE 
SEPERATE DECK (PID 0812, PHASE B) HAS BEEN LOADED. (SEE LOADING 
PROCEDURE 3. 1 ) 

**NOTE- INSTRUCTIONS FOR RUNNING THE OPTIONAL ROUTINES IN PHASE B ARE TO 
BE FOUND IN 5.1 'DETAILED DESCRIPTION OF PROGRAM ROUTINES' 



** NOTE- UTILITY PROGRAM 0814. CE PACK INITIALIZER. WRITES HOME 

ADDRESSES. DO NOT USE 061* UNLESS SUBSYSTEM IS COMPLETELY 

OPERATIONAL . AND THEN ONLY WHEN HOME ADDRESSES ARE NOT 

ALREADY PRESENT. DO NOT USE 081* TO INITIALIZE CUSTOMER 

PACKS BECAUSE CE CYLINDERS ARE BYPASSED AND ERRORS 

WILL BE DETECTED WHEN SEEKS ARE MADE TO INCORRECT 

OR NO HOME ADDRESS. IF A SCRATCH PACK IS USED. IT SHOULD 

BE INITIALIZED WITH A PROGRAMMING SYSTEMS DISK INITIALIZER, 



SECTION ROUTINE 



-OPTIONAL POWER 
OFF- ON. CPU RUNNING 



-OPTIONAL- METER SWITCH 



D I SABLE-ENABLE 

-OPTIONAL- POWER 
ON/OFF STATUS. 



-OPTIONAL- METER 
INTERLOCK. 



-OPTIONAL- HEAD 
ALIGNMENT 



-OPTIONAL- 



SPECIAL SEEK LOOP 



-OPTIONAL- 
WRITE HOME ADDRESS 



CHECKS FOR CORRECT STATUS 
ON POWER DOWN/POWER UP 



CHECKES FOR 'MANUAL INTERVEN- 
TION' , 'READY' AND NOT ON LINE 
WITH METER SWITCH DISABLED 

CHECKS FOR CORRECT STATUS ON 
POWER DOWN/POWER UP WITH CPU 
STOPPED • 



CHECKS THAT METER OUT HOLDS 
DEVICE ENABLE 



BRINGS UP READ. ALLOWS USER TO 
SELECT HEAD. AND AIDS IN 
ALIGNING 
HEADS PER INSTRUCTIONS IN 

MAINTENANCE MANUAL 

ALLOWS USER TO SPECIFY 2 

CYLINDERS 

FOR SEEK LOOP 



ALLOWS USER TO WRITE HA ON ANY 
ONE CYLINDER 



3. USE PROCEDURE. 



3.1 PROGRAM LOADING. 



STANDARD LOADING PROCEDURES OO NOT APPLY TO THIS DFT. PHASE A. THE 
STANDARD 2311 DFT, MAY BE RUN IN OVERLAP WITH OTHER TESTS BUT MAY 
NOT BE LOADED WITH PID 0812 PHASE B. 

TO RUN OPTIONAL ROUTINES (PHASE B) LOAD ONLY THE PHASE B 

DECK AND FOLLOW STANDARD MONITOR LOADING PROCEDURE. PHASES A & 8 

ARE RUN ALIKE BUT MUST BE RUN SEPARATELY. 

** NOTE - OO NOT INCLUDE DEVICE AOORESS ON 
MONITOR EDIT. ENTER COMPLETE DEVICE ADORESS IN 
BITS 8-15 OF SW FNC 2 WHEN PROGRAM COMES TO 
•SELECT OPTIONS' HALT (SEE 3.3). 



3.2 PROGRAM OPERATION. 



P- 



** NOTE 



USE ONLY DRIVE ZERO WITH* THIS TEST. USING ANOTHER ORIVE 
WILL RESULT IN CHANNEL STATUS ERROR MESSAGES. 



2. PREREQUISITES 



2.1 PROGRAM REQUIREMENTS. 

-1000 DIAGNOSTIC MONITOR PROGRAM -AT LEAST 8K OF CORE 

-SECTIONS SHOULD BE RUN IN SEQUENTIAL ORDER FOR CORRECT INDICATION 

2.2 EQUIPMENT REQUIREMENTS. 

-CPU WITH THE STANDARD INSTRUCTION SET. COMPLETELY OPERATIVE. 

-HARD COPY OUTPUT DEVICE 

-METHOD OF LOADING PR06RAM 

-SELECTOR CHANNEL FEATURE (MUST BE FULLY OPERATIONAL) 

-2S*I FILE CONTROL UNIT 

-2311 DISK FILE ORIVE WHICH WILL POWER-ON 

-CE PACK OR SCRATCH PACK WITH HOME ADDRESSES 



l.THIS TEST SHOULD NOT BE RUN WITH BOTH 2841 CHANNELS WIRED TO THE 
SAME SELECTOR CHANNEL (AS IN THE 2 CHANNEL SWITCH TEST). WHILE 
USING ONE CHANNEL IT IS ADVISABLE TO SWTICH 'OFF' THE ALTERNATE 
CHANNEL. 

2. INSTALL CE PACK OR SCRATCH PACK WITH HOME ADDRESSES ON ACCESS TO BE 
TESTED. 

3. PROGRAM OPTION SWITCHES-SW FNC 0. (NORMAL RUN. WITH ALL 

SWITCHES OFF. GIVES ERROR PRINTOUTS .CONT INUE ON ERROR, ANO BYPASS OP- 
TIONAL ROUTINES.) 

** NOTE - 'TURN ON* OPTION SWS IMPLIES SETTING THE 
SPECIFIED BITS ON IN THE INDICATED SWITCH FUNCTION BY 
SETTING UP THE S/P ANO DE SWS AND DOING A • CONSOLE IN- 
TERRUPT'. 

1. LOAD MONITOR AND DESIRED DFT'S 

2. EXECUTE PID 0812 

3. SELECT OPTIONS (SEE TABLES 6 1 BELOW) 

4. SELECT DEVICE (SEE TABLE 2 BELOW) 

THE PROGRAM OPTION SWITCHES SHOWN BELOW ARE IN THE MONITOR INTERFACE 
TABLE IN THE PROGRAM. BITS ARE ZERO WHEN OFF AND ONE WHEN ON. 
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TABLE 2311 OFT FUNCTION 
CONTROL FUNCTION 

********************* J. SET FUNCTI0N 00 IN s/p SWITCHES 

* AI\D 1. 

* SENSE/PROGRAM * 2. SET PID IN S/P SWITCHES 2 THROUGH 7. 

* 01234567 » 3. SET DESIRED CONTROL OPTIONS IN D/E 

* SWITCHES 8-15 AS SHOWN. 

* 00010010 * 4. PRESS CONSOLE INTERRUPT 
*********************************** ************************** S^,^^.,,,,..,, 

* DATA ENTRY SWITCHES * DESCRIPTION * 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * * 

* 0....... EXIT ERROR HALT LOOP * 

* 1.... HALT ON ERROR * 

* 1 BYPASS ALL PRINTOUTS * 

* 1 LOOP ON ERROR * 

* 1................... RETRY START I/O * 

* * • •• PRINT RESULTS AND RTN * 

* TITLES * 

* 1 SEEK ALIGNMENT CYLINDERS* 

* l LOOP START I/O (TIGHT * 

* SCOPE LOOP) * 

* 
*********************************************************************** 

4. ROUTINE SELECTION SWITCHES - SW FNC 1. USED TO SELECT ROUTINES FOR 
EXECUTION. THE FORMAT OF THE SWITCHES IS OOSR WHERE S IS THE SEL- 
ECTED SECTION AM) R IS THE SELECTED ROUTINE WITHIN THAT SECTION. IF 
R=0 ALL ROUTINES IN THE SELECTED SECTION WILL BE RUN. IF S=0 ALL 
SECTIONS (1-3) WILL BE RUN. 



TABLE 1 2311 DFT FUNCTION 1 
ROUTINE SELECTION 



TABLE 2 2311 DFT FUNCTION 2 



********************* 

* SENSE/PROGRAM * 

* 01234567 * 

* * 

* 01010010 * 



1. SET FUNCTION 01 IN S/P SWITCHES AND 1. 

2. SET PID IN S/P SWITCHES 2 THROUGH 7. 

3. SET DESIRED SECTION/ROUTINE CONFIGURATION IN 
D/E SWITCHES 8-11/12-15 RESPECTIVELY. 

4. PRESS CONSOLE INTERRUPT. 
************************************************************* ^^^.j^^ 

* DATA ENTRY SWITCHES * DESCRIPTION * 

101112 13 14 15* * 

R R R R... ROUTINE NUMBER IN HEX (0=RUN* 

ALL ROUTINES) * 

S s * • SECTION NUMBER IN HEX (0=RUN* 

ALL SECTIONS,) * 



123456789 



S S 



♦♦♦l"*****************************************************************,^ 

5. DEVICE SELECTION. SWITCH FUNCTION 2 IS USED TO SELECT THE DEVICE 
UNDER TEST. THE UNIT ADDRESS IS PLACED IN THE 8 LOW ORDER BITS 
OF THE DE SWS (BITS 8-15). 



DEVICE SELECTION 



2PV/ oJUbu«> 'W { 



******************* 

* SENSE/PROGRAM * 
*01234567* 
*10010010* 

* * 

* * 



1. SET FUNCTION 10 IN S/P SWITCHES AND 1. 

2. SET PID IN S/P SWITCHES 2 THROUGH 7. 

3. SET 2841/2311 ADDRESS INTO D/E SWITCHES 
8-15 AS SHOWN 

4. PRESS CONSOLE INTERRUPT 

********* ********************************************************** 

* DATA ENTRY SWITCHES * DESCRIPTION * 
*0 1234567 891011 12 131415* * 

* lift \\ U U U U...UNIT (2311) TO BE TESTED * 

* C C C C UNIT (2841) TO BE USED. * 

************************* ****************************************** 

6. OPTIONAL ROUTINE SWITCHES. SWITCH FUNCTION 3 IS USED TO SELECT 
THE CYLINDERS TO BE USED IN SEEK OR WRITE LOOPS. SEE OPTIONAL 
ROUTINES 6 AN) 7 (PHASE B). 

3.3 PROGRAM HALTS. 



1200 *****SELECT OPTIONS***** 

THIS HALT OCCURS PRIOR TO PROGRAM EXECUTION TO ALLOW SETTING THE OPTION 
SWITCHES. IF OPTIONS ARE DESIRED THEY SHOULD BE ENTERED BEFORE SETTING 
OPTION SWITCH 2 (DEVICE) AS PROGRAM EXECUTION COMMENCES AT THIS TIME. 

1200 ***HALT- 2311 DIAGNOSTIC AT AD RS XXXX 
-TO CLEAR HALT SET SWITCHES 
S/P OOPP PPPP, P=PID 
DES XXXX XXXX XXXX XXXO 
PRESS CONSOLE INTERRUPT 

HALT AFTER ERROR. UNLESS BYPASSED. IS A LOOP THAT ALLOWS OPTION 
SELECTION AND LOOP EXIT USING THE SAME SWITCH FUNCTION (FNC 0). 
BESIDES THE NORMAL HALT AFTER ERROR DESCRIBED ABOVE. THERE ARE SEVERAL 
ERROR CONDITIONS IN WHICH THE PROGRAM CANNOT CONTINUE . (EXAMPLE, ACCESS 
NOT READY, HANG UP BUSY, ETC.) THE ERROR MESSAGE WILL IDENTIFY SUCH CONDIT- 
IONS. THE ADDRESS SPECIFIED IN LINE 1 IS THAT OF THE CALL ON THE WAIT 
ROUTINE. 

NECESSARY INSTRUCTIONS TO EXIT THE ERROR HALT LOOP ACCOMPANY ENTRY TO 
THE LOOP VIA A PRINTOUT. WHILE IN THE LOOP VARIOUS SWITCH FUNCTION 
OPTIONS CAN BE ENTERED ALONG WITH BIT 15=0 WHICH PROVIDES THE EXIT. BIT 
15=0 ALONE WILL RESULT IN A NORMAL EXIT, IN MOST CASES THE ROUTINE 
WILL TERMINATE. 



1. 

2. 



SETTING BIT 12 WILL EXIT TO THE FUNCTION THAT CAUSED THE ERROR. 

SETTING BIT 8 WITH 12 WILL EXIT TO THE FAILING FUNCTION AND 

LOOP ON THE BRANCH TO SIO ROUTINE 

(TIGHT SCOPE LOOP) 
3. SETTING BIT 13 WITH 12 WILL EXIT TO THE FAILING FUNCTION 

AND LOOP THROUGH THE ROUTINE WITHOUT CHANGING ANY PARAMETERS, 

PRINTING ERRORS, OR HALTING ON THE ERROR. (LONG SCOPE LOOP) 
THESE OPTIONS SHOULD BE THE MOST USEFUL. SEE TABLE OF OPTIONS FOR 
OTHER APPLICATIONS. 
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** NOTE- THIS PROGRAM IS DESIGNED TO BE MOST EFFECTIVE WHEN RUNNING 
UNDER -HALT AFTER ERROR-. IF USER WISHES TO RUN IN THIS MODE 
SWITCH FUNCTION 0. BIT 14 MUST BE TURNED ON. 

*» NOTE - IF THE SELECTOR CHANNEL AMD THE LOG DEVICE SHARE A DATA 

CHANNEL. CAUSING A CONSOLE INTERRUPT MAY RESULT IN MONITOR WAIT 9 
(3009). 

3.4 PROGRAM TERMINATION. 

LEND OF NORMAL TEST. 

•END OF DFT» MESSAGE IS PRINTED AT COMPLETEION OF NORMAL TEST 
PROGRAM WILL TERMINATE UNLESS MONITOR FNC 0. SW 11 IS ON (LOOP 
PROGRAMS). 



4.0 PRINTOUTS 

4.1 MESSAGE FORMATS 

A. ERROR MESSAGES 

THE PRIMARY MESSAGE FROM THIS PROGRAM IS AN ERROR NUMBER. 

THE PURPOSE OF THE NUMBER IS TO REFER THE USER TO A DESCRIPTION OF THE 
ERROR CONDITION IN THIS DOCUMENT. (SECTION 4.2) THE ERROR DESCRIPTION 
PROVIDES DIAGNOSTIC INFORMATION ABOUT THE ERROR AND SCOPE LOOP OPTIONS. 

ERROR NUMBER FORMAT 

1. SIO.TIO. SENSE I/O.ERRORS — 

1200 ** XX ERROR ON SIO. SECTION S, ROUTINE R. UNIT UU ADRS AAAA 

2. ERROR NUMBER WITH MESSAGE. 

1200 ** ER SRXX MESSAGE UNIT UU ADRS AAAA 

3. NORMAL ERROR NUMBER PRINTOUT. 

1200 ** ER SRXX UNIT UU ADRS AAAA 

4. THE SECOND LINE OF AN ERROR PRINTOUT GIVES VARIABLE DATA ON MACHINE 
CONDITIONS. 

CAW KKKK CSW YYYY UUZZ ADRS CNTR SNS B-B B-B B-B B-B 

5. EXPLANATION OF CHARACTERS- 

S SECTION NUMBER 

R ROUTINE NUMBER 

XX SEQUENTIAL ERROR NUMBER WITHIN EACH ROUTINE 

UU CHANNEL AND DEVICE ADDRESS IN HEX 

AAAA ADDRESS OF ERROR BRANCH & STORE I-REG INSTRUCTION IN LISTING 

KKKK CHANNEL ADDRESS WORD FOR THE CCW CHAIN 

ADRS CHANNEL CCW ADDRESS REGISTER 

YYYY CHANNEL STATUS IN HEX 

UUZZ UNIT ADDRESS/UNIT STATUS IN HEX 

CNTR CHANNEL BYTE COUNT REGISTER 

B-B SENSE BYTES IN BINARY 



4.2 ERROR NUMBER DESCRIPTIONS 

00 - UNEXPECTED INTERRUPT. 

AN INTERRUPT OCCURRED ON THE SELECTOR CHANNEL WHILE THIS 
PROGRAM DID NOT OWN THE CHANNEL OR THE INTERRUPT WAS NOT 
FROM THE UNIT UNDER TEST. SEE CSW FOR FURTHER INFORMATION. 

02 - CONDITION CODE 2 ON TEST I/O (SECTION «S« ROUTINE •R»). 

A CONDITION CODE 2 (ADAPTER BUSY) WAS DETECTED ON THE TEST I/O AT 
THE BEGINNING OF THE START I/O SUBROUTINE. THE SECTION ANO ROUTINE 
NUMBER OF ROUTINE BEING EXECUTED WHEN THIS TEST I/O WAS ISSUED IS 
PRINTED OUT. 

- DIAGNOSTIC INFORMATION 

CONDITION CODE 2 (ADAPTER BUSY) INDICATES CHANNEL OR SUBCHANNEL BUSY 
INDICATES MISSING DEVICE END ON PREVIOUS OPERATION. CAW PRINTOUT 
INDICATES PREVIOUSLY EXECUTED COMMAND CHAIN. RECOMMEND PLUGGING IN 
DISPLAY PORTION OF CE BOX. 

- USER OPTIONS- 

USER SHOULD DO A RESET-RESTART TO CLEAR BUSY CHANNEL. 

06 - NO INTERRUPT AFTER TEST I/O 

- DIAGNOSTIC INFORMATION - 

THIS ERROR MAY OCCUR IN THE TEST I/O SUBROUTINE OR IN THE 
TEST I/O ROUTINE ITSELF (SECTION 1. ROUTINE 2). AN ERROR 
IN EITHER AREA IS DUE TO THE SAME CONDITION. 

- USER OPTIONS - 

1. RECOMMEND PLUGGING IN O ISPLAY PORTION OF CE BOX. 

2. IF CONTROL UNIT IS HUNG UP TRY RESET-RESTART. 

U - CONDITION CODE 1 ON START I/O (SECTION S, ROUTINE R) 

CONDITION CODE 1 (UNIT STATUS PENDING) WAS DETECTED ON START I/O. 

- DIAGNOSTIC INFORMATION- 

1. MOST CONDITION CODE ERRORS SHOULD SHOW UP IN PIO 08 10 ( SELECTOR 
CHANNEL TEST). THIS ERROR PRINT OUT. IF THE ONLY 

ERROR NUMBER. SUGGESTS COMMAND REJECT. OR INTERMITTENT 
CONTROL UNIT TROUBLE. 

2. IF END OF CYLINDER BIT IS ON. CHECK FILE BUS. 7. (FD021) 

- USER OPTIONS- 

1. TRY RESET-RESTART 

2. RUN SELECTOR CHANNEL TEST (PID 0810) 
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12 - CONDITION CCDE 2 ON START I/O 

CHANNEL OR SUBCHANNEL BUSY WAS DETECTED IN THE START I/O 
SUBROUTINE. 

- DIAGNOSTIC INFORMATION- 

SOLID CONDITION CODE 2 ERRORS SHOULD BE DETECTED IN ROUTINE 1. 
TEST CHANNEL STATUS, OR AT ERROR 02. TEST I/O. IF THIS ERROR 
OCCURS AT ANY OTHER TIME. SUSPECT INTERMITTENT ERROR. CC2 
SUGGESTS PREVIOUS OPERATION WAS NOT COMPLETED. CAW PRINTOUT 
INDICATES PREVIOUSLY EXECUTED COMMAND CHAIN. 

- USER OPTIONS- 

SAME AS ERROR 11. 

13 - CONOITION CCOE 3 ON START I/O 

NOT OPERATIONAL WAS DETECTED WHILE IN THE START I/O SUBROUTINE. 

- DIAGNOSTIC INFORMATION- 

SOLID CC 3 ERRORS SHOULD BE DETECTED IN ROUTINE 1. TEST CHANNEL, 
OR SHOW UP AS ERROR 03 IN TEST I/O. IF THIS ERROR OCCURS AT ANY 
OTHER ROUTINE, SUSPECT INTERMITTENT FAILURE. 

- USER OPTIONS- 

SAME AS ERROR 11. 

21 - CONDITION CODE 1 ON SENSE I/O 

PROGRAM DETECTED UNIT CHECK ON A SENSE I/O IN THE SENSE I/O 
SUBROUTINE. TEST I/O AND START I/O HAVE ALREADY BEEN TESTED. 
SHOULD NOT GET THIS ERROR EXCEPT ON INTERMITTENT FAILURES. THE 
SECTION AND ROUTINE BEING EXECUTED WHEN ERROR OCCURED IS PRINTED 
WITH ERROR NUMBER. EXAMINE ACCUMULATED STATUS DATA IN CSW FOR 
CLUES TO FAILURES. 

- USER OPTIONS- 

SAME AS ERROR 01 

22 - CONDITION CCOE 2 ON SENSE I/O. 

PROGRAM EXECUTED A SENSE I/O AND GOT A BUSY CONDITION. 

PRINTOUT GIVES SECTION AND ROUTINE BEING EXECUTED WHEN THIS ERROR 

OCCURED . 

- DIAGNOSTIC INFORMATION- 

DETERMINE WHY CONTROL UNIT WENT BUSY. SHOULD BE RELATED TO 
ROUTINE BEING EXECUTED. CAW PRINTOUT INDICATES PREVIOUSLY 
EXECUTED COMMAND CHAIN. 



- USER OPTIONS- 



1. USER SHOULD DO A RESET-RESTART TO CLEAR BUSY CONDI TION- 

2. CONTROL UNIT HUNG UP - PROBABLY CAN'T LOOP, SO CONTINUE OFF 
LINE. 

3. TRY LOOPING IN ROUTINE. 



23 



CONDITION CODE 3 ON SENSE I/O 

NOT OPERATIONAL ON SENSE I/O 



SEE ERROR 13 



1101 - CONDITION CCOE 1 ON A TEST CHANNEL COMMAND 

THE FIRST COMMAND IN THIS DIAGNOSTIC PROGRAM IS A TEST CHANNEL TO 
DETERMINE THAT THE CHANNEL IS AVAILABLE. A CONDITION CODE 1 (UNIT 
STATUS PENDING) WAS DETECTED ON THE FIRST TEST CHANNEL COMMANO. THE 
PROGRAM EXECUTED A TEST I/O TO CLEAR THE INTERRUPT CONDITIONS AND 
THEN RETRIED THE TEST CHANNEL COMMAND. THE CONDITION CODE 1 CONOI- 
TION WAS STILL PRESENT. 

- DIAGNOSTIC INFORMATION - 

THE CHANNEL MUST BE CLEARED OF PENDING INTERRUPTIONS BEFORE ANY 
OTHER COMMANDS MAY BE EXECUTED. 

- USER OPTIONS - 

SEE 3.3 ERROR HALTS 

1102 - CONDITION CODE 2 ON TEST CHANNEL COMMAND 

SAME AS ERROR 1101 EXCEPT CC 2. (CHANNEL OR SUBCHANNEL BUSY). 
NEVER RECEIVED DEVICE END FROM PREVIOUS COMMAND. 

- USER OPTIONS - 

SEE 3.3 ERROR HALTS 

1103 - CONDITION CODE 3 ON A TEST CHANNEL COMMAND. 

SAME AS ERROR 1101 EXCEPT CC 3. (CHANNEL NOT OPERATIONAL). 
SW FNC 2 MAY SPECIFY WRONG DEVICE. 

- USER OPTIONS - 

SEE 3.3 ERROR HALTS 

1201 - CONDITION CODE 1 ON TEST I/O BUT NO UNIT CHECK 

PROGRAM ATTEMPTED A TEST I/O AND RECEIVED A CONDITION CODE 1. 
UNIT CHECK WAS NOT SET. BUT CHANNEL STATUS WAS STORED. 

- DIAGNOSTIC INFORMATION - 

EXAMINE CHANNEL STATUS DATA TO DETERMINE WHICH STATUS BIT CAUSED 
THE CONDITION CCDE 1. SUSPECT 2841 IN CE MODE. 
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- USER OPTIONS - 

SEE 3.3 ERROR HALTS 

1202 - CHANNEL OR SUBCHANNELS BUSY ON TEST I/O 

PROGRAM RECEIVED A CONDITION CODE 2 ON A TEST I/O COMMAND. 



DIAGNOSTIC INFORMATION - 

SUSPECT SOME PREVIOUS OPERATION WAS NOT COMPLETED. 

SOLID CONDITION CCDE ERRORS SHOULD NOT SHOW UP HERE. SUSPECT 

INTERMITTENT ERROR. (UNLESS OTHER ERROR NUMBERS ARE ALSO PRINTED) 

USER OPTIONS- 
SEE 3.3 



1203 



ACCESS NOT OPERATIONAL 



PROGRAM RECEIVED A CONDITION CODE 3 ON A TEST 10. INDICATING 
ADDRESS ON CHANNEL WAS NOT RECOGNIZED. CHANNEL RECEIVED-SELECT 
IN- IN RESPONSE TO -SELECT OUT-. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT WRONG CONTROL UNIT ADDRESS. 

2. CONTROL UNIT C.E. SWITCH ON -CE- 

3. CONTROL UNIT METER SWITCH ON DISABLE. 

4. COVER INTERLOCK SWITCH. 

- USER OPTIONS - 



1204 



SEE 3.3 



UNSAFE COM) I TI ON - 



PROGRAM ATTEMPTED A TEST I/O COMMAND AND RECEIVED A CONDITION 
CODE OF 1 AND UNIT CHECK ON. PROGRAM THEN ISSUED A SENSE COMMAND 
AND DETERMINED THAT UNSAFE BIT WAS ON. 

- DIAGNOSTIC INFORMATION - 

MUST DETERMINE WHAT UNSAFE CONDITION EXISTS. SEE SAFETY CIRCUITS 
OR TROUBLE SHOOTING PROCEDURE IN MAINTENANCE MANUAL (PG. 31) 
SUSPECT SOLID FILE BUS 4 BIT (FD020) 

- USER OPTIONS - 

1. GO OFF LINE AMD DETERMINE CAUSE OF UNSAFE CONDITION. 

2. JUMPER OFF SELECT LOCK AND LOOP. (SEE 3.3 ERROR HALTS) 

3. JUMPER OFF SELECT LOCK AND RESTART SECTION. 



1205 - FILE NOT ON LINE 

PROGRAM ATTEMPTED A TEST I/O COMMAND AND RECEIVED A CONDITION 
CODE 1 WITH UNIT CHECK ON. 

PROGRAM THEN PERFORMED A SENSE I/O AND FOUND THAT -ON LINE- 
BIT IS OFF AND INTERVENTION REQUIRED BIT IS ON. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT POWER ON SEQUENCE IS NOT FUNCTIONING CORRECTLY. SEE 

POWER ON SEEK FLOW CHART. 
NOTE- HEADS EXTENDED SWITCH TRANSFER GENERATES ON LINE SIGNAL TO 



2841. 

2. CHECK FILE METER SWITCHES NOT ON DISABLE 

3. NOT GETTING MOD SELECT TO FILE (FD02I) 

4. NO CYL PULSES (FO056) 

USER OPTIONS - 
SEE 3.3 



1206 - FILE NOT READY - 

PROGRAM ATTEMPTED A TEST I/O COMMAND AND RECEIVED A CONDITION 
CODE 1 WITH UNIT CHECK ON. SENSE DATA INDICATES THAT FILE IS ON 
LINE BUT NOT READY. 

- DIAGNOSTIC INFORMATION - 

SUSPECT POWER ON SEEK SEQUENCE 
1. DETENT IN SIGNAL (FD056) 
REFER TO POWER ON SEEK FLOW CHART 

- USER OPTIONS - 

SEE 3.3 

1207 - UNSELECTED FILE STATUS - 

PROGRAM ATTEMPTED A TEST I/O COMMAND AND RECEIVED A CONDITION 

CODE 1 WITH UNIT CHECK ON. PROGRAM THEN ISSUED A SENSE I/O AND 

SENSE DATA INDICATES THAT FILE IS ON LINE. READY, BUT UNSELECTED 
STATUS BIT IS ON. 

- DIAGNOSTIC INFORMATION - 

SOME UNSELECTED ACCESS HAS A FILE SAFETY (FS) LINE - UP - TO THE 
2841. 

1. SOLID MOD SELECT (FD021) 

2. SOLID SELECTED READY (FD025) 

3. SOLID SELECTED END OF CYL. (FD02S) 

4. SOLID UNSAFE (FD02S) 

- USERS OPTIONS - 

1. SYSTEM RESET AND EXAMINE -FS- LINES TO DETERMINE WHICH ACCESS 
LINE IS INCORRECT. 

2. SEE 3.3 FOR ERROR EXIT OPTIONS 
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1208 - UNIT CHECK ON TEST I/O 

PROGRAM RECEIVED A UNIT CHECK ON A TEST I/O COMMAND AND ISSUED A 
SENSE COMMAND. PROGRAM HAS DETERMINED THAT UNIT CHECK WAS NOT 
CAUSED BY UNSAFE, NOT ON LINE. NOT READY, OR UNSELECTED STATUS. 
THUS. SOME OTHER CONDITION CAUSED THE UNIT CHECK. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT SEEK INCOMPLETE. BUSS OUT PARITY, OR SEEK CHECK. BIT 
SHOULD SHOW UP IN SENSE DATA PRINTED WITH ERROR TYPEOUT. 

- USER OPTIONS - 

1. SEE 3.3 

2. TRY TURNING FILE DRIVE OFF -ON AND RESET-RESTART 

1209 - CONDITION CODE 1 BUT NO CHANNEL STATUS. 

PROGRAM RECEIVED A CONDITION CODE 1 ON A TEST I/O, BUT NO CHANNEL 
STATUS WAS STORED, NO UNIT CHECK OCCURED . AND CONTROL UNIT IS NOT 
BUSY. 



DIAGNOSTIC INFORMATION 



SOLID SELECTED SEEK START 

POSSIBLY LOSING READY AT FILE DRIVE WITH A SOLID FILE BUS 6 

(FD021 ) 

SOLID RESTORE (FD021) 

COULD HAVE GOTTEN AN UNEXPECTED DEVICE END. IF USER POWERED 

OFF-ON THE FILE. (DETENT CAUSES DEVICE END) 



- USER OPTIONS - 

1 



TRY STARTING TEST OVER. LEAVE FILE DRIVE ON. IF SAME FAILURE 
OCCURS, DETERMINE WHY 2841 IS HANGING IN LOOP OR WHY DRIVE IS 
LOOSING READY. 
2. OPTIONAL SCOPE LOOPS, SEE 3.3 



1211 - CONTROL UNIT HUNG UP BUSY 

PROGRAM RECEIVED A CONDITION CODE I ON A TEST I/O WITH CONTROL 
UNIT BUSY, (STATUS MODIFIER AND BUSY IN CSW.) 

- DIAGNOSTIC INFORMATION - 

1. NO MOD SELECT (FD021) 

2. ATTENTION LATCH (FD053) ALWAYS ON. 

3. DELTA ATTENTION LATCH (FD0S3) ALWAYS ON. 

4. SOLID FILE BUS 2 (FD020) 

5. SOLID CONTROL UNIT BUSY 



- USER OPTIONS - 
SEE 3.3 



1301 - CHANL. STATUS OR UNIT CHECK ON NO OP COMMANO 

PROGRAM EXECUTED A NO OP COMMAND AND DETECTED ERROR STATUS OR 
UNIT CHECK 

- DIAGNOSTIC INFORMATION - 

1. IF END OF CYLINDER BIT ON. CHECK FOR SOLID FILE BUS 7.(F0021) 

2. OTHERWISE. EXAMINE SENSE DATA TO DETERMINE CAUSE OF STATUS OR 
UNIT CHECK. 

- USERS OPTIONS - 

SEE 3.3 



1302 - NO CHANL OR DEVICE END ON NO OP. COMMAND 



PROGRAM ATTEMPTED A NO OP COMMAND BUT D 10 NOT RECEIVE CHNL ANO 
DEVICE END IN THE CHANNEL STATUS WORD. 



1210 - UNEXPECTED END OF CYLINDER - 

PROGRAM RECEIVED A UNIT CHECK ON A TEST I/O COMMAND AND 
DETERMINED THAT END OF CYL. BIT IS ON. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT ERRONEOUS END OF CYLINDER FROM FILE BUS 4 (FD020) 

2. NO HAR RESET IF THIS ERROR OCCURS ON 2ND TIME THROUGH THIS 
SECTION (FD06S) 

3. NO FILE BUS 2 

- USER OPTIONS - 

SEE 3.3 



- DIAGNOSTIC INFORMATION - 

1. 2841 TROUBLE POSSIBLE 

- USER OPTIONS - 

SEE 3.3 

1303 - CONDITION 0, 2. OR 3 ON NO OP COMMAND. 

PROGRAM EXECUTED A NO OP COMMAND AND DETECTED INCORRECT CONDITION 
CODE. (SHOULD GET CC1) 

- DIAGNOSTIC INFORMATION - 

1. POSSIBLE SOLID FILE BUS 7 (FD021) 

- USER OPTIONS - 

SEE 3.3 
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1401 - CHANNEL STATUS OR UNIT CHECK ON SENSE COMMAND 

PROGRAM ISSUED A SENSE COMMAND AND SOME CHANNEL STATUS BIT OR 
UNIT CHECK WAS SET. 

- DIAGNOSTIC INFORMATION - 

EXAMINE CHANNEL STATUS TO DETERMINE WHICH CHECK BIT IS ON. 
(DEFINITION CHART AT PARAGRAPH 6.1) IF THIS IS THE ONLY ERROR 
NUMBER PRINTED. SUSPECT INTERMITTENT TROUBLE. 



USER OPTIONS - 

1. TO LOOP ON SENSE I/O COMMAND. SEE 3.3. ERROR HALT 



- USER OPTIONS - 

SEE 3.3 

1502 - HANG UP CONDITION ON A CONTROL HEAD SEEK - 

PROGRAM ATTEMPTED A HEAD SEEK COMMAND. BUT CONTROL UNIT ANO FILE 
DID NOT BECOME AVAILABLE WITHIN 2 SECONDS. NO CHECKING IS MADE 
ON THE SEEK OPERATION ITSELF. 

- DIAGNOSTIC INFORMATION - 

LOOKS LIKE CONTROL UNIT IS NOT GETTING TO ENDING PROCEDURE IN THE 
MICRO PROGRAM. NOT GETTING CONTROL UNIT END AND DEVICE ENO FROM 
2841. 



1403 - NO CHANL OR DEVICE END ON SENSE COMMAND 

COULD BE A CHANNEL PROBLEM. 

(SERVICE IN, SERVICE OUT AREA) 

THIS COMMAND IS THE FIRST ATTEMPT TO TRANSFER BYTES FROM 2841 ON 

SERVICE IN/SERVICE OUT BASIS. 



- USERS OPTIONS- 



TRY RUNNING SELECTOR CHANNEL D FT (PID 0810) 
SEE 3.3 



1404 - INCORRECT SENSE ON SENSE COMMAND 

PROGRAM ISSUED A SENSE COMMAND AND SENSE DATA RECEIVED WAS 
INCORRECT. SENSE DATA SHOULD BE 0-0, 0-0. 0-0, 11001000. 
UNIT CHECK AND CHANL STATUS WERE NOT SET. 

- DIAGNOSTIC INFORMATION - 

ONLY DRIVE READ AND, ON LINE, BITS SHOULD BE ON IN 

THE SENSE DATA. ANY BITS ON IN THE FIRST 3 SENSE BYTES SHOULD HAVE 

TURNED ON UNIT CHECK IN DEVICE STATUS. SUSPECT FAULTY 

INDICATION OF ERROR IN SENSE DATA. 

- USER OPTIONS - 

SEE 3.3 

1501 - HANG OP CONDITION ON READ H A COMMAND 

PROGRAM ATTEMPTED A READ H A COMMAND WHICH CAUSED A HANG UP 
CONDITION IN THE CONTROL UNIT. NO CHECK IS MADE ON THE READ 
OPERATION. CONTROL UNIT AND FILE WHERE NOT AVAILABLE TO CHANNEL 
AFTER 2 SECONDS. SO A HANG UP CONDITION IS ASSUMED. 

- DIAGNOSTIC INFORMATION - 

1. NO PULSES ON INDEX LINE FROM FILE TO 2841 (FD056 ) 

2. SOLID SELECTED INDEX (FD02S) 

3. LOOKS LIKE CONTROL UNIT NOT GETTING TO ENDING PROCEDURE IN 
THE MICRO PROGRAM (I.E. NOT SETTING CHANNEL AND 

OEVICE END. > 



- USER OPTIONS - 

SEE 3*3 

1503 - NO DEVICE END ON FIRST CONTROL CYL SEEK 

ON THE FIRST ATTEMPTED CONTROL SEEK, 
HANG UP CONDITION OCCURED IN 2841. 

- DIAGNOSTIC INFORMATION - 

1. FAILED TO GET DEVICE END AFTER A SEEK OP - IE.. NO SELECTED 
SEEK START (FD020) 

2. SOLID RESET TO GATED ATTENTION LATCH (FD0S3) 

3. SUSPECT NO GATED ATTENTION - (FD053) 

4. NO SELECTED CONTROL TAG (FO021). 

- USER OPTIONS - 

SEE 3.3 

1504 - HANG UP ON RECALIBRATE COMMAND - 

PROGRAM ATTEMPTED A RETURN TO ZERO SEEK AND CPU DID NOT GET 
DEVICE END WITH-IN 2 SECONDS. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT NO RESTORE (FD021) 

2. DELTA ATTENTION LATCH (FD0S3) ALWAYS OFF. 

3. NO FILE BUS 6 (F0021) 

4. LOST FILE READY (NO DETENT MAYBE) 

- USER OPTIONS - 

1. TRY RUNNING SEEK TEST. (SECTI0N2) IF 1 AND 2 ABOVE DO NOT CORRECT 
FAILURE. 

2. SEE 3.3 FOR ERROR EXIT OPTIONS 
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1505 - LOST READY ON A HEAD SEEK 

PROGRAM DETECTED LOSS OF READY ON FIRST CONTROL HEAD SEEK. 
- DIAGNOSTIC INFORMATION 

1. SUSPECT NO SET DIFFERENCE OR NO FILE BUS 6 (RESET D2 ) (FD030) 

2. SOLID CONTROL TAG (FD021) (SHOULD GIVE SELECT LOCK) 



3. TO LOOP IN ROUTINE. READING HA WITH ALL -10- HEADS WITHOUT 
CHECKING ERRORS TURN ON S1.R6, (FNC 1). THEN EXIT HALT WITH BIT 
12. 13 & 14 ON (FNC O) 

4. TO CONTINUE PROGRAM - EXIT HALT (FNC 0). PROGRAM WILL PROCEED TO 
NEXT ROUTINE. 



- USER OPTIONS - 
SEE 3.3 

1600 - READ HEAD MAP DESCRIPTION - 

READ HEAD MAP ERRORS ARE THE RESULT OF THE PROGRAM'S ATTEMPT TO 
READ HA WITH ALL 10 HEADS. IF ANY ERRORS OCCUR, AN ERROR NUMBER 
IS PRINTED OUT FOLLOWED BY THE HEAD MAP. PROGRAM HALTS TO ALLOW 
USER TO EXAMINE THE MAP AND CHOOSE AN OPTION TO CONTINUE. 

- EXAMPLE OF HEAD MAP PRINT OUT 

** ER 16XX UU AAAAAA 
READ HEAD MAP - 

HEAD NUMBER 00 01 02 03 

RD HA RESULT — 00 01 02 OX 
HD 04 HA READ FFFFFFFFFF 
CSW ADRS YYYY UU2Z CNTR 
HD 05 



04 


05 


06 


07 


08 


09 


NF 


TX 


SD 


US 


BC 


SE 



SNS B-B B-B B-B B-B 



HD 09 
CSW 

EXPLANATION OF MAP SYMBOLS- 
OX - ACTUAL HEAD NUMBER FROM HA READ, (WILL EQUAL HEAD NUMBER IF 

CORRECT) 
NF - NO RECORD FOUND ON THIS HEAD 
TX - NO DATA BEING TRANSFERED 
SD - SER/DES CHECK ON THIS HEAD 
US - UNSAFE ON THIS HEAD 

BC - DATA CHECK (BURST CHECK) ON THIS HEAD 
SE - SOME OTHER SENSE ERROR (LIKE SEEK CHECK, OR END OF CYLINDER) 

THE LINES FOLLOWING THE HEAD MAP PROVIDE THE ACTUAL HOME ADDRESS 
BYTES RECEIVED BY THE CPU. AND THE CSW AMD SENSE DATA FOR 
EACH FAILING HEAD. IF ALL HEADS FAIL, ONLY DATA ON HEAD 00 IS 
PRINTED. 

- READ IN AREA IN CORE STORAGE IS SET TO HEX FF • S BEFORE READ IS 
PERFORMED, THUS, FF<S AS DATA READ INDICATES NO DATA WAS TRANSFERED 

USER OPTIONS - (FOR ALL READ TEST ERRORS, 16XX) 

1. SCOPE LOOP 

TURN ON OPTION SWS 8& 1 2 TO LOOP IN SIO READING HA ON THE 
FAILING HEAD. 

2. TO LOOP IN ROUTINE, READING HA ON ALL 10 HEADS CHECKING FOR 
ERRORS, TURN ON S1.R6 (FNC 1), THEN EXIT HALT (FNC 0). 



1601 - ERROR ON READ HA, NO RECORD FOUND ON ALL HEADS 

PROGRAM WAS UNABLE TO READ HA FROM ANY HEAD , AND THE SENSE DATA 
INDICATES NO RECORD FOUND ON ALL HEADS. 
SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 

- DIAGNOSTIC INFORMATION - 

1. NO DATA GETTING TO 2841 FROM 2311 

2. FILE NOT GETTING READ GATE 

3. OPEN READ COAX. 

4. SOLID SELECTED INDEX (FD025) 

- USER OPTIONS - 

SEE ER. NO. 1600 FOR DESCRIPTION OF READ HEAO MAP AND OPTIONAL 
SCOPE LOOPS 

1602 - ERROR ON READ HA, DATA CHECK (BURST CHECKS) ON ALL HEADS - 

PROGRAM ATTEMPTED TO READ HA FROM ALL HEADS AND DETECTED BURST 
CHECK ERRORS ON ALL HEAOS. (INDICATES ALL REAO OATA IS BAD) 
SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 

- DIAGNOSTIC INFORMATION - 



CHECK THAT HEADS ARE LOADED AND FLYING AGAINST OISK SURFACE 
NO HEAD SELECT (FD021) OR SOLID HEAO DESELECT (FD06S) 
DETENT LATCH ON SOLID. OR ACCESS TROUBLE CAUSES ACCESS TO 
LOCATE AT CYL. MINUS 1 (FD050), DETENT LATCH (SEE OPTION 2) 
BURST CHECK ERRORS SUGGEST 2841 S/D CLOCKING TROUBLE. (VFO) 



USER OPTIONS 



1. SEE ERROR NO. 1600 FOR HEAD MAP DESCRIPTION AND SCOPE LOOPS. 

2. MANUALLY POSITION ACCESS AT LEGITIMATE CYLINDER OR 1 AND 
SET S1.R6 (FNC1) THEN SET SW 12 AND EXIT HALT. IF NO ERRORS. 
CONTINUE TO SEEK TEST. DO NOT RESTART THE TEST BECAUSE ACCESS 
WILL PROBABLY RETURN TO CYLINDER -1. 



1603 - ERROR ON READ HA, S/D CHECK ON ALL HEADS - 



VERY SIMILAR TO ERROR 1602 

POSSIBLE VFO ADJUSTMENT PROBLEM 

SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 



1604 - READ HA ERROR, UNSAFE ON ALL HEADS 



PROGRAM ATTEMPTED TO READ HA FROM ALL HEADS AND DETECTED UNSAFE 

ON ALL HEADS. 

SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 
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DIAGNOSTIC INFORMATION 
SUSPECT - 



SOLID WRITE GATE 
SOLID SEEK READY 



- USER OPTIONS - 

SEE ER NO. 1600 FOR EXPLANATION OF HEAD MAP AND SCOPE LOOPS. 

160S - ERROR ON READ HA, DATA CHECK AND NRF ON ALL HEADS. 

PROGRAM ATTEMPTED TO READ HA FROM ALL HEADS AND RECEIVED NRF AND/ 

OR DATA CHECKS ON ALL HEADS 

SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 

- DIAGNOSTIC INFORMATION - 

1. POSSIBLE NO READ DATA LINE 

2. SUSPECT NO HOME ADDRESSES ON THIS TRACK 

3. SER-OES IN CONTROL UNIT 

- USER OPTIONS - 

SEE ERROR 1600 FOR HEAD MAP DESCRIPTION AND SCOPE LOOPS 




SOLID HAR RESET (IF HEAD MAP ALL ZEROS), (FILE BUS 3 AND 
SELECTED CNTRL FD060). 



- USER OPTIONS - 

SEE ERROR NO 1600 FOR HEAD MAP DESCRIPTION AND SCOPE LOOPS 



RROR ON READ HA 



PROGRAM ATTEMPTED TO READ HA FROM ALL HEADS, AM) DETECTED ERRORS 
ON SEVERAL HEADS OR 'SE« ERRORS. EXAMINE HEAD MAP AND DETAILED 
PRINTOUT FOR ANALYSIS OF TROUBLE. 
SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 



DIAGNOSTIC INFORMATION - 

1. FAILING HAR RESET LINE WILL CAUSE THIS ERROR , (EXAMPLE - NO 
FILE BUS 3) (FD060) 

2. SUSPECT ONE HEAO SELECTED SOLID 

EXAMPLE - HEAD MAP 45674567 TXTX 

INDICATES SOLID HEAD 4 SELECTED. 
(CARD A1G2) PAGE FD060 

USER OPTIONS - 

SAME AS ERROR 1608 



1607 - ERROR ON READ HA, UNSAFE ON 9 HEADS - 

PROGRAM ATTEMPTED TO READ HA FROM ALL HEADS AND DETECTED UNSAFE 

CONDITION ON ALL BUT ONE HEAD 

SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 



1610 - ERROR ON READ HA, NO RECORD FOUfO ON ONE HEAD 

PROGRAM READ HA'S FROM ALL HEADS AND OETECTED A NRF ON ONE HEAD. 
HEAD MAP WILL SHOW WHICH HEAD WAS IN ERROR. A SINGLE ERROR LIKE 
THIS SUGGESTS A PROBLEM COMMON TO THE PARTICULAR HEAD 
SEE ERROR 0600 FOR DESCRIPTION OF HEAO MAP 



- DIAGNOSTIC INFORMATION - 

NINE UNSAFE CONDITIONS INDICATE SOLID Y SELECT. THE HEAD WHICH 
READ CORRECTLY IS THE HEAD SOLIDLY SELECTED. 
HAR DECODE - A1J2 - FD 065 

- USER OPTIONS - 

SEE ER. NO. 1600 FOR HEAD MAP DESCRIPTION AND SCOPE LOOPS. 



DIAGNOSTIC INFORMATION - 



1608 - ERROR ON READ HA 



WRONG HEAD SELECTED 



PROGRAM ATTEMPTED TO READ HA FROM ALL HEADS. NO MACHINE ERROR 
CONDITIONS WERE DETECTED, BUT HA READ INDICATES THAT HEADS WERE 
NOT SELECTED CORRECTLY. HEAD MAP PRINTED OUT WILL SHOW HEAD 
NUMBERS THAT WERE READ DO NOT ALL EQUAL HEAD NUMBER SELECTED. 
EXAMINE PATTERN FOR CLUES TO FAILURE. 
SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 

DIAGNOSTIC INFORMATION - 

LOOKS LIKE SOME ADDRESS REGISTER BIT FAILING. (SOLID ON OR SOLID 
OFF) 

1. SUSPECT HAR - A1G2 (FD060) AND BUS LINES INTO HAR (SUCH AS NO 
FILE BUS 4 OR 7) (FD020), ( FD 02 1 ) . 

2. IF SAME HEAD NUMBER LISTED IN ALL 10 HEAO POSITIONS, SUSPECT 
NO SET HEAD LINE (F0021) 



BAD HEAD OR OPEN LINE ON THE FAILING HEAD INDICATEO IN MAP 
HEAD OUT OF ADJUSTMENT OR LOOSE 



- USER OPTIONS - 

1. SEE ER. NO. 1600 FOR DESCRIPTION OF HEAD MAP AND SCOPE LOOPS. 

2. FOR HEAD ALIGNMENT PROBLEMS. RUN OPTIONAL ROUTINE 7 IN 
SECTION 4 

1611 - ERROR ON READ HA, DATA (BURST) CHECK ON ONE HEAO 

PROGRAM READ HA FROM ALL HEADS AW DETECTED A BURST CHECK ON ONE 

HEAD. THE READ HEAD MAP PRINTED OUT WILL SHOW WHICH HEAO WAS IN 

ERROR. THIS ERROR SUGGESTS SOMETHING COMMON TO THE PARTICULAR 

HEAD. 

SEE ERROR 1600 FOR DESCRIPTION OF HEAD MAP 

- DIAGNOSTIC INFORMATION - 

1. NO HEAD SELECT FOR THIS HEAD 

2. ONE HEAD OUT OF ADJUSTMENT 

3. LOOSE OR OPEN HEAD PLUG 

4. INTERMITTENT READ ERROR ON THIS HEAD 

5. BAD HEAD (R/W COIL) 
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USER OPTIONS - 



1704 - SEEK INCOMPLETE ON RECALIBRATE COMMAND 



1. SEE ER. NO. 1600 FOR DESCRIPTION OF HEAD MAP AND SCOPE LOOPS 

2. NOTE - OPTIONAL ROUTINE 7 IN SECTION 4 IS TRACKING 
ADJUSTMENT ROUTINE. 



PROGRAM EXECUTED RECALIBRATE COMMAND AM) ACCESS WENT TO INNER OR 
OUTER CRASH STOP. 

USER OPTIONS - 

SAME AS ER. 1703. 



1701 - UNIT CHECK ON RETURN TO 000 SEEK 

PROGRAM ATTEMPTED A RESTORE TO 00 FOLLOWED BY A TEST I/O AND 
DETECTED A UNIT CHECK. 

- DIAGNOSTIC INFORMATION - 

IF THIS IS THE FIRST ERROR NUMBER PRINTED. ASSUME POWER-ON SEEK 
WORKED PROPERLY. PROBLEM IS THEN RELATED TO RETURN TO 000 SEEK. 
EXAMINE SENSE DATA TO DETERMINE WHAT SET UNIT CHECK. 

1. LOOSING-ON LINE-DURING THE RECALIBRATE COMMAND. 

- USER OPTIONS - 

1. SEE 3.3 



1706 - FAILED TO RETURN TO 000 ON RESTORE OP. 

PROGRAM ATTEMPTED A RECALIBRATE COMMAND FOLLOWED BY A READ HA. 
THE HOME ADDRESS READ WAS NOT FOR CYLINDER 000. HEAD 00. NO UNIT 
CHECK ERRORS OCCURED . 

- DIAGNOSTIC INFORMATION - 

1. SOLID ON-LINE SIGNAL (FDOSO) 

2. CONTROL TAG TAG LINE OR FILE BUS 6 (FD021) 

- USER OPTIONS - 

SEE 3.3 



1702 - NOT BUSY ON RETURN TO 000 SEEK 

PROGRAM ATTEMPTED A RETURN TO 000 COMMANO , BUT FILE NEVER WENT 
BUSY SEEKING. PROGRAM FAILED TO GET BUSY BIT IN CSW ON TIO AFTER 
RECALIBRATE. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT NO SEEK START 

2. SUSPECT SOLID SEEK READY < FD 053 ) 

3. SOLID SELECTED FILE READY (FD025) 

- USER OPTIONS - 

1. SEE 3.3 



1707 - UNIT CHECK ON READ HA 

PROGRAM EXECUTED A RECALIBRATE COMMAND AND THEN READ HA TO CHECK 
FOR CYL. 000 AND UNIT CHECK WAS DETECTED ON THE READ HA COMMAND. 

- DIAGNOSTIC INFORMATION - 

NOTE - ROUTINE 6 TESTS READ HA - (ALREADY COMPLETED) COULD BE 
THAT ACCESS DETENTED AT CYLINDER MINUS 1. 

- USER OPTIONS - 

SEE 3.3 



2000 - CONTROL UNIT PARITY CHECK 



1703 - HANG UP CONDITION ON RECALIBRATE COMMAND 

PROGRAM ATTEMPTED A RETURN TO ZERO SEEK. THE OPERATION WAS NOT 
COMPLETED WITHIN 2 SECONDS, CAUSING A TIME OUT ERROR FROM THE 
START I/O SUBROUTINE. UNIT CHECK WAS NOT SET. 

- DIAGNOSTIC INFORMATION - 

LOOKS LIKE 2841 HANG UP CONDITION. MICRO-PROGRAM IS NOT GETTING 
TO ENDING SEQUENCE (NO DEVICE AND CHANNEL END SIGNAL) 

- USER OPTIONS - 



AN UNEXPECTED 2841 PARITY ERROR OCCURED. CAUSING HANG UP 
CONDITION WITH CHANNEL NOT CLEARED. PROGRAM PRINTS ERROR. CAW 
AND CSW. 

- DIAGNOSTIC INFORMATION - 

SUGGESTS TROUBLE IS IN 2841. 

- USER OPTIONS - 

1. TRY RESTART (LOOP SECTION 2) 

2. LOOK FOR PARITY ERROR IN 2841 



1. USER SHOULD DO A RESET-RESTART TO CLEAR CHANNEL AND CONTROL 
UNIT. 

2. SEE 3.3 
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2100 - EXPLANATION OF SEEK MAP - 

THE PROGRAM EXECUTES A SERIES OF SELECTIVE CYLINDER SEEKS 



USER OPTIONS - 

SEE ER. 2100 FOR MAP DISCRIPTION AND SCOPE LOOPS 



1. 


OK 


2. 


CON 


3. 


COF 


4. 


DON 


S. 


DOF 


6. 


ERR 


7. 


+ 1 


8. 


-1 


9. 


XXX 



DESIGNED TO TEST ALL-CAR- AKO DIFF. COUNTER BIT POSITIONS FOR ON 
AM) OFF CONDITIONS. THE PARTICULAR HA READ AT THE DETENTED 
CYLINDER IS ANALYZED BY THE PROGRAM, AND PARTICULAR ERROR 
CONDITIONS ARE DEDUCED AND IDENTIFIED BY ERROR NUMBER. EACH 
ERROR NUMBER IS ACCOMPANIED BY A SEEK MAP. 

EXAMPLE OF SEEK MAP ERROR PRINT-OUT- 

** ER 21XX UNIT CUU, ADRS. AAAAAA. 

SEEK MAP — 

BIT POSITION-1 2 4 8 16 32 64 128 

SEEK RESULTS-OK CON COF DON DOF ERR +1 XXX 

(EXAMPLE SHOWS ALL POSSIBLE MAP CHARACTERS) 

DEFINITION OF MAP CHARACTERS - 

CAR AND DIF. CNTR. FUNCTIONED PROPERLY, THIS POSITION. 
THIS BIT ON SOLID IN CAR. 
THIS BIT OFF SOLID IN CAR. 
THIS BIT ON SOLID IN DIF. CNTR. 
THIS BIT OFF SOLID IN DIF. CNTR. 

SOME OTHER ER. SUCH AS BURST CHECK OR CAN'T READ HA 
ACCESS SEEKED TO WRONG CYL BY +1 (OVERSHOOT) 
ACCESS SEEKED TO WRONG CYL BY -1 (UNDERSHOOT) 
CYL ADDRESS SEEKED - OCCURS WHEN ACCESS WENT TO THE WRONG 
CYLINDER, OR WHEN WRONG HA EXISTS AT A SEEKED TO CYL. 

- USER OPTIONS - 

1. FOR SCOPE LOOP ON ERROR CONDITION TURN ON BIT 12 (FNC 0) 
(RECALIBRATE, SEEK TO FIRST FAILING CYL., SEEK SAME CYL AGAIN, 
RECALIBRATE. SEEK, SEEK....) 

THE RECALIBRATE CCW COMMAND CAN BE CHANGED TO A SEEK CYL 000, BY 
CHANGING COMMAND CODE -13- TO -07- AT LABEL -T21C5- IN S2.R1 
ROUTINE 1. 

2. TO LOOP IN THIS ROUTINE SEE 3.3 

2101 - SPECIAL UNIQUE MAP 

PROGRAM DETECTED ERRORS DURING TEST OF CAR AND DIFF. COUNTER. 
EXAMINE MAP FOR UNIQUE PATTERNS LISTED BELOW. 

- DIAGNOSTIC INFORMATION - 

SUSPECT INCORRECT GATED CAR OUTPUT 

1. IF LAST TWO CODES IN MAP * 032 64 THEN INITIAL SEEK LATCH IS NOT 
TURNING ON. (F0 026). CARD AIG6 

2. IF LAST TWO MAP CODES * 032 OK THEN THE INITIAL SK LATCH BLOCK 
TO CAR BITS 1,4,16, AND 64 IS FAILING. (FD026) CARD A1H6 

3. IF LAST TWO MAP CODES * OK 064 THEN THE INITIAL SK LATCH BLOCK 
TO CAR BITS. 2,8,32, AND 128 IS FAILING. (FD026) CARD A1E6 



2110 - DIFFERENCE COUNTER BIT ON OR OFF SOLID. 

SEEK CHECK AND SEEK INCOMPLETE ON CYLINDER SEEK COMMANO SUGGESTS 
ACCESS WENT TO INNER OR OUTER CRASH STOP, LIKE COUNTER CANST COUNT 
TO ZERO BECAUSE SOME DIFF. COUNTER BIT IS SOLID ON. 

- DIAGNOSTIC INFORMATION - 

1. DIFF. CNTR. -A1J4 - (SOME BIT ON OR OFF SOLID )-( F0040 ) 

■I 2. SOLID SET DIFFERENCE - ( FO 02 ) NO STOP SIGNAL TO DETENT 

, 3. SOLID RESET TO A DIFF CNTR TRIGGER FO 030 

4. COUNTER ZERO - (FDOSO) NO STOP SIGNAL TO DETENT 

5. CAR OUTPUT BUS LINE 'ON' (FD026) - 2841 WILL THEN COMPUTE WRONG 
DIFFERENCE (ONE 'DOF' INDICATES FAILING BUS LINE 6) 

6. SOLID SELECTED SET CYLINDER (FD030) 

- USER OPTIONS - 

SEE ER. NO. 2100 FOR SEEK MAP DESCRIPTION AND SCOPE LOOP OPTIONS. 

2111 - ALL DIFF. COUNTERS ON SOLID - 

GOING TO INNER CE CYLINDER ON ALL SEEKS, (DIFF. COUNTER NOT COUNTING 
DOWN) THEREFORE, NOT GETTING COUNTER ZERO. 

- DIAGNOSTIC INFORMATION - 

1 
2 



3. 

4. 
5. 



NO SET DIFFERENCE (DIFF CNTR TRIGGERS ACL LEFT ON) ALL 'DON'S 

(FD021) 

SUSPECT NOT GETTING CORRECT DETENT BECAUSE OF FAILING SLOW OR 

INTERMEDIATE (FD050) 

NO GATED CYL. PULSES (FD053) 

NO FILE BUS SIGNALS ( FO 020 ) 

SOLID INHIBIT (FD0S3) 



2170 



USER OPTIONS - 

SEE ERROR 2100 FOR DESCRIPTION OF SEEK MAP AND SCOPE LOOPS. 

DIFFERENCE COUNTER BIT OFF SOLID - 

PROGRAM EXECUTED CYL SEEKS TO CYLINDERS 1, 2, 4, 8, 16, 32, 64, AND 
128, AND ON AT LEAST ONE SEEK, ACCESS FAILED TO MOVE, INDICATING 
THAT THAT BIT DID NOT GET SET ON IN OIFF. CNTR. 

DIAGNOSTIC INFORMATION - 

SUSPECT. 

1. DIFF. COUNTER - A1J4 (SOME BIT OFF SOLID) 

2. COUNTER RESET - A1K4 (SOME BIT NOT RESET ON) 



LINE DRIVERS 



A1K6 -(FD026) 



USER OPTIONS - 

SEE ER. NO 2100 FOR DESCRIPTION OF SEEK MAP AND SCOPE LOOPS. 
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2121 - ALL DIFF CNTRS OFF SOLID 

PROGRAM EXECUTED SERIES OF CYL. SEEKS DESIGNED TO TEST CAR AND DIFF. 
COUNTERS. THIS ERROR SAYS ALL DIF. COUNTERS ARE OFF. 

- DIAGNOSTIC INFORMATION - 

1. GETTING CONSTANT DIFFERENCE RESET (FD040) {MODULE SELECTED AND 
SET CYLINDER TAG TURNS ON ALL DIFF. COUNTERS). 

2. NOT GETTING SET CYLINDER ( FD 02 1 ) 

3. SOLID COUNTER ZERO (-L STOP) (ED 040) 

4. SOLID SET DIFFERENCE TAG (FD021) 

- USER OPTIONS - 

SEE ERROR NUMBER 2100 FOR DESCRIPTION OF SEEK MAP AND SCOPE LOOPS. 

2130 - CYL. AODRESS. REG. BITS ON SOLID - 

PROGRAM ATTEMPTED A SERIES OF PAIRS OF CYLINDER SEEKS AND ACCESS 
DETENTEO AT WRONG CYLINDER OR WAS GOING TO POSITIVE STOP. PROGRAM 
CALULATIONS INDICATE SOME CAR BIT IS ON SOLID. 

- DIAGNOSTIC INFORMATION - 

SUSPECT. 

1. CAR BIT ON SOLID FD030 

2. CAR - A1K4 - (FD030) 

3. LINE DRIVERS - AIK6 

4. SOLID OHA BIT CON (PRECEEDED BY 'DON'S) INDICATES FAILING BIT 
(2841-HA051) 

- USER OPTIONS - 

SEE ERROR NO. 2100 FOR DESCRIPTION OF SEEK MAP AND SCOPE LOOPS. 

2140 - CYL ADDRESS REG BITS OFF SOLID - 

AFTER PROGRAM CHECKS THAT ALL CAR BITS TURN OFF. A TEST IS MADE FOR 
ALL CAR BITS TURNING ON BY ATTEMPTING SELECTIVE CYLINDER SEEKS 
FOLLOWED BY SEEK TO CYL 16. IF ACCESS FAILS TO RETURN TO CYL 16. 
SOME CAR BIT IS PROBABLY FAILING TO TURN ON. THAT IS. THE ADDRESS 
IN CAR WAS INCORRECT. 

- DIAGNOSTIC INFORMATION - 

1. CAR - A1K4- SOME BIT OFF SOLID (FD030) 

2. INITIAL SEEK LATCH ON SOLID (FD026) 

3. NO OUTPUT FROM OHA IN 2841 (HA051 IN 2841 LOGICS) 

- USER OPTIONS - 

SEE ERROR NUMBER 2100 FOR DESCRIPTION OF SEEK MAP AND SCOPE LOOPS. 
1. 'COF' UNDER 32.64. AND OR 128 CHECK FOR LOOSE CABLES 
BETWEEN 231 l.S AND 2841 



2150 - ACCESS OVERSHOOT BY PLUS 1 

A READ HA FOLLOWING A SEEK COMMAND INDICATES THAT ACCESS DETENTEO 
ONE CYLINDER TOO FAR ON AT LEAST 3 SEEKS. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT NO SLOW SIGNAL (FD040) 

2. SUSPECT - CYLINDER PULSES FAILING 

- USER OPTIONS - 

SEE ERROR NO. 2100 FOR DESCRIPTION OF SEEK MAP ANO SCOPE LOOPS 

2160 - ACCESS UNDERSHOT BY MINUS 1 CYLINDER 

A READ HA FOLLOWING A SEEK COMMAND INDICATES THAT ACCESS OETENTED 
ONE CYLINDER TOO SHORT ON AT LEAST 3 SEEKS 

- DIAGNOSTIC INFORMATION - 

1. SLOW AT 3 SOLENOID PICKED SOLID. 

2. CYL. TRANSDUCER ADJUSTMENT - SUGGESTS TRANSDUCER SET TOO HIGH 

3. IF OOF UNDER BIT 1 - SOLID OUTPUT FROM CAR BIT 1 (FD026 IN 
2311) OR OHA BIT 1 (HA051 IN 2841) 

- USER OPTIONS - 

SEE ERROR NUMBER 2100 FOR DESCRIPTION OF SEEK MAP AND SCOPE LOOPS 

2190 - SOME OTHER SEEK ERROR - 

PROGRAM HAS DETECTED SEEK ERRORS WHICH CANNOT BE CLASSIFIED INTO THE 
SEEK MAP CHARACTERS. 

- DIAGNOSTIC INFORMATION - 

1. SUSPECT HAVING TROUBLE READING HA IF ANY ERR MESSAGES ARE 
PRINTED IN MAP. 

2. EXAMINE MAP AND DETAILED PRINTOUT FOR CLUES TO FAILURE 

- USER OPTIONS - 

SEE ERROR NUMBER 2100 FOR DESCRIPTION OF SEEK MAP AND SCOPE LOOPS 

220 1 - NO UNIT CHECK ON SEEK TO CYL 255 

NO SEEK INCOMPLETE OR SEEK INCOMPLETE IS NOT GIVING GATEO ATTENTION 

- DIAGNOSTIC INFORMATION - 

600 MS SINGLE SHOT IS NOT TIMING OUT (FD053). 

1202 - DID NOT GENERATE SEEK INCOMPLETE. SEEK CHECK. AND NOT READY. 

PROGRAM ATTEMPTED A SEEK TO CYL 255 AND EXPECTED SEEK INCOMPLETE. 
SEEK CHECK AND NOT READY. 
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- DIAGNOSTIC INFORMATION - 



SEEK INCOMPLETE LATCH NOT TURNING ON <FD053) 

USER SHOULD CHECK SENSE INFORMATION FOR FAILING BITS. 



2203 - FAILED TO GET TO CYL. 000 ON RECALIBRATE 



SHOULD NOT FAIL HERE - THIS COMMAND WORKED BEFORE, SECTION 1 
ROUTINE 7. 



2301 - SEEK INCOMPLETE DURING SINGLE CYL SEEKS 



ACCESS WENT TO INNER OR OUTER CRASH STOP. (SHOULDN'T GET THIS ERROR 
EXCEPT ON INTERMITTENT FAILURES SUCH AS CYL. TRANSDUCER ADJUSTMENTS 
OR DETENT ADJUSTMENT. 

2302 - UNIT CHECK ON CYL. SEEK 

SHOULDN'T GET THIS ERROR EXCEPT ON INTERMITTENT TROUBLE. TRY TO 
CONTINUE (EXIT ERROR HALT) 

NOTE. CANNOT ALWAYS DETERMINE THE WENT TO CYLINDER BECAUSE OF 
TROUBLE READING HOME ADDRESS AS INDICATED BY UNIT CHECK 

2303 - FAILED ON SINGLE CYLINDER SEEKS. OVERSHOOT 

PROGRAM WAS ATTEMPTING TO SINGLE CYLINDER SEEK FROM CYLINDER 000. 
001, 002, .... 199, 198, 197... .000. THE SEQUENCE WAS BROKEN AT SOME 
POINT AND ERROR PRINT OUT GIVES - 

1. 'WAS AT' CYL -XXXX, HD -XX 

2. 'SEEK TO' CYL- XXXX, HD -XX 

3. 'HA READ' CYL - XXXX, HD - XX 

- DIAGNOSTIC INFORMATION - 

SUSPECT 

1. CYL. TRANSDUCER ADJUSTMENT 

2. INCORRECT HOME ADDRESS AT FAILING CYL. 

- USER OPTIONS - 

SEE 3.3 

230* - ERROR ON SINGLE CYL SEEKS 

PROGRAM DETECTED AN INCORRECT HA DURING SINGLE CYL. SEEK ROUTINE. 
HA READ INDICATES ACCESS WENT TO WRONG CYLINDER. ERROR PRINTOUT 
INDICATES CYLINDERS AND HEADS INVOLVED. 

- DIAGNOSTIC INFORMATION - 

IF HA'S ARE ALL CORRECT. STRONGLY SUGGESTS CYL. TRANSDUCER OUT 
OF ADJUSTMENT, ESPECIALLY IF ACCESS IS FAILING ONLY ON SINGLE CYL 
SEEKS. 



2401 - 
-OR- 

2402 - UNIT CHECK ON CYL SEEK TO CYL 6 OR CYL 7, 9, lit 18, 36, 70. 76. 81, 86 

AND 198. 

PROGRAM ATTEMPTS A SERIES OF 20 SEEKS BETWEEN CYLINDER 6 AND 7, 9, 
11, 18, 36, 70, 76, 81, 86 AND 198. A UNIT CHECK OCCURRED, CAUSING 
THIS ERROR PRINTOUT. 

- DIAGNOSTIC INFORMATION - 

1. LOOKS LIKE INTERMITTENT SEEK TROUBLE. ACCESS PROBABLY WENT TO INNER 
OR OUTER CRASH STOP. 

2. POSSIBLY INTERMITTENT ERROR ON READ HA IF NRF OR DATA CHECK 

- USER OPTIONS - 

SEE 3.3 

2403 - 
-OR- 

2404 - INCORRECT SEEK. 

PROGRAM WAS TESTING FOR WORSE CASE SEEKS BY ATTEMPTING TO SEEK 
BETWEEN CYL. 6 AND CYL. 7. 9, 11, 18, 36, 70, 76. 81, 86 ANO 198, 
20 TIMES. AN INCORRECT SEEK OCCUREO » 

AND PRINT OUT GIVES INFORMATION ON FAILURE. PROGRAM WILL EXECUTE A 
-RECALIBRATE- OPERATION IF CONTINUED AFTER AN ERROR. 

- DIAGNOSTIC INFORMATION - 

1. DETENT TIMING, ADJUSTMENT, ETC. 

2. SOLID SLOW AT 3 (FD050) 

3. CYL. TRANSDUCER ADJUSTMENT 

4. INTERMITTENT CYL. PULSES, CAR, O IFF CNTR. 

- USER OPTIONS - 

SEE 3.3 

2501 - UNIT CHECK ON RANDOM SEEK TEST 

THIS ERROR SHOULD ONLY OCCUR ON INTERRMITTENT FAILURES 

- USER OPTIONS - 

SEE 3.3 

2502 - INCORRECT SEEK DURING RANDOM SEEK TEST 

THE RANDOM SEEK ROUTINE EXECUTES 

A SERIES OF 500 RANDOMLY COMPUTED CYLINDER SEEKS, READING HA AFTER 
EACH TO VERIFY CORRECT ACCESS POSITION. THE SEQUENCE WAS BROKEN 
BECAUSE PROGRAM DETECTED A SEEK ERROR. (UNEQUAL HA) 



- USER OPTIONS - 
SEE 3.3 
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DIAGNOSTIC INFORMATION - 

IF THIS IS ONLY ERROR. SUSPECT INTERMITTENT FAILURE LOOK FOR 
FAILURE PATTERNS IN PRINTOUTS 



- USER OPTIONS - 

SEE 3.3 

3000 - CONTROL UNIT HANG UP 

A CONTROL UNIT FAILURE OCCURED CAUSING A CONTROL UNIT HANG UP WITH 
CHANNEL NOT CLEARED 

- DIAGNOSTIC INFORMATION - 

LOOKS LIKE CONTROL UNIT TROUBLE. COULD BE PARITY ERROR 

- USER OPTIONS - 

1. RESTART PROGRAM AT BEGINNING OF THIS SECTION. 

2. PRINT ROUTINE TITLES TO FIND OUT WHICH ROUTINE IS CAUSING PRO 
BLEM. THIS WILL BE LAST 

ROUTINE TITLE PRINTOUT BEFORE ERROR OCCURS. 



3100 - WRITE HEAD MAP DESCRIPTION 

THE WRITE HEAD MAP IS PRINTED OUT WITH ALL WRITE TEST ERROR NUMBERS. 
DURING THE WRITE TEST, SEVERAL WRITE PATTERNS ARE WRITTEN ON 
CYLINDER 198 AND READ BACK FOR CPU COMPARISON. IF AN ERROR OCCURS. 
A CODE CHARACTER IS PLACED IN THE HEAD MAP AT THAT HEAD POSITION. 
WHEN ALL HEADS HAVE BEEN CHECKED. AN ERROR NUMBER IS PRINTED OUT, 
FOLLOWED BY THE WRITE HEAD MAP. PROGRAM STOPS TO ALLOW USER TO 
EXAMINE PRINTOUT AND CHOOSE AN OPTION TO CONTINUE. 

- EXAMPLE OF WRITE HEAD MAP PRINTOUTS 

(SHOWING ALL POSSIBLE MAP CHARACTERS) 

** ER 21 XX UU AAAAAA 

WRITE HEAD MAP — 

HEAD NUMBER 00 

WR RD RO RESULT OK 

HD 01 WR DATA XX RD 
CAW X...X CSW X...X 
CAW X...X CSW X...X 

- EXPLANATION OF MAP CHARACTERS 



01 02 03 

wx wu ws 

DATA XX ... 
SNS BBB...B 
SNS BBB...B 



04 


OS 


06 


07 


08 


09 


RN 


WW 


DS 


BC 


NX 


SE 


XX 













(STATUS AND SENSE AFTER WRITE) 
(STATUS AND SENSE AFTER READ) 



OK - DATA READ COMPARES WITH DATA WRITTEN AND NOT UNIT CHECK 

WX - NO RECORD FOUND WITH THIS HEAD ON WRITE RO (COULDN'T FINO HA) 

WU - UNSAFE ON THIS HEAD DURING WRITE RO 

WS - SER/DES CHECK WITH THIS HEAD ON WRITE RO 

RN - READ DATA DID NOT EQUAL WRITE DATA 

WW - SOME OTHER UNIT CHECK CONDITION DURING WRITE 

SD - SER/DES CHECK ON ATTEMPT TO READ RO JUST WRITTEN 

BC - BURST CHECK ON ATTEMPT TO READ RO JUST WRITTEN 

NX - NRF ON ATTEMPT TO READ RO JUST WRITTEN 

SE - SOME OTHER UNIT CHECK ON ATTEMPT TO RE» RO 

FOLLOWING THE HEAD MAP, SPECIFIC INFORMATION FOR EACH P AILING HEAO 

IS PRINTED OUT. 



WR DATA WAS XX (HEX) 

THE RO WRITE DATA PATTERNS USED ARE (HEX) 

1. 00 (FIRST PATTERN WRITTEN) 

2. FF 

3. 13 

4. E5 (LAST PATTERN WRITTEN) SHOULD REMAIN ON WRITE TEST CYLINDER 
UNTIL NEXT TEST RUN. 

DATA READ WAS XX ... ... ... XX 

(READ AREA PRESET TO FF'S) 
THE HEX PATTERN ACTUALLY READ WHEN ATTEMPTING TO VERIFY THAT DATA 
WAS WRITTEN CORRECTLY. 

CSW AND SENSE DATA (AFTER WRITE AND AFTER READ) 

THE CSW IS PRINTED IN HEX 

THE SENSE DATA IS PRINTED IN BINARY 

READ AREA IN CORE IS SET TO FF BEFORE WRITE DATA IS READ BACK 
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- USER OPTIONS 



1. SCOPE LOOP 

TURN ON OPTION SW 8 (FNC 0). PROGRAM WILL LOOP ON SIO WRITING 
WITH THE FIRST FAILING HEAD. WRITE DATA WILL BE THE PATTERN 
INDICATED IN PRINTOUT. (SIO SEQUENCE * SEEK HH , SEARCH-HA, WRITE RO 

2. TO LOOP IN ROUTINEt WRITING R O WITH ALL TEN HEADS WITHOUT 
CHECKING FOR ERRORS, TURN ON 

3. LOOP IN ROUTINE - TURN ON S3. Rl ( FNC 1 ) AND EXIT ERROR LOOP 

3101 - WRITE FAILURES ON ALL HEAOS 

PROGRAM ATTEMPTED TO WRITE A TEST PATTERN WITH ALL 10 HEADS. SOME 
COMBINATION OF ERRORS OCCURED ON ALL HEADS. THE FAILING WRITE 
PATTERN IS PRINTED ALONG WITH HEAD MAP 

- DIAGNOSTIC INFORMATION - 



- USER OPTIONS - 

SEE ERROR NO 3100 FOR DESCRIPTION OF WRITE HEAD MAP AND SCOPE LOOPS. 

3104 - NO RECORD FOUND ON ALL HEADS - (READ RO) 

PROGRAM ATTEMPTED TO WRITE RO RECORDS WITH ALL HEADS* WHEN 
ATTEMPTING TO READ THE RECORDS BACK (READ RO ) . NRF OCCURED ON ALL 
HEADS 

- DIAGNOSTIC INFORMATION - 

NO RECORD FOUND INDICATES NO DATA GETTING TO S/D IN 2841. HOWEVER. 
WE WERE ABLE TO READ HA BEFORE (MAYBE READ RO COMMAND NOT WORKING) 

- USER OPTIONS. 

SEE ERROR NO. 3100 FOR DESCRIPTION OF HEAD MAP AND SCOPE LOOPS. 



1. SUSPECT NOT WRITING AT ALL AS ALL HEADS ARE FAILING. COULD BE NO 
SELECTS! WRITE GATE (FD070) 

2. TYPICAL ERROR WOULD SHOW AS- 

-WROTE 00. READ XX - 
INDICATING NOTHING WAS WRITTEN OVER THE OLD XX DATA PATTERN 
ON CYL 005 

- USER OPTIONS - (SEE ERROR NO. 3100 FOR DESCRIPTION OF WRITE HEAD MAP AND 

SCOPE LOOPS. 

3102 - UNSAFE ON ALL HEADS 

PROGRAM ATTEMPTED TO WRITE RO RECORDS WITH ALL HEADS BUT DETECTED 
UNSAFE CONDITION ON ALL HEADS. THE RO RECORD INVOLVED IS SHOWN AS 
PART OF ERROR PRINTOUTS. 

- DIAGNOSTIC INFORMATION - 



3105 - 10 NO RECORD FOUNDS ON SEARCH HA 

- DIAGNOSTIC INFORMATION - 

PROGRAM CAN'T FIND HOME ADDRESS OR CYLINDER 198 
HOME ADDRESSES MAY BE MISSING 

- USER OPTIONS - 

SEE ERROR 3100 

3106 - READ DATA NOT EQUAL WRITE DATA ON ALL HEADS 

LOOKS LIKE NOT ACTUALLY WRITING. THEREFORE. RO DATA THAT WAS ON THE 
DISC WILL NOT BE DESTROYED. AFTER WRITING IS COMPLETED* PROGRAM. 

WILL READ THE DATA CORRECTLY. BUT SINCE THE NEW DATA WAS NOT 
ACTUALLY WRITTEN, THIS ERROR WILL RESULT. 



WRITE UNSAFE - FD090 (SEE PAGE 1.3 IN MAINTENANCE MANUAL) 
USER OPTIONS - 

SEE ER. NO. 3100 FOR DESCRIPTION OF WRITE HEAD MAP AND SCOPE LOOPS. 



DIAGNOSTIC INFORMATION - 

LOOKS LIKE NO WRITE CURRENT 

CHECK WRITE DRIVER 

(HEADS 1.2,5,6.9, INDICATES A SIDE WRITE DRIVER, HEADS 0,3,4.7.8 

B SIDE DRIVER) 



3103 - BURST CHECKS ON ALL HEADS 

PROGRAM ATTEMPTED TO WRITE RO RECORDS WITH ALL HEADS AND DETECTED 
BURST CHECKS ERRORS ON ALL HEADS. PRINT OUT INCLUDES HEAD MAP AND 
RO TEST RECORD 

- DIAGNOSTIC INFORMATION - 

1. FAULTY WRITE DRIVER (CAUSING BURST CHECKS WHEN ATTEMPTING TO 
READ BACK) 

2. WRITE DATA A AhD B AT BASE PLATE. 

3. SUSPECT SERIALIZER IN 2841 (THIS IS THE FIRST ATTEMPT TO WRITE 
IN THIS TEST.) 



- USER OPTIONS - 

SEE ERROR 3100 FOR READ HEAD MAP AND SCOPE LOOPS 

3107 - SER/DES CHECKS ON ALL HEADS 
INDICATES 2841 PROBLEM 

- DIAGNOSTIC INFORMATION - 

SER/DES IN 2841 

- USER OPTIONS - 

SEE ERROR NUMBER 3100 FOR MAP DESCRIPTION AND SCOPE LOOPS 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



1SSEP71 
43132 8 



PROG ID 


0812-* 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


16 


EC NO. 


431319 


431319A 


431326 



PROG ID 
PAGE 



0812-* 
16A 



o o o o n n (i i) ii i) (i (i ii ii n n n n n n n n n n 11 n n ii n n n n n o 



("((((( <<(<(<(((<<<<<(<( <<<<((((<<< 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
231 1 DIAGNOSTIC 



PART NO. 2279470 
PAGE 17 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2311 DIAGNOSTIC 



PART NO. 2279470 
PAGE 17A 



3108 - WRITE ERROR ON ONE HEAD 

PROGRAM WENT THROUGH WRITE TEST. WRITING RO RECORDS FROM ALL HEADS. 
SOME ERROR OCCURED ON ONE HEAD WHILE ALL OTHER HEADS WROTE 
CORRECTLY. HEAD MAP SHOULD SHOW WHICH HEAD AND TYPE OF ERROR. 

- DIAGNOSTIC INFORMATION - 

1. ALL HEADS READ HA OK (IF THIS IS ONLY ERROR TYPEOUT) 

2. TROUBLE MUST BE IN WRITE OR ERASE COIL IN FAILING HEAD (BAD 
HEAD OR LINES FROM THAT HEAD (WRITE ONLY) 

3. POSSIBLE INTERMITTENT WRITE OR READ TROUBLE OR DISC SURFACE WITH 
THIS HEAD AT CYL 005 

- USER OPTIONS - 

SEE ERROR NO. 3100 FOR WRITE HEAD MAP DESCRIPTION AND SCOPE LOOPS 



3201 - UNIT CHECK ON MULT I - TRACK OPERATION 

PROGRAM WAS TESTING HEAD ADVANCE BY ATTEMPTING 

A MULTI-TRACK READ HA. UNIT CHECK OCCURED • GIVING THIS ERROR 

NUMBER. 

- DIAGNOSTIC INFORMATION - 

EXAMINE CSW DATA TO DETERMINE WHERE CHAIN WAS BROKEN 

- USER OPTIONS - 

1. LOOP ON SIO - PROGRAM WILL LOOP 
ON MULTI-TRACK READ CHAIN. 

2. LOOP ON ERROR. PROGRAM WILL LOOP ON MULTI TRACK OPERATION 
(WITH ERROR PRINTOUTS) 

3. SEE 3.3 FOR ERROR EXIT OPTIONS 



3109 - TWO OR MORE BURST CHECKS OR NO. REC . FOUNDS. 
- DIAGNOSTIC INFORMATION - 

DATA CLOCKING IN 2841 

3110 - MORE THAN ONE HEAD WITH WRITE ERRORS 

3111 - CAN'T READ CORRECT HA AFTER TRY TO SEEK TO CYL. L98 

(THIS SHOULD NT HAPPEN HERE - READ HA HAS BEEN TESTED AND SEEK HAS 

BEEN TESTED ) 

EITHER NO HA ON CYL 198 OR INTERMITTENT READ OR SEEK. 



3202 - HAR ADVANCE FAILURE 

HOME ADDRESSES READ ON THE MULTIPLE-TRACK READ HOME ADDRESS WERE 
INCORRECT. 

- DIAGNOSTIC INFORMATION - 

HAR ADV. MAP XX XX ... XX XX 

THE HAR ADVANCE MAP INDICATES THE HOME AOORESSES THAT WERE READ 

(HH PORTION ONLY) 
SUSPECT - 

1. HAR AC ADVANCE (FD060) 

2. HAR ADVANCE SIGNAL ( FD 060 ) 

3. HAR CARD 



- USER OPTIONS - 

RE-RUN SECTION 1, RTN 6 AND SECTION 2. ALL RTNS. 



3112 - TIME OUT ON SEEK HH, SEARCH HA. WR. RO 

HANG UP CONDITION IN 2841 

THIS CONDITION IS CHECKED OUT AT BEGINNING OF THIS ROUTINE TO INSURE 

AGAINST HANGUP DURING WRITE TEST 

A HANG UP AT THIS TIME SUGGESTS PROBLEM UNIQUE TO WRITE RO COMMAND 

- USER OPTIONS - 

-DETERMINE IF CONTROL UNIT IS HUNG UP IN A LOOP. THIS LOOP SHOULD 

INDICATE ERROR 

SEE ERROR 3100 FOR SCOPE LOOP OPTIONS 

3IJ3 - UNIT CHECK ON SEEK TO CYL. 196 AND READ HA 

(THIS SHOULDNT HAPPEN AT THIS POINT IN PROGRAM) 
SEEK AND READ HA WERE CHECKED IN SECTIONS AND 1. 
RERUN TEST FROM BEGINNING. 



- USER OPTIONS - 

SAME AS ERROR 3201 



3301 - FAILED TO SELECT HEAD 9 



PROGRAM WAS ATTEMPTING TO SET UP FOR CHECKING END OF CYLINDER BUT 
COULD NOT GET HEAD 9 SELECTED . 

DIAGNOSITC INFORMATION - 

MUST BE INTERMITTENT ERROR BECAUSE HEAD SELECT WAS TESTED IN ROUTINE 
6. SECTION 0. READ HA FROM ALL HEADS. 
RERUN SECTION 0. 



3302 - UNIT CHECK WITH NOT END OF CYLINDER 



CHAIN WAS BROKEN ON SET UP FOR CHECKING END OF CYL. 
INTERMITTENT ERROR. 



SUSPECT 



USERS OPTIONS - 
SEE 3.3 
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3303 - NO END OF CYLINDER 

WHEN MEAD ADVANCED FROM HEAD 9 TO HEAD 10. NO END OF CYL. WAS 
GENERATED. 

- DIAGNOSTIC INFORMATION - 

SUSPECT END OF CYL. AND CIRCUIT (FD060) 

- USERS OPTIONS - 

SEE 3.3 

3304 - NO HEAD ADVANCE 

SEE 3303 FOR DESCRIPTION OF OPERATION 

- DIAGNOSTIC INFORMATION - 

SUSPECT NO HAR ADVANCE (FROM HEAD 9 TO HEAD 10) 

- USER OPTIONS - 

SEE 3.3 

3401 - NO TRACK OVERRUN BIT 

PROGRAM ATTEMPTED TO WRITE A 4500 BYTE RECORD AS PART OF DISK RPM 

TEST LOOKS LIKE ALL 4500 BYTES WERE WRITTEN - OR OVER RUN IS NOT 

WORKING. 4500 BYTES SHOULD NOT BE WRITTEN UNLESS DISK IS RUNNING 
VERY SLOW. 



1103 - NOT READY OR NOT ON LINE AFTER POWER OFF -ON. 

PROGRAM HANGS IN A TEST I/O LOOP WAITING FOR READY AND ON LINE. 
AFTER 2 MINUTES. PROGRAM TIMES OUT AND GIVES THIS ERROR NUMBER. 
PROGRAM ALLOWS USER A MAXIMUM OF 1 MIN. TO POWER DOWN AND BACK UP. 
THIS NUMBER MAY OCCUR IF THIS REQUIREMENT IS NOT MET. BE SURE YOU 
FOLLOWED DIRECTIONS IN REF.A. 

- DIAGNOSTIC INFORMATION - 

SUSPECT SWITCH EFFECTIVE LATCH HOLDING FILE IN DISABLE CONDITION. 
DETERMINE CAUSE OF NOT READY OR NOT ON LINE. 
1. TURN SECTION SENSE SWITCH 1 ON TO LOOP ON ERROR. 

1104 - UNIT CHECK ON POWER OFF TEST. 

PROGRAM IS LOOKING FOR UNIT CHECK WHEN USER TURNS FILE DRIVE MOTOR 
OFF PER REF. A. 

SUSPECT USER DID NOT TURN DRIVE SWITCH OFF-ON WITH-IN THE ONE 
MINUTE TIME LIMIT, OR D ID NOT LEAVE PROCESSOR RUNNING WHILE TURNING 
DRIVE OFF-ON. 

1105 - FAILED ON POWER UP SEEK TO CYL. 00. DURING POWER OFF-ON TEST. PROGRAM 

DETECTED THAT ACCESS DID NOT POWER UP SEEK TO CYL 00. PROGRAM PRINTS 
HA FROM CYLINDER ACCESS WENT TO. 

1201 - SOME CHANNEL STATUS OTHER THAN UNIT STATUS PENDING AFTER START I/O 

FILE METER SW ON DISABLE SO SHOULD GET UNIT STATUS PENDING 
DISABLE SWITCH IS NOT CAUS ING D ISABLE CONDITION (FD097) 



3402 - DISK RPM IS BELOW SPEC. 



DISK ROTATION SHOULD BE 2400 RPM. 

TOLERANCE AT 1 PERCENT SAYS ANY RPM LOWER THAN 2376 IS BELOW SPEC. 

CHECK - BELT SLIPPING 

BRAKE DRAG 

SPINDLE BEARINGS. ETC. 



PHASE B 
1101 *■ CC 1 ON TEST I/O 



DO NOT HAVE UNIT CHECK, DVC. END. OR BUSY. EXAMINE STATUS AND SENSE 
DATA FOR INDICATION OF FAILURE. 
- TEST I/O AFTER POWER OFF/ON - 



1202 - NO UNIT CHECK OR WRONG SENSE DATA FOR DISABLE CONDITION 

PROGRAM EXPECTS SENSE DATA - READY. INTERVENTION REQUIRED, AND NOT 
ON LINE). 

1203 - CONDITION CODE 2 OR 3 AFTER METER SWITCH RETURNED TO ENABLE. 

1204 - UNIT STATUS PENDING ON TEST I/O AFTER ENA8LING METER SWITCH 

1301 - SOME STATUS OTHER THAN UNIT STATUS PEND AFTER DISK DRIVE STOP BUTTON 
PRESSED . 

(DID YOU POWER DOWN WITH CPU STOPPED) 



1102 - CC 2 OR 3 ON TEST I/O 

SUBCHANNEL OR CHAN. BUSY OR UNIT ADDRESS NOT RECOGNIZED. 



1302 - UNIT CHECK OFF OR WRONG SENSE ON START I/O (DISK 
DRIVE STOPPED) 

SHOULD HAVE INTERVENTION REQUIRED ONLY. 



1303 - SOME STATUS OTHER THAN UNIT STATUS PEND ON TEST I/O 
AFTER POWER UP, 
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1304 - UNIT CHECK OR NO OEVICE END AFTER POWER UP AT DISK DRIVE 



COMMENTS 



1305 - WRONG SENSE ON POWER UP - 



PROGRAM EXPECTS INTERVENTION REQUIRED, 
READY, AND ON LINE 



1401 - FAILED TO HOLD ENABLE CONDITION 



PROGRAM DETECTED UNIT CHECK OR WRONG SENSE INFORMATION WHILE TESTING 

METER OUT CIRCUITS. 

METER OUT SHOULD HOLD DEVICE IN THE ENABLE CONDITION EVEN THOUGH 

METER SWITCH IS IN DISABLE POSITION. 

(LOGIC PAGE FD097) 



1402 - FAILED TO ENABLE (SHOULD NOT HAVE DISABLED) 



1601 - CHANNEL NOT OPERATIONAL ON START I/O 

- USER OPTIONS- 
TRY RESET-RESTART 



1602 - NO INTERRUPT RECEIVED FROM START I/O 

1701 - TIMEOUT ERROR OCCURED 
- USER OPTIONS- 



1. TRY RUNNING ROUTINE AGAIN 

2. RE-RUN COMPLETE 2311 TEST TO FIND ERROR 



1702 - CHANNEL NOT OPERATIONAL 

- USER OPTIONS- 

1. SEE 1701 OPTIONS 

2. RUN SELECTOR CHANNEL DFT ( P ID 0810) 



1703 - UNIT CHECK ON WRITE HA SIO 



5.1 DETAILED DESCRIPTION OF PROGRAM ROUTINES 

PHASE A 

SECTION 1. 

ROUTINE 1. STATUS CHECK 

THIS ROUTINE INTERROGATES THE CHANNEL STATUS BEFORE AND AFTER DO- 
ING A SENSE WITH RESET ERROR PRINTOUTS RESULT FROM CC 263 OR CC 1 
AFTER ATTEMPTING TO RESET THE STATUS. 

ROUTINE 2, TEST I/O. 

THIS ROUTINE WILL EXECUTE A TEST I/O TO OETERMINE THE STATUS OF 
THE ACCESS. THIS IS THE FIRST -START I/O- INSTRUCTION THAT IS 
EXECUTED AND WILL USE A NOP CCW. THIS COMMAND SHOULD GO THROUGH 
THE 284L INITIAL SELECTION SEQUENCE. THE INITIAL STATUS PRESENTA- 
TION AND THE ENDING PROCEDURE. IF PROGRAM RECEIVES CONDITION CODE 
-0- ON TEST I/O, THEN THE DEVICE IS READY AND AVAILABLE. IF 
CONDITION CODE IS -1- AND UNIT CHECK IS ON IN CSW , THEN THE 
ROUTINE WILL ISSUE A SENSE COMMAND AND EXAMINE THE SENSE BYTES 
FOR UNUSUAL CONDITIONS. 
CONDITIONS CHECKED — 

NO SELECT LOCKS 

FILES ON-LINE 

READY (DETENTED AT SOME CYLINDER) 

ROUTINE 3. NO-OP. 

THIS ROUTINE WILL EXECUTE A NO-OPERATION COMMAND. MODULE SELECT 
AND HEAD SELECT ARE THE ONLY FILE LINES ACTIVATED. 

NOP IS AN IMMEDIATE COMMAND 

CONDITIONS CHECKED — 

START I/O COMMAND SEQUENCE 

2841 INITIAL SELECTION AND ENDING PROCEDURE 

ROUTINE 4, SENSE I/O. 

THIS ROUTINE WILL PERFORM A SENSE 1-0 OPERATION. THIS CHECKS THAT 
WE CAN TRANSFER DATA FROM THE 284 1 TO THE CHANNEL ANO PROCESSOR. 
THE PROGRAM WILL REQUEST THAT -6- BYTES BE SENT. 
CONDITIONS CHECKED — 

DATA TRANSFER FROM 2841 TO PROCESSOR 



- USER OPTIONS- 
SEE 1701 OPTIONS 



ROUTINE 5, COMMAND EXIT. 

THIS ROUTINE WILL PERFORM THE FOLLOWING FILE COMMANDS TO CHECK 
THAT THEY CAN BE EXECUTED WITHOUT THE CONTROL UNIT -HANGING UP-. 

NO CHECK IS MADE TO DETERMINE IF THE COMMANDS FUNCTIONED 
PROPERLY. THE ONLY THING EXPECTED IS THAT THE CONTROL UNIT AND 
FILE BECOME AVAILABLE ( CC ON TIO) WITHIN 2 SECONDS AFTER GIVING 
THE COMMAND. 
CONDITIONS CHECKED — 

CONTROL UNIT HANG-UPS 

SET DIFFERENCE 

ATTENTION FROM 2311 
COMMANDS USED 

READ HOME ADDRESS 

CONTROL HEAD SEEK 

CONTROL CYLINDER SEEK 

RECALIBRATE 
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ROUTINE 6 i READ HEAD MAP. 

THIS ROUTINE WILL CONSTRUCT A MAP USING EACH HEAD FROM 00 TO 09. 
THE RESULT OF A READ HOME ADDRESS IS CCDED AND STORED IN A MAP 
(ARRAY). AFTER THE MAP IS CONSTRUCTED (ALL HEADS USED), THE 
PROGRAM DETERMINES IF AN ERROR OCCURRED AND IF SO ATTEMPTS TO 

BREAK THE ERROR DOWN INTO LOGICAL AREAS. THE MAP IS PRINTED OUT 
IF ANY ERRORS ARE DETECTED ALONG WITH AN APPROPRIATE ERROR 
NUMBER. 
EQUIPMENT CHECKED 

READ AMPLIFIER 

HEAD ADRS REG 

HAR DECODE 

HEAD SELECTION 

READ HEAD 

DATA TRANSFER 

SOME BUS AND TAG LINES 

2841 SER/DES CLOCK (VFO) 

HEAD ADJUSTMENT 

ROUTINE 7, RECALIBRATE 

THIS ROUTINE WILL EXECUTE THE RECALIBRATE COMMAND AND CHECK FOR 

THE FOLLOWING ACCESS IS OPERATIVE WHILE CARRIAGE IS IN MOTION- 

THE DETENT IS BEING PULLED (LOSS OF READY)-SEEK COMPLETE 
AFTER RECEIVING DEVICE END. THE ROUTINE WILL PERFORM A READ HOME 
ADDRESS TO CHECK THE CARRIAGE POSITION AFTER RECALIBRATE. 
CIRCUITS CHECKED — 

FILE BUS 6 

CONTROL TAG 

ON LINE 

RETURN TO ZERO 

SEEK START 

SEEK READY 

SECTION 2 



ROUTINE 2, SEEK INCOMPLETE. 

THIS ROUTINE WILL PERFORM A SEEK TO CYLINDER 255 TO FORCE ACCESS 
CARRIAGE TO GO TO INNER POSITIVE STOP. THE CONTROL UNIT SHOULD 
INDICATE THAT THE FILE HAS LOST READY, SEEK CHECK, AND SEEK 
INCOMPLETE. AFTER THE CORRECT STATUS HAS BEEN RECEIVED, THE 
PROGRAM WILL PERFORM A RESTORE AND CHECK THAT IT FUNCTIONED 
CORRECTLY. 



ROUTINE 3. SEQUENTIAL INCREMENT/DECREMENT SEEK. 

THIS ROUTINE CHECKS THE CYLINDER AND DETENT TRANSDUCER 
ADJUSTMENTS BY PERFORMING SEQUENTIAL SEEK COMMANDS AND CHECKING 
CORRECT POSITION BY READING HOME ADDRESS. EACH SEEK COMMAND WILL 
SEEK TO THE NEXT HIGHER CYLINDER. SUCH AS. CYLINDER 1, 2, 3, 4, 
.... ETC. THIS IS ALSO CHECKED IN THE REVERSE DIRECTION. IF THE 
USER IS USING THE CE DISK PACK, WHEN THE PROGRAM SEEKS TO ONE OF 
THE ALIGNMENT CYLINDERS (2, 3, 4, 71. 72, 73, 74, 75. 200. 201, 
AND 202( AND TRIES TO READ HA. IF AN ERROR IS DETECTED ( NRF, 
BURST CHK) THE CYLINDER COMPARE WILL BE BYPASSED. 
CIRCUITS CHECKED — 

CYLINDER AND DETENT TRANSDUCER 

ROUTINE 4, WORST CASE ACTUATOR. 

THIS ROUTINE WILL CONTINOUSLY SEEK BETWEEN CYLINOER 006 ANO 

CYLINDERS 7, 9, 11, 18. 36. 70, 76. 81, 86 AND 198 FOR 

APPROXIMATELY 20 SEEKS. 

THIS IS A STRESS TEST ON THE ACTUATOR AND FAILURES WILL SHOW 

UP AS OVERSHOTS BY 1 OR MORE CYLINDERS. 

COMPONENTS CHECKED — 

FORWARD SOLENOID 

REVERSE SOLENOID 

INTERMEDIATE. SLOW, AND STOP 

CYLINDER TRANSDUCER 

CAR 

DIFF CNTR 



ROUTINE 1. DIFFERENCE COUNTER AND CAR. 

THIS ROUTINE WILL PERFORM SEVERAL COMMAND CHAINS OF THE TYPE 

RECALIBRATE 

CONTROL CYLINDER SEEK 

READ HOME ADDRESS 
BY USING DIFFERENT COMBINATIONS OF CYLINDERS MALFUNCTIONS IN THE 
DIFFERENCE COUNTER, CYLINDER ADDRESS REGISTER, INITIAL SEEK 
LATCH, AND COUNTER DECODE LOGIC CAN BE ANALYZED AS TO THE CAUSE 
OF THE FAILURE. A SEEK HEAD MAP IS PRINTED IF AN ERROR IS 
DETECTED. 

DIFFERENCE CNTR 

CAR 

BUS LINES 

DIFF CNTR DECODE 

INITIAL SEEK LATCH 

DETENT 

LINE DRIVERS 

CYLINDER TRANSDUCER 



ROUTINE 6. RANDOM SEEKS. 

THIS ROUTINE WILL PERFORM CONTINOUS RANDOM SEEKS FOR 
APPROXIMATELY 500 CYLINDERS. AFTER DETENTING AT EACH RANDOM 
CYLINDER, THE HOME ADDRESS IS READ WITH A RANDOM HEAD TO CHECK 
ACCESS LOCATION. THE POWER RESIDUE METHOD IS USED TO GENERATE 
RANDOM NUMBERS. THE INITIAL STARTING NUMBER INTO THE RANDOM 
GENERATOR IS ALO RANDOMIZED. BY USING A PROGRAM COUNTER TO WAIT 
FOR THE FIRST BYTE TO TRANSFER IN A - RECALIBRATE. READ HA CHAIN. 
THIS COUNTER IS USED AS THE STARTING NUMBER. 



SECTION 3 



ROUTINE 1. WRITE TEST. 

THIS ROUTINE WILL CONSTRUCT A MAP USING EACH HEAD FROM 00 TO 09. 
THE RESULTS OF A WRITE RECORD FOLLOWED BY REAO RECORD ARE 
CODED AND STORED IN A MAP (ARRAY). AFTER THE MAP IS CONSTRUCTED 
(ALL HEADS USED), THE PROGRAM DETERMINES IF AN ERROR OCCURRED AND 
IF SO ATTEMPTS TO BREAK THE FAILURE INTO A LOGICAL AREA. THE MAP 
IS PRINTED OUT IF ANY ERRORS WERE DETECTED ALONG WITH AN 
APPROPRIATE ERROR NUMBER. THE CHANNEL WILL SEND -100- BYTES OF 
R-0 DATA TO THE 2841, BUT THE DATA LENGTH IN THE fc-Q COUNT IS 
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3600 BYTES. SO THE 2841 WILL WRITE ANO READ BACK A FULL TRACK 
RECORD. 

RECORD DATA PATTERNS 

HEX- 

00 

FF 

13 

ES 

EQUIPMENT CHECKED — 
WRITE DRIVER 

ERASE DRIVER METER SWITCH TO ENABLE 
2841 SERIALIZER/DESERIALIZER 
HEADS 

DATA TRANSFER 
SOME BUS t TAG LINES 



ROUTINE 2, HAR AC ADVANCE 

THIS ROUTINE WILL CHECK THE AC CONDITIONS OF THE HEAD ADDRESS 
REGISTER. THIS AC CONDITION IS USED TO ADVANCE HAR TO THE NEXT 
HEAD. TEN READ HOME ADDRESS COMMAND ARE CHAINED WITH THE MULTIPLE 
TRACK BIT ON. THE CPU WILL THEN CHECK THE HA-S READ. 

EQUIPMENT CHECKED 
HAR 
HAR CARD 

ROUTINE 3. END OF CYLINDER. 

THIS ROUTINE WILL CHECK THE END OF CYLINDER SIGNAL. THE PROGRAM 
WILL SELECT HEAD 9 OF CYLINDER 000 THEN READS THE HOME ADDRESS TO 
INSURE THE CORRECT CYLINDER AND HEAD WERE SELECTED. THEN TWO 
CHAINED READ HOME ADDRESS COMMANDS. WITH MUTIPLE TRACK BIT ON FOR 
SECOND COMMAND. ARE EXECUTED. THIS SHOULD FORCE HAR TO ADVANCE 
FROM HEAD 9 TO HEAD 10 THUS TURNING ON END OF CYLINDER. 

ROUTINE 4. RPM TEST 

THIS ROUTINE IS DESIGNED TO TEST FILE ROTATION SPEED. 
CALCULATIONS ARE BASED ON A WRITE TIME OF 800 NANO-SECONDS 
PER BIT AND ASSUMES THE VFO IS OPERATING WITHIN ITS SPECIFIED 
TOLERANCE. 

A TRACK OVERRUN CONDITION IS FORCED BY WRITING A 4000 BYTE 
RECORD 128 TIMES AND TAKING AN AVERAGE OF THE RESIDUAL 
COUNTS. FROM THIS THE PROGRAM CALCULATES THE NUMBER OF BYTES 
ACTUALLY WRITTEN AND CONVERTS IT TO RPM. THIS CALCULATED RPM 
IS THEN CHECKED FOR A TOLERANCE LIMIT AND THE RESULTS ARE PRINTED 
OUT. NO CHECK IS MADE FOR A DRIVE BEING TOO FAST SINCE THIS 
CONDITION IS HIGHLY IMPROBABLE. 

EQUIPMENT CHECKED 
BELT SLIPPING 
BRAKE DRAG 
SPINDLE BEARINGS 



PHASE B 
SECTION 1 



ROUTINE 1. POWER OFF-ON. CPU RUNNING (OPTIONAL) 

THIS ROUTINE CHECKS THE CAPABILITY OF A 2311 TO BE POWERED OOWN 
AND POWERED UP WHILE THE CPU IS ATTEMPTING TO COMMUNICATE WITH 
IT. ALSO POWER-UP SEEK TO CYLINDER 00. HEAD 00 IS CHECKED. 

RUNNING THE ROUTINE 

WHEN 'POWER DOWN THEN POWER UP UNIT XX* MESSAGE IS 

PRINTED. PERFORM THE FOLLOW ING- 

1-DO NOT STOP CPU FROM RUNNING 

2-PRESS DISK DRIVE STOP-START BUTTON TO STOP DISK DRIVE 

MOTOR 

3-PRESS DISK DRIVE STOP-START BUTTON TO START DISK DRIVE 

MOTOR 

PROGRAM WILL AUTOMATICALLY PROCEED UPON RECEIVING COND CODE ON 
TEST I/O AFTER DISK DRIVE BECOMES READY. PROGRAM WILL READ HA ANO 
VERIFY POWER-UP SEQUENCE. 



ROUTINE 2, METER SWITCH D ISABLE-ENABLE. (OPTIONAL) 

THIS ROUTINE MAKES CERTAIN THAT THE DEVICE METER SWITCH IS 
FUNCTIONING PROPERLY. THAT IS WHEN THE DEVICE METER SW IS IN THE 
DISABLE POSITION THE 2311-2841 SHOULD INDICATE MANUAL 
INTERVENTION, READY, AND NOT ON-LINE. WHEN SWITCH IS PUT BACK IN 
THE ENABLE POSITION SHOULD INDICATE READY AND ON-LINE. 



** NOTE ROUTINE 2 INITIATES A DELAY IN THE START I/O SUBROUTINE. 
THIS DELAY IS NECESSARY BECAUSE OF THE 15 MS DELAY OF 
CHANNEL END WHEN USING THE RECALIBRATE ARM COMMAND. 

RUNNING THE ROUTINE — 

WHEN THE 'STOP CPU. DISABLE FILE XX THEN START CPU' 

MESSAGE IS PRINTED, PERFORM THE FOLLOW ING- 

1-PRESS CPU STOP KEY 

2-SET DEVICE METER SWITCH OF DISK TO DISABLE 

3-PRESS CPU START KEY 

4-EXIT HALT LOOP 
ROUTINE WILL NOW CHECK DISABLE STATUS 

WHEN THE 'STOP CPU ENABLE FILE XX THEN START CPU* 
MESSAGE IS PRINTED, PERFORM THE FOLLOW ING- 
1-PRESS CPU STOP KEY 



2-SET DEVICE METER SWITCH TO ENABLE 
3-PRESS CPU START KEY 
4-EXIT HALT LOOP 
ROUTINE NOW CHECKS ENABLE STATUS 
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ROUTINE 3, POWER OFF/ON STATUS (OPTIONAL) 

THIS ROUTINE WILL CHECK INTERVENTION REQUIRED AND NOT-READY TO 
READY STATUS VIA THE 2311 START/STOP SWITCH. 



ENDS NORMALLY. IF AN ABNORMAL END OCCURS 
RELOAD THIS DFT OR RESTORE LOCATIONS 1 
AND 2 FROM LOCATION »T45SV». 



** NOTE ROUTINE 3 INITIATES A DELAY IN THE START I/O SUBROUTINE. 
THIS DELAY IS NECESSARY BECAUSE OF THE 15 MS DELAY OF 
CHANNEL END WHEN USING THE RECALIBRATE ARM COMMAND. 

RUNNING THE ROUTINE — 

WHEN THE 'STOP CPU-POWER DOWN UNIT XX* MESSAGE IS 

PRINTED. PERFORM THE FOLLOWING- 

1-PRESS THE CPU STOP KEY 

2-PRESS DISK START/STOP KEY TO STOP DISK DRIVE MOTOR. 

3-PRESS CPU START KEY, THEN EXIT WAIT LOOP 
ROUTINE NOW CHECKS THE NOT READY STATUS OF THE 2311 

WHEN THE 'STOP CPU-POWER UP UNIT XX' MESSAGE IS PRINTED 
PERFORM THE FOLLOW ING- 
1-PRESS THE CPU STOP KEY 

2-PRESS DISK START/STOP KEY TO START DISK DRIVE MOTOR. 
3-AFTER 2311 BECOMES READ Y-OEPRESS CPU START KEY, THEN 
EXIT WAIT LOOP. 
ROUTINE WILL NOW CHECK THAT 2311 HAS BECOME READY 

ROUTINE 4, METER INTERLOCK (OPTIONAL) 

THIS ROUTINE WILL CHECK THE INTERLOCK STATUS OF 

DEVICE METER SWITCH WHILE CPU IS IN RUN STATE. 
IF THE CPU METER IS RUNNING, TURNING THE FILE METER SW TO 

DISABLE SHOULD HAVE NO EFFECT' ON THE FILE METER. 

SINCE THE OBJECTIVE IS TO CHANGE THE FILE METER SW 
WHILE THE CPU IS RUNNING, PERFORM THE FOLLOW ING- 

1. DISABLE METER SWITCH 

2. EXIT WAIT LOOP 

3. ENABLE METER SWITCH 

4. EXIT WAIT LOOP 

IF METER INTERLOCK FAILS A MESSAGE INDICATING FAILURE 
WILL BE PRINTED. 



ROUTINE 5, TRACKING ADJUSTMENT 

THIS ROUTINE IS DESIGNED TO ASSIST THE FIELD ENGINEER 
IN MAKING THE TRACKING ADJUSTMENT AS OUTLINED IN THE FIELD 
ENGINEERING MAINTENANCE MANUAL. THE ROUTINE USES THE 
FOLLOWING HEAD SELECTION SEQUENCE 1,2,5,6.9,0,3,4,7,8. 
THIS SEQUENCE WILL FACILITATE ADJUSTMENT BY SEPARATING THE 
HEADS ACCORDING TO THEIR TERMINAL BLOCK LOCATION. THE 
PROGRAM WILL SELECT THE NEXT HEAD IN THE SEQUENCE EACH 
TIME CE LEVEL INTERRUPT IS GENERATED. AT WHICH TIME A 
SEEK TO CYLINDER 73 IS EXECUTED FOR THE SELECTED HEAD AND 
THE PROGRAM GOES INTO A READ LOOP FOR SCOPING AND ADJUSTMENT 
PURPOSES. AFTER EACH OF THE TEN READ -WRITE HEADS HAS BEEN 
SELECTED, THE NEXT CE INTERRUPT WILL RESULT IN TEN SEEKS 
TO CYLINDERS AND 201 AND THEN A SEEK BACK TO CYLINDER 73 
SO THAT THE SELECTION SEQUENCE CAN BE REPEATED TO ALLOW 
ALIGNMENT TO BE RECHECKED. 

**CAUTION- THIS ROUTINE MODIFIES LOCATIONS 1 AND 2 
SO THAT HEAOS CAN BE SWITCHED REMOTELY 
VIA CE LEVEL INTERRUPTS. LOCATIONS 1 
AND 2 WILL BE RESTORED IF THE ROUTINE 



OPERATING PROCEDURES FOR TRACKING ADJUSTMENT ROUTINE. 

1. PROGRAM SEEKS TO CYL 073 AND BEGINS BY SELECTING 
HEAD 1 AND CPU RUNNING WITH CONTINUOUS READ GATE ON. 

2. ADJUST HEAD 1 PER INSTRUCTIONS IN MAINTENANCE MANUAL, 
(PAGE 4.24) 

3. TO ADVANCE TO NEXT HEAD. PRESS CE INTERRUPT BUTTON. 
HEAD PRINTS OUT AND CPU STARTS RUNNING WITH 
CONTINUOUS READ GATE AND HEAD 2 SELECTED. 

4. HEADS ARE SELECTED IN THE FOLLOWING ORDER- 

SIDE A 1,2,5, 6.9. SIDE B 0,3,4,7,8. 

5. WHEN ALL HEADS HAVE BEEN ADJUSTED, PROGRAM EXECUTES 10 
SEEKS AFTER WHICH ALL HEADS CAN BE CYCLED AGAIN 

AND ADJUSTMENTS CAN BE RECHECKED. 



ROUTINE 6, SEEK BETWEEN ANY 2 CYLINDERS. 

THIS ROUTINE WILL ISSUE SEEK COMMANDS TO A 2311 DISK FILE. 
THE ARGUMENTS OF THESE SEEK COMMANDS ARE SET UP BY THE 
USER VIA THE DATA ENTRY SWITCHES, USING PROGRAM FUNCTION 3. 
BITS 0-7 SPECIFY THE FIRST CYLINDER AND BITS 8-lb SPECIFY 
THE SECOND CYLINDER. THE CYLINDERS CAN BE CHANGED AT ANY 
TIME DURING TEST BY USING OPTION SWITCH 3 AND THE DATA 
ENTRY SWITCHES. 

THIS ROUTINE SERVES AS A SCOPING LOOP, AND THE HOME ADDRESS 
AT THE DETENTED CYLINDER IS NOT VERIFIED AFTER A SEEK. 

TO RUN ROUTINE — 

1. SELECT RTN 16 

2. SELECT DEVICE ( SW FUNCTION 2) 

3. SELECT DESIRED SEEK CYLINDERS (SW FUNCTION 3) 

4. EXIT WAIT LOOP WITH BIT 9 ON 



TO EXIT ROUTINE — 

TURN OFF BIT 9, SWO 

COMMAND SEQUENCE — 

START I/O - SEEK CYL IN BITS 0-7 

START I/O - SEEK CYL IN BITS 8-15 
IF SIO ERROR IS DETECTED, THE ROUTINE WILL PERFORM 
A RECALIBRATE AND RETRY THE SEQUENCE. 

IF 10 ERRORS ARE DETECTED DURING AN ATTEMPT TO EXECUTE 
A SEQUENCE OF SEEKS. A 'HARD ERROR' MESSAGE IS PRINTED 
AND THE ROUTINE IS EXITED. 



ROUTINE 7, WRITE HOME ADDRESSES ON ANY ONE CYLINDER. 



THIS ROUTINE WILL WRITE HOME ADDRESSES ON ANY OESIREO 
CYLINDER. 

THE CYLINDER ARGUMENT IS SET UP BY THE USER VIA THE DATA 
ENTRY SWITCHES, USING OPTION SWITCH 3. BITS 8-15 
OF THE SWITCHES CONTAIN THE CYLINDER TO BE USED BY 
THE ROUTINE. 

HOME ADDRESSES WRITTEN ARE READ BACK AND VERIFIED. IF AN 
ERROR IS DETECTED, THE HA WRITTEN AND READ IS PRINTED. 
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OPTION SWITCH 3 AND THE DATA ENTRY SWITCHES CAN BE 

USED TO CHANGE THE SPECIFIED CYLINDER AT ANY TIME DURING 

TESTING. 



b. APPEND IX 



THE ROUTINE DOES NOT CHECK THE CYLINDER SPECIFIED TO 
DETERMINE IF IT'S AN ALIGNMENT CYLINDER, SO THE USER SHOULD 
*^ CAREFUL AS TO WHICH CYLINDER HE SELECTS. 

TO RUN ROUTINE 

1. SELECT RTN 17 

2. SELECT DEVICE ADD RS ( SW FUNCTION 2) 

3. SELECT DESIRED CYLINDER IN BITS 8-15 OF FUNCTION SW 3 

4. EXIT HALT LOOP WITH BIT 9 ON 

TO EXIT ROUTINE — 

TURN OFF BIT 9, SWO 



a* 



COMMON SUBROUTINES 



Gf- I SENSE 

THIS SUBROUTINE IS USED BY MOST ROUTINES TO GET FOUR -4- SENSE 
BYTES OF ACCESS STATUS. AFTER THE SUBROUTINE HAS DONE THE START 
I/U AND CHECKED THE SENSE COMMAND HAS BEEN ACCEPTED. IT WILL WAIT 
IN A TEST I/O - BRANCH CONDITION CODE 2 LOOP FOR THE 4 BYTES TO 
TRANSFER. THE PROGRAM WILL HANG-UP IF IT FOREVER RECEIVES 
CONDITION CODE 2. 



START I/O. 

THIS SUBROUTINE IS USED BY ALL ROUTINES TO START A CHAIN OF CCW-S 
(CHANNEL COMMAND WORDS). BEFORE THE START I/O IS EXECUTED. THE 
SUBROUTINE PERFORMS A TEST I/O TO CHECK THAT THE ACCESS IS 
AVAILABLE ( COND CODE 0). PROGRAM THEN SETS UP THE CAW, DOES A 
START I/O AND CHECKS THAT THE -COMMAND WAS ACCEPTED. THE -WAIT- 
SUBROUTINE IS USED TO WAIT Fo4 COMPLETION OF THE CHAIN OF 
COMMANDS BEFORE RETURNING TO THE CALLING ROUTINE. 



6.1 CHANNEL STATUS WORDS DEVICE AND CHANNEL 

STATUS BIT BREAKDOWN IN HEX 
CSW ADRS YYYY UUZ2 CNTR 

8000 UNIT NOT OPERATIONAL 

4000 UNIT STATUS PENDING 

2000 PROGRAM CONTROL INTERRUPT 

1000 PROGRAM CHECK 

0800 DATA CHECK 

0400 CONTROL CHECK 

0200 INCORRECT LENGTH 

0100 ADAPTER BUSY 

0080 UNIT OPERATIONAL 

80 ATTENTION 

40 STATUS MODIFIER 

) 20 CONTORL UNIT END 

10 BUSY 

08 CHANNEL END 

04 DEVICE END 

t-.- 02 UNIT CHECK 

01 UNIT EXCEPTION 

ADRS - CHANNEL CCW ADDRESS REGISTER 
YYYY - CHANNEL STATUS IN HEX 
j / V Q .--= UUZZ - UNIT ADDRESS/UNIT STATUS IN HEX 
' A .CNTR - CHANNEL BYTE COUNT REGISTER 



V 



3. EROUT. 

THIS SUBROUTINE IS USED BY ALL ROUTINES TO PRINT OUT AN ERROR 
NUMBER OR ERROR MESSAGE. THE CAW, CSW, AND /OR SENSE INFORMATION. 
THE ROUTINE ALSO PROVIDES FOR PRINTING a BLANK LINE AS A 
SEPARATOR. WILL GET THE SENSE BYTES. STOP AFTER PRINTING ERROR, 
RETURN TO PROGRAM VIA A OPTIONAL REG, AND /OR EXIT TO NEXT 
ROUTINE. 
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6.3 

THE 1 

1. 
2. 
3. 

THE 

1. 
2. 
3. 


FOLLOWING EDIT CARDS ARE REOUIRED BY THIS PROGRAM: 

CARD - MUST CONTA N 2 EDITS. THE FIRST MUST DEFINE THE LOG DEVICE AND THE SECOND 
END CARE - MUST HAVE FFFF IN COLUMNS 7-10. 
SEE NOTE 2. 

DEVICE DEFINITION EO IT FIELD (DDEF) INCLUDES THE FOLLOWING: 

THE INTERRUPT LEVEL ASSOCIATED WITH THE DEVICE. 
THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE. 
THE CHANNEL ASSIGNED TO THIS DEVICE. 

NOTE 1 - THIS PROGRAM HAS ITS OWN LOG ROUTINE. THE FIRST ENTRY ON THE EDIT CARD IS 

NOTE 2 - THE SELECTOR CHANNEL EDIT ENTRY FOR THE DIAGNOSTIC MONITOR (DM) SHOULD NOT 

DDEF DDEF 

SEL 
LOG DEV. CHAN. 
NOTE 1 . NOTE 2 . 


MUST DEFINE THE SELECTOR CHANNEL. 

ASSOCIATED WITH THE C.E. LOG DEVICE. 
CONTAIN A UNIT ADDRESS FOR A 2311 DISK 


DRIVE OR 


A 


281+1 CONTROL 

f 


UNIT. (i. 


e. 


9000) 
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(I (I <! CI c 



012C 





01 2D 





012E 





012F 





0130 





0131 





0132 





0133 





0134 






07FF 



07FF 1200 

0800 0001 

0801 O 0000 



0008 
0009 
OOOA 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 



0802 

0803 

0804 

0805 

0806 1 

0807 1 

0808 1 
0809 
0809 
080A 
080B 
080C 
08 OD 1 
080E 
08 OF 
0810 
0811 
0812 
0813 
0814 
0815 



0000 
0000 
FFOO 
0000 
09B7 
09CD 
09EA 

0000 
0000 
0000 
FFFF 
1E5C 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



♦♦^♦♦a********************************^^^^^.^ 

* 1800 MONITOR INTERFACE 

♦^♦^♦♦♦♦t^****************************^^^^^ 

************************************ 1 „^ : ^^ 
BEGIN EOU 300 

BEGIN+1 

START+1 

END + 1 

LOG+1 

ERROR+X 

REQDV+1 

RELDV+1 

CRCK+1 



START EQU 
END EQU 
LOG EQU 
ERROR EQU 
REQDV EQU 
RELDV EQU 
CRCK EQU 
• MATO EQU 
* 

ORG 
* 
* 
* 

TPID DC 
TSID DC 
TSAD DC 



*+/07FF ORIGIN OF PGM 

MONITOR INTERFACE TABLES 



/1200 
1 





SECTION ID 

SECTION PREFACE ADDRESS 



OLPST EQU 
OSALC EQU 
OPRRS EQU 
OTTLE EQU 
ORTRY EQU 
OLPER EQU 
OBYPR EQU 
OHALT EQU 
OCHLT EQU 
* 

TSWO DC 

TSW1 DC 

TSW2 DC 

TSW3 DC 

I PA DC 

LP A DC 

EPA DC 

MLSCF EQU 

MLSCO DC 

MLSC1 DC 

MLSC2 DC 

TERM DC 

DC 

DC 

DC 

DC 

DC 

DC 

TLGED DC 

TSCED DC 

TRID DC 



EQUATES FOR TSWO SWITCH OPTIONS 



S 
9 
10 
10 

11 

12 
13 
14 
15 

C 



/•FFOO 



ZIPA 

2LPA 

ZEPA 

* 







/FFFF 

PEND 









o 
o 






LOOP SIO.TIQ 

SEEK ALIGNMENT CYLINDER 

PRINT RESULTS 

PRINT RTN TITLES 

RETRY SIO 

LOOP ERROR 

BYPASS ALL PRINTOUTS 

HALT ON ERROR 

CLEAR ERROR HALT 

SELECT OPTIONS 
SELECT SECT AND RTN 
UNIT ADDRESS 

IN IT PRGM ADDRESS 
LOOP PRGM ADDRS 
END PRG ADDRS 
MONITOR CONTROL FIELD 
ENTRY ZERO 

ONE 

TWO 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 

4313S9A 



LAST ADDRS 

WORDS FOR MONITOR USE 

* 

* 

* 

* 

LOG ED IT 

SEL CHANNEL EDIT 

ROUTINE ID 

***************************************^^ # , i!![ , (! . ME:J:Jj[ 

* 

^S^***********************************,,..^******** 

* 

* TABLE OF CONSTANTS 

* 

******************************************.,, ^.^.^ 
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* 
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81200360 
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08 5C 
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OOOA 
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0064 
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0080 
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DC 
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DC 


/OOOA 


CONSTANT 






81200870 


H0011 


DC 
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DC 
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DC 
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DC 
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DC 
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DC 
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DC 
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DC 


/00C8 








81200950 


HOOFF 


DC 
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DC 
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H0200 


DC 
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DC 
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81200990 
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DC 


/0500 
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DC 
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CONSTANT FOR 
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81201010 
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DC 
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81201020 
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DC 


/2000 








81201030 


H2100 


DC 


/2100 








81201040 


H3000 


DC 


/3000 








81201050 


H4000 


DC 


/4000 


CONSTANT 






81201060 


HSOOO 


DC 


/5000 


CONSTANT 






81201070 


H7FFF 


DC 


/7FFF 








81201080 


H8000 


DC 


/8000 








81201090 


HFOOO 


DC 


/FOOO 








81201100 


HFFOO 


DC 


/FFOO 








81201110 


CNTDN 


DC 











81201120 


TSCTN 


DC 


*-* 


SECTION NUMBER 




81201130 


TRTNN 


DC 


*-* 


ROUTINE NUMBER 




81201140 


TCNSW 


DC 





ERROR SWITCH 


FOR 


RTNS 


81201150 


TCVS1 


DC 











81201160 


TCVS2 


DC 











81201170 


CAWSV 


DC 


*-* 


CCW ADDRESS SAVE 


AREA 


81201180 


ERTSV 


BSS E 


2 


SENSE INFO SAVE 




81201190 


TYP2 


PR NT 


•SIO*. 








81201200 


TYP3 


PRNT 


»SNS.. 








81201210 


PCAW 


PRNT 


• CAW . 








81201220 


PCSW 


PRNT 


• CSW . 








81201230 


PSNS 


PRNT 


. SNS. 








81201240 


SPACE 


PRNT 


• • 


SPACES IN 43 


CODE 




81201250 


DVADR 


DC 


*-* 


DEVICE ADDRESS TO 


BE TESTED81201260 


LGBSY 


DC 


*-* 


LOG ROUTINE BUSY 


SWITCH 


81201270 


SIOSW 


DC 


*— * 


FOR SIO RTN 






81201280 


PASS* 


DC 


*-* 


USED TO TEST 


FOR 


ERROR 


81201290 


PSCNT 


DC 


1 


PASS COUNTER 






81201300 


STKSW 


DC 





SWITCH FOR RE 


-ENTRANCE 


81201310 


TIOSW 


DC 





TEST IO SW 






81201320 


T23LC 


DC 


*-* 


LAST CYLINDER 






81201330 


T23LH 


DC 


*-* 


LAST HEAD 






81201340 


LPCNT 


DC 


*-* 


LOOP CNTR 






81201350 


T45SW 


PC 





0= NOT CALLED 






81201360 


* 






1=1443 






81201370 
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085E 0000 
085F 1 4C00 0A2D 

0861 0000 

0862 1 4C00 1B64 

0864 0000 

0865 1 4C00 1931 

0867 0000 

0868 1. 4C00 190F 

086A 0000 
086B 1 4C00 1A1E 

086D 0000 
_086E 1 4CQ0 1939 

0870 0000 

0871 1 4C00 1ASE 

0873 0000 

0874 1 4C00 1D88 

0876 0000 

0877 1 4C00 1DC4 

0879 0000 
087A 1 4C00 1AC3 

087C 0000 
087D 1 4C00 1AC0 

087F 0000 

0880 1 4C00 19B3 

0882 0000 
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0889 1 4C00 1AAC 

088B 0000 
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DATE 
EC NO. 



0080 
0040 
0020 O 
OOOS 
0010 



14N0V69 
431319 



* 

* 






2=1053/1816 


CNTRL DC 

BSC 

* 


L 


*-* 
TCNTE 


CONTROL ROUTINE 
GO TO ROUTINE 


EROUT DC 
BSC 

* 


L 


*-* 
ERTNE 


ERROR PRINTOUT ROUTINE 
GO TO RTN 


FREDV DC 

BSC 

4c 


L 


*-* 
FROVE 


RELEASE CHANNEL ROUTINE 
GO TO ROUTINE 


GETDV DC 
BSC 


L 


*-* 
GTDVE 


CHANNEL ROUTINE 
GO TO ROUTINE 


GETSN DC 
BSC 

* 


L 


*-* 
GTSNS 


GET DEVICE SENSE INFO 
GO TO ROUTINE 


SIO DC 

BSC 

* 


L 


*-* 
SIONT 


START I/O ROUTINE 
GO TO RTN 


STMLS DC 
BSC 

* 


L 


*-* 
STMLE 


SET MLSCF ROUTINE 
GO TO RTN 


TCVBE DC 
BSC 

* 


L 


*-* 
TCVBN 


CONVERT HEX TO 1443 
GO TO RTN 


TCVHO DC 
BSC 

4c 


L 


*-* 
THEXD 


CONVERT HEX TO DEC 
GO TO RTN 


THALT DC 

BSC 

4c 


L 


*-* 
THLTE 


HALT ON ERROR 
GO TO RTN 


THLT DC 

BSC 

4c 


L 


*-* 
THLTX 


WAIT FOR OPERATOR ACTION 
GO TO RTN 


TIO DC 

BSC 
4c 


L 


*-* 
TIONT 


TEST I/O 
GO TO RTN 


TLGMS DC 
BSC 

4c 


L 


*-* 
TLGME 


PRINT RTN 
GO TO RTN 


TLPER DC 

BSC 

4c 


L 


*-* 
TERLP 


TEST LOOP ON ERROR 
GO TO RTN 


TLPST DC 

BSC 

4c 


L 


*-* 
TSTLP 


TEST LOOP START I/O 
GO TO RTN 


WAITS DC 
BSC 

4c 


L 


*-* 
TINTS 


WAIT I/O RTN 
GO TO RTN 


*************************************************** 


* 
************************************** ** *********** 

4c 


* EQUATES 

4c 


AND CONSTANTS FOR CCW«S 


********************* 

4c 


******* 4c* ** * 4: 4c 4t * ************** 


4c 

*************************************************** 
* 


* FLAGS 








FLDCH EQU 
FLCCH EQU 
FLSLI EQU 
FLSKP EQU 
FLPCI EQU 
4c 




/80 
/40 
•20 
/08 
/10 


DATA CHAINING 

COMMAND CHAINING 

SUPPRESS INCORRECT LNG 

SKIP BIT 

PGM CONTROLLED INTERRUPT 



30JAIM70 
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81201380 
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81201410 
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81201440 
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81201460 
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81201480 

81201490 

81201500 

81201510 

81201520 

81201530 

81201540 

61201550 

81201560 

81201570 

81201580 

81201590 

81201600 

81201610 

81201620 

81201630 

81201640 

81201650 

81201660 

81201670 

81201680 

81201690 

81201700 

81201710 

81201720 

81201730 

81201740 

81201750 

81201760 

81201770 

81201780 

81201790 

81201800 

81201810 

81201820 

81201830 

81201840 

81201850 

81201860 

81201870 

81201880 

81201890 

81201900 

81201910 

81201920 

81201930 

81201940 

81201950 

81201960 

81201970 

81201980 

81201990 

81202000 

81202010 

81202020 

81202030 

8S202040 

81202050 
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0812-A 
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0000 





0001 





0002 





0003 





0005 





0006 





0004 





0007 





0011 





0008 





OOOB 





0013 





0012 





001 A 





001E 





0029 





OOOE 





00 00 





0016 





009A 





001B 





0039 





0049 





0051 





0069 





0071 





0031 





001F 





001D 





0019 





0015 






0000 





0001 





0002 





0003 





0004 





0005 





0006 





0007 





0008 






0008 





0009 





OOOA 





OOOB 





OOOC 


G 


OOOD 





OOOE 





OOOF 






* 

* 

OPTIO EQU 

OPWR EQU 

OPRD EQU 

OPNOP EQU 

WRDAT EQU 

ROD AT EQU 

OPSNS EQU 

SEEKC EQU 

ERASE EQU 

OPTIC EQU 

SEEKB EQU 

RCAL EQU 

RDCNT EQU 

RDHA EQU 

RDCKD 

SRCKE 

RDKD 

WRKD 

RDRO 

RDHMT 

SKHD 

SRCHA EQU 

SRCKH EQU 

SIDHI EQU 

SKHE 

SID HE 

SRCID 

SFILM 

WRCKD 

WRHA 

WRRO 



OP CODES 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



/OO 

/Ol 

/02 

/03 

/OS 

/06 

/04 

/07 

/ll 

/OS 

/OB 

/13 

/12 

/1A 

/IE 

/29 

/OE 

/OO 

/16 

/9A 

/IB 

/39 

/49 

/51 

/69 

/71 

/31 

/IF 

/ID 

/19 

/IS 



TEST I/O 

WRITE OP CODE 

READ OP CODE 

NO-OP 

WRITE DATA 

READ DATA 

SENSE I/O 

SEEK CYLINDER 

ERASE RECORD 

TRANSFER IN CHANNEL 

SEEK BIN 

RECALIBRATE 

RD COUNT 

READ HOME ADDRESS 

RO COUNT KEY DATA 

SEARCH KEY EQUAL 

RD KEY DATA 

WR KEY DATA 

READ RECORD ZERO 

READ HA MULTI TRACK 

SEEK HEAD 

SEARCH HA 

SEARCH KEY HI 

SEARCH ID HI 

SEARCH KEY HI/EQ 

SEARCH ID HI/EQ 

SEARCH ID 

SET FILE MASK 

WRT CNT. KEY .DATA 

WRITE HA 

WRITE RECORD O 



EQUATES FOR CHANNEL STATUS DSW'S 



* 

*********************** ****** 4.4c****** ** * *** ******** 

* * 

*************************************************** 

* 

* 

* 

SCUNO EQU UNIT NOT OPERATIONAL 

SCUSP EQU 1 UNIT STATUS PENDING 

SCPCI EQU 2 PGM CNTRL INT. 

SCPCK EQU 3 PGM CHECK 

SCDCK EQU 4 DATA CHECK 

SCICC EQU 5 INTERFACE CNTRL CHECK 

SCILG EQU 6 INCORRECT LENGTH INDICATOR 

SCABZ EQU 7 . ADAPTER BUSY 

SCUOP EQU 8 UNIT OPERATIONAL 

* 

*********************** **************************** 

* * 
*************************************************** 

*************************************************** 

* * 
****************************** ********************* 
* 

EQUATES FOR UNIT STATUS D SW 



, * 
* 

UNATN EQU 

UNSMD EQU 

UNCUE EQU 

UNBZY, EQU 

UNCHE EQU 

UNDVE EQU 

UNCHK EQU 

UNEXC EQU 



8 
9 
10 
11 

12 
13 
14 
15 



UNIT STATUS-ATTENTION 
STATUS MODIFIER 
CONTROL UNIT END 

UNIT BUSY 
CHANNEL EMJ 
DEVICE END 
UNIT CHECK 
UNIT EXCEPTION 



******************** ************** ***************** 



DATE 
EC NO. 



14NOV69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



81202060 

81202070 

81202080 

81202090 

81202100 

81202110 

81202120 

81202130 

81202140 

81202150 

81202160 

81202170 

81202180 

81202190 

81202200 

81202210 

81202220 

81202230 

81202240 

81202250 

81202260 

81202270 

81202280 

81202290 

81202300 

81202310 

81202320 

81202330 

81202340 

81202350 

81202360 

81202370 

81202380 

81202390 

81202400 

81202410 

81202420 

81202430 

81202440 

81202450 

81202460 

81202470 

81202480 

81202490 

81202500 

81202510 

81202520 

81202530 

81202540 

81202550 

81202560 

81202570 

81202580 

81202590 

81202600 

81202610 

81202620 

81202630 

81202640 

81202650 

81202660 

81202670 

81202680 

81202690 

81202700 

81202710 

812C2720 

81202730 
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0004 







0005 







0007 







0009 







OOOA 







OOOC 







0010 







0012 







0015 







0018 







0019 







001A 







001D 







O01F 







088E 





0001 


088F 





2003 


0890 


1 


0891 



0891 O 0001 

0892 O 2013 

0893 1 0894 



0894 0001 

0895 2000 

0896 1 0897 

0897 O 0000 

0898 O 0006 

0899 O 0004 
089A 1 089C 



089C 

08 9C 

089D 

08 9E 

089F 

08A0 

08A1 

08A2 

08A3 

08 A4 

08A5 

08A6 

08A7 

08 A8 

08A9 

08AA 

08AB 

08AC 

08AD O 

08AE 

08AF 

OBBO 

08B1 

08B2 

08B3 

0884 

08B8 



0004 



0894 
0000 
0000 
0000 
0898 
0000 
0000 
0000 O/PB 

oooo cfjrj > 



0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0004 
0004 



t*"" ^ 



************* 

* 

* EQUATES 

FBRST EQU 
FOVRN EQU 
FSKCK EQU 
FTROV EQU 
FEOCY EQU 
FNORC EQU 
FUNSF EQU 
FSERD EQU 
FUNSL EQU 
FDRDY EQU 
FONLN EQU 
FUNSI EQU 
FECYL EQU 
FSKIN EQU 

* 

NOPCC DC 

DC 

DC 
* 
* 
RECAL DC 

DC 

DC 

TSCCW DC 
DC 
DC 

* 

TSWDS DC 

SNCCW DC 
DC 
DC 

SNWDS BSS E 
SNMDO EQU 
SNWD1 EQU 
SNWD2 EQU 
SNWD3 EQU 
TIOXX DC 

DC 
HIOXX DC 

DC 
SENSE DC 

DC 
SIOXX DC 

DC 
SCSNO DC 

DC 
SCSN1 DC 

DC 
SCSN2 DC 

DC 
SCSN3 DC 

DC 
SCSN4 DC 

DC 
SCSN5 DC 

DC 
SCSXO BSS E 
SCSX4 BSS E 



************** ***********;(„**$;« **„.,. ^^ 
FOR 2311 SENSE BYTES 













DATE 


14N0V69 


30JAN70 


15SEP71 




EC NO. 


431319 


434319A 


431328 



4 

5 

7 

9 

10 

12 

16 

18 

21 

24 

25 

26 

29 

31 



(BURST) DATA CK 
CHANNEL/2841 OVERRUN 
SEEK CK 

END OF CYLINDER 
NO RECORD FOUND 

SERDES CHECK 

DRIVE READY 

UNSAFE 

END OF CYLINDER 

SEEK INCOMPLETE 



1 BYTE COUNT 

/20*256+OPNOP FLAGS AND OP CODE 
* • ADDRESS 



» BYTE COUNT 

/20*256+RCAL FLAGS AND OP CODE 
* ADD RESS 

1 BYTE COUNT 

/20*256+OPTIO FLAGS AND OP CODE 
TSWDS ADDRESS 

*-* 

6 BYTE COUNT 

0*2S6+OPSNS FLAGS AND OP CODE 
SNWDS ADDRESS 



4 

SNWDS 
SNWDS+1 

SNWDS+2 
SNWDS+3 
TSCCW 

*-* 
*-* 
*-* 
SNCCW 

*-* 
*-* 
*-* 
*-* 

*-* 
*-* 
*-* 
*-* 

*-* 
*-* 
*-* 

*-* 
*-* 
*-* 
*— * 

4 

4 



SENSE BYTES 



TIO CCW 

TO BE FILLED IN 



SENSE IO W/SUPPRESS POLL 

TO BE FILLED IN 

TO BE FILLED WITH CCW ADDR 

TO BE FILLED IN 

= 08 

= 09 

= OA 

= OB 

= OC 

* 06 

START I/O SAVE AREA 

START I/O SAVE AREA 2 



* 81202740 

* 81202750 
81202760 
81202770 
81202780 
81202790 
81202800 
81202810 
81202820 
81202830 
81202840 
81202850 
81202860 
81202870 
81202880 
81202890 
81202900 
81202910 
81202920 
81202930 
81202940 
81202950 
81202960 
8120297O 
81202980 
81202990 
81203000 
81203010 
81203020 
81203030 
81203040 
81203050 
81203060 
81203070 
81203080 
81203090 
81203100 
81203110 
81203120 
81203130 
81203140 
81203150 
81203160 
81203170 
81203180 
81203190 
81203200 
81203210 
81203220 
81203230 
81203240 
81203250 
81203260 
81203270 
81203280 
81203290 
81203300 
81203310 
81203320 
81203330 
81203340 
81203350 
81203360 
81203370 
81203380 
81203390 
81203400 
81203410 
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0812-A 
3 



08BC 
08C0 
08C4 
08C8 
08CC 
08CC 
08CD 
08CE 
08CE 
08CF 
08D0 
08D1 
08D2 
08D3 



0004 
0004 
0004 
0003 
OOOO 
ID 52 
OOOO 
OOOO 

OOOO 
OOOO 
OOOO 
OOOO 
OOOO 



08D4 0008 

08DC 0007 

08E3 FFFF 

08E4 0009 

08ED O FFFF 



08EE 

08EF O 

08F0 

08F1 

08F2 

08F3 

08F4 

08F5 

08F6 

08F8 

08F9 



OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

68FA 

6A6D 

696E 

6600 087F 

C271 

4C18 094D 



08FB 0A29 
08FC O 1001 
08FD 1 4C10 0917 



08FF 





0A2D 




0900 





18D0 




0901 





1010 




0902 





1088 




0903 





F2D4 




0904 


1 


4C18 


090C 


0906 





1092 




0907 


1 


4C10 


094D 



0909 O C2DA 

090A 1 4C18 094D 

090C O C2DA 

090D 1 4C18 0917 



090F O 0A2D 

0910 1008 

0911 1 4C28 0921 

0913 O 0A2D 

0914 O EA36 - 

0915 D236 

0916 O 700A 



SCSX8 BSS 
SCSXC BSS 
SCSVS BSS 
HA BSS 

BSS 
TLGWR DC 

DC 
TLGSP DC 
TLGSN EQU 

DC 

TLGCT DC 

TLGSW DC 

TLGSR DC 

DC 

STSER PRNT 
PR NT 
DC 

UNADR PRNT 
DC 



E 
E 
E 
E 
E 



4 

4 

4 

3 

O 

TLGBA 

*-* . 

/OOOO 

TLGSP 

*-* 

O 



o 

*-* 



TIO SAVE AREA 
SENSE I/O SAVE AREA 
SAVE AREA FOR SENSE INFO 



IOAREA ADDRESS 
TO BE FILLEO IN 
SPACE IN 1443 CODE 

SENSE DSW IOCC 
TO BE FILLED IN 
LOOP COUNT FOR PRNTR INT 
1ST/2CO CHAR SW (1053) 
1ST/2ND CHAR SW (TLGCH ) 
SENSE/RESET DSW 



* 
* 
* 

WIOSW DC 
WATSW DC 
SCISW DC 
TSCAC OC 
SCI NT DC 
STX 
STX 
STX 
LDX 
LD 
BZ 
* 

XIO 
SLA 
BNN 
* 

XIO 
XCH 
SLA 
SLT 

EOR 

BZ 

SLT 

BNN 

* 

LD 
BZ 

* 

SCINC LD 
BZ 

* 
* 
* 

* 



.XX ERROR ON XXX . 

.SECT X.RTN X . 

/FFFF 

. UNIT XX.ADRS XXXX. 

/FFFF 



SELECTOR CHANNEL INT ROUTINE 



2 
1 

L2 

2 



*-* 

*-* 

*-* 

*-* 

*-* 

WIOSW 

SCIN7+1 

SCIN7+3 

TB 

SCISW-TB 

SCIN4 

SCSNO- TB 

1 

SCI NO 



2 SCSN2-TB 

16 

8 
2 DVADR-TB 
SCINC 
8+UNCUE 
SCIN4 

2 TIOSW-TB 
SCIN4 

2 TIOSW-TB 
SCINO 



WAIT FOR USER INTERUPT 
WAIT FOR SYST TIO INT. 
INTERRUPT SWITCH 
SEL.CHAN AREA CODE 

INT. RTN ENTRY 
SET INTERUPT SWITCH 
SAVE REG 

SET UP POINTER TO TBL 
GET INT SWITCH 
BR IF NOT SET 

FETCH CHANNEL STATUS 
TEST FOR USP 
BRANCH IF NOT USP 

GET UNIT STATUS 

SAVE STATUS 

CLEAR A REG 

GET DEVICE ADDRS 

TEST FOR MY DEVICE 

BRANCH IF MINE 

TEST FOR CONTROL UNIT END 

BRANCH IF NOT CU END 

GET TIO SW 

BR IF INT NOT DUE TO TIO 

FETCH TIO SW 
BRANCH IF USER TIO 



GET HERE 
IF STATUS 
AND SCSX8 

XIO 2 

SLA 
6N 



IF INTERRUPT FROM TIO AFTER SIO 
IS NON BUSY THEN PLACE IN SCSXO 



xio 

OR 

STO 



2 SCSN2-TB FETCH UNIT STATUS 

UNBZY TEST FOR UNIT OR CU BUSY 

SCINX BR TO SET POINTER TO SCSX8 

2 SCSN2-TB FETCH UNIT STATUS 

2 SCSXO+1-TB MERGE WITH OLD STATUS 

2 SCSX04I-TS * 
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SCINX 



&R SET POINTER TO SCSXO 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 

431328 



81 20 3*20 

81203430 

812O3440 

81203*50 

81203460 

81203*70 

81203480 

81203490 

81 20 3500 

81203510 

812O3520 

8 1 203530 

81203540 

81203550 

81203560 

81203570 

81203580 

812O3590 

81203600 

8120361O 

81203620 

81203630 

812Q3&40 

81203650 

812Q3&60 

812O3&70 

812O3680 

81203690 

81 20)3700 

812(33710 

81203720 

812O3730 

8 1 2037*0 

81203750 

81203760 

812Q3770 

81203780 

81203790 

81203SOO 

81203810 

812O3B20 

812O3830 

812O3840 

812O3S50 

812O3S60 

81203870 

81203880 

81203890 

81203900 

81203910 

812O3920 

812O3930 

812039*0 

812O3950 

8 1 203960 

81203970 

8 1 203980 

81203990 

8120*000 

8120*010 

8120*020 

8120*030 

8120*0*O 

812O*03« 

812O«06S* 

8120*070 

8 1 2C*380 

812©*©90 
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* 


GET 


HERE IF TIOSW WAS NOT ON AND TEST 


81204100 






* 


FOR 


USER TIO IF SO PLACE STATUS IN SCSX8 , 


81204110 






* 


ELSE GO TEST FOR 


SENSE OPERATION INTERUPT 


81204120 






* 










81204130 


0917 C223 




SCINO LD 


2 


HIOXX-TB 


GET HIO SW 


81204140 


0918 1 4C20 


0941 


* 


BNZ 




SCIN3 


BR IF SET 


81204150 
81204160 


091A 0A31 






XIO 


2 


SCSN4-TB 


ELSE GET CCW ADDRS REG 


81204170 


091B D231 






STO 


2 


SCSN4-TB 


SAVE FOR LATER USE 


81204180 


091C C221 






LD 


2 


TIOXX-TB 


GET TEST I/O ADDRESS 


81204190 


09 ID 8299 






A 


2 


K3-TB 


ADD THREE 


81204200 


091E F231 






EOR 


2 


SCSN4-TB 


COMPARE WITH CCW ADRS REG 


81204210 


09 IF 1 4C20 


0925 


* 


BNZ 




SCIN1 


BR IF NOT THE SAME 


81204220 
81204230 






* 


GET 


HERE IF USER 


TIO OR SYSTEM TIO 


81204240 






* 


FOUND THAT THE UNIT OR CU WAS BUSY 


81204250 






* 


AFTER A 


TEST I/O. 




81204260 






* 










81204270 


0921 1 6700 


08BC 


SCIN> 


LDX 


L3 


SCSX8 


ELSE POINT TO SAVE AREA 


81204280 


0923 68CB 






STX 




WATSW 


SET TIO INTERRUPT SW 


81204290 


0924 702E 




* 


MDX 




SCIN5 
i 


GO TO COMMON RTN 


81204300 
81204310 






* 


GET 


HERE IF NO TEST I/O WAS INDICATED 


81204320 






* 


BY THE 


PRIOR ROUTINES 


81204330 






* 










81204340 


0925 C22S 




SCIN1 


LD 


2 


SENSE-TB 


GET CCW ADDRESS FOR SENSE 


812043S0 


0926 8299 






A 


2 


K3-TB 


POINT TO FOLLOWING 


81204360 


0927 F231 






EOR 


2 


SCSN4-TB 


COMPARE 


81204370 


0928 1 4C20 


092D 




BNZ 




*+3 


BR IF NOT 


81204360 


092A 1 6700 


08C0 




LDX 


L3 


SCSXC 


POINT TO SAVE AREA 


81204390 


092C 7026 




* 


MDX 




SCIN5 


GO TO COMMON RTN 


81204400 
81204410 






* 


GET 


HERE IF SENSE 


WAS FOUND NOT TO 


81204420 






* 


BE THE 


CAUSE OF THE INTERRUPT AND TEST 


81204430 






* 


FOR 


START I/O TO 


BE THE CAUSE t IF NOT 


81204440 






* 


THEN 


SET THE INTERRUPT TO THE UNEXPECTED. 


81204450 






* 










81204460 


092D C227 






LD 


2 


SIOXX-TB 


GET START I/O CCW ADDRESS 


81204470 


092E 1 6780 


08A6 


* 


LDX 


13 


SIOXX 


SET IN REG TOO 


81204480 
81204490 


0930 8299 




SCIN2 


A 


2 


K3-TB 


POINT TO NEXT ADRS AFTER 


81204500 


0931 0218 






STO 


2 


TSWDS-TB 


SAVE IN TEMP STORAGE 


81204510 


0932 F231 






EOR 


2 


SCSN4-TB 


COMPARE 


81204520 


0933 1 4C18 


0941 




BZ 




SCIN3 


BR IF SAME 


81204530 


0935 C301 






LD 


3 


1 


GET OPCODE/FLAGS 


81204540 


0936 180E 






SRA 




14 


SAVE CMD CHAIN/DATA CHAIN 


81204550 


0937 1 4C20 


093E 




BNZ 




*+5 


BR IF SET 


81204560 


0939 C301 






LD 


3 


1 


GET IT AGAIN 


81204570 


093A F29D 






EOR 


2 


K8-TB 


TEST FOR TIC 


81204580 


093B 1008 






SLA 




8 


SAVE OPCODE ONLY 


81204590 


093C 1 4C20 


094D 




BNZ 




SCIN4 


BR IF NOT TIC 


81204600 


093E 7303 






MDX 


3 


3 


POINT TO NEXT CCW IN CHAIN 


81204610 


093F C218 






LD 


2 


TSWDS-TB 


GET ADDRESS 


81204620 


0940 70EF 




* 


MDX 




SCIN2 


LOOP.. _ 


81204630 
81204640 


0941 1010 




SCIN3 


SLA 




16 


CLEAR HIO SW 


81204650 


0942 D223 






STO 


2 


HIOXX-TB 


* 


81204660 


0943 1 6700 


08B4 




LDX 


L3 


SCSXO 


POINT TO SIO SAVE AREA 


81204670 


0945 C301 






LD 


3 


1 


GET LAST UNIT STATUS 


81204680 


0946 100D 






SLA 




UtsDVE 


TEST FOR DEVICE END 


81204690 


0947 1 4C28 


0953 




BN 




SCIN5 


BR IF SET 


81204700 


0949 1001 






SLA 




UNCHK-UNDVE TEST FOR UCHK 


81204710 


094A 1 4C28 


0953 




BN 




SCIN5 


BR IF SET 


81204720 


094C 7008 




* 


MDX 




SCIN6 


ELSE 'OR' IN STATUS 


81204730 
81204740 


94D 1 6700 


0969 


SCJN4 


LDX 


L3 


SCIN8 


SET MLSCF ENTRY FOR RETURN 


81204750 


094F I 6F00 


0809 




STX 


L3 


MLSCO 


*** 


81204760 


0951 I 6700 


08B8 




LDX 


L3 


SCSX4 


POINT SAVE AREA 


81204770 
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0953 1010 

0954 D301 

0955 0A2B 

0956 D300 

0957 1001 

0958 1 4C10 0967 



095A 





0A2F 


095B 





EB01 


095C 





D301 


095D 





0A31 


095E 





D302 


095F 





0A33 


0960 





D303 



0961 6600 0000 
0963 O 6500 0000 

0965 1 4C80 08F2 



0967 1010 

0968 70F3 



SCIN5 


SLA 




16 


CLEAR WORD TO ZERO 


£ 


STO 


3 


1 


FOR OR'ING IN STATUS 


SCIN6 


XIO 


2 


SCSN1-TB 


GET CHAN. STATUS 




STO 


3 





SAVE 




SLA 




1 


TEST FOR USP 


* 


BNN 




SCINA 


BRANCH IF NOT ON 




XIO 


2 


SCSN3-TB 


GET UNIT STATUS 




OR 


3 


1 


COMBINE WITH EXISTING 


SCINB 


STO 


3 


1 


SAVE 




XIO 


2 


SCSN4-TB 


GET CCW ADDRESS REG. 




STO 


3 


2 


SAVE 




XIO 


2 


SCSN5-TB 


GET BYTE COUNTER 


* 


STO 


3 


3 


SAVE 


SCIN7 


LDX 


L2 


*-* 


RELOAD REG 2 


* 


LDX 


LI 


*-* 


REG 1 


£ 


BSC 


I 


SCI NT 


EXT INT. RTN 


* 


GET 


HERE IF USP WAS NOT THE CAUSE OF 


* 
a* 


THE 


INTERRUPT AND 


SET US TO 0000 


SCINA 


SLA 




16 


CLEAR ACC 




MDX 




SCINB 


RETURN 



* 

* RETURN HERE AFTER UNEXPECTED INT 



0969 


1 


6600 


08 7F 


096B 





610C 




096C 


1 


6700 


08BB 


096E 





C300 




096F 





42F4 




0970 


1 


D500 


098B 


0972 





18D0 




0973 


1 


D500 


098C 


0975 





73FF 




0976 





71FD 




0977 





70F6 





SET UP TABLE POINTER 
SET UP POINTER 
SET UP CSW POINTER 

GET CHNL STATUS 
CONVERT TO 1443 CODE 
PUT IN MESSAGE 

* 



0978 4203 

0979 1 097C 
097A 4C80 012D 

097C 0015 

098B O FFOO 

098C 0013 

0999 O FFFF 



PART NO. 2279467 
PAGE 4A 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



I5SEP71 

431328 



PROG ID 
PAGE 



0S12-A 
4 



099A O 0000 

099B O C2SD 

099C D228 

099D C270 

099E I 4C20 09AE 

09A0 42F1 

09A1 1 74F6 03AA 

09A3 O 70F9 



SCIN8 LDX L2 TB 
LDX 1 12 

LDX L3 SCSX4+3 

* 

SCIN9 LD 3 

BSI 2 TCVBE-TB 

STO LI SCIM£-1 

XCH 

STO LI SCIM2 

MDX 3 -1 

MDX 1-3 

MDX SCIN9 



BSI 2 TLGMS-TB 

DC SCIMS 

BSC I START 
* 

SCIMS PRNT .** ER 00 UNEXPECTED INTERRUPT. 

DC /FFOO 

SCIM2 PRNT .CSW XXXX, XXXX, XXXX, XXXX. 

DC /FFFF 
******************** ******************************* 

* * 

******************** ******************************* 

* WAIT FOR INTERRUPT 

*************************************************** 

* * 

********************* ****************************** 

ENTRY POINT 

FETCH TIME OUT CONSTANT 



GO VISIT MONITOR 



TINTW 


DC 




*-* 




LD 


2 


TERM-TB 




STO 


2 


SCSN1-TB 


* 








TINT2 


LD 


2 


WATSW-TB 




BNZ 




T I NTS 




BSI 


2 


STMLS-TB 




MDX 


L 


SCSN1.-10 




MDX 




TINT2 


* 









DATE 
EC NO. 



14NOV69 
431319 



30JAN70 
431319A 



I5SEP71 
431328 



81204780 

81204790 

81204800 

81204810 

81204820 

81204830 

81204840 

81204850 

81204860 

8120487O 

81204880 

81204890 

81204900 

81204910 

81204920 

81204930 

81204940 

81204950 

81204960 

81204970 

81204980 

61204990 

81205000 

81205010 

81205020 

81205030 

81205040 

81205050 

81205060 

81205070 

81205080 

81205090 

81205100 

81205110 

81205120 

81205130 

81205140 

81205150 

81205160 

81205170 

81205180 

81205190 

81205200 

81205210 

81205220 

81205230 

8120524O 

81205250 

81205260 

81205270 

81205280 

81205290 

81205300 

81205310 

81205320 

8120533O 

8120 5340 

81205350 

8120 5360 

81205370 

81205380 

8120 5390 

81205400 

81205410 

81205420 

S3205430 

81205440 

81205450 



PROG ID 
PAGE 



0812-A 
4A 
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W> 



3 



J 



J 

D 

3 



«% 

u 



J 
3 



3 



J 



DATE 
EC NO. 



09A4 





0A2B 




09A5 





D241 




09A6 





0A2F 




09A7 





D242 




09A8 





0A31 




09A9 





0243 




09 AA 





0A33 




09AB 





D244 




09AC 


1 


4C80 


099A 


09AE 


1 


7401 


099A 


09B0 





1010 




09B1 





0270 




09B2 


1 


4C80 


099A 



MO 


2 


SCSN1-TB 


GET CHANNEL STATUS 


STO 


2 


SCSXC-TB 


* AMD SAVE FOR ERR 


XIO 


2 


SCSN3-TB 


* MESSAGE 


STO 


2 


SCSXC+1-TB 


* 


XIO 


2 


SCSN4-TB 


* 


STO 


2 


SCSXC+2-TB 




XIO 


2 


SCSN5-TB 




STO 


2 


SCSXC+3-TB 





BSC 



TINTW 



EXIT RTN 



TINTW.l 
16 

WATSW-TB 
TINTW 



EXIT RTN 



09B4 4480 012C 
09B6 1 07FF 



09B7 





0000 




09B8 





COFE 




09B9 





D013 




09BA 


1 


6600 


087F 


09BC 





1010 




09BD 


1 


D400 


1D33 


09BF 





02DS 




09C0 





026F 




09C1 





D2DA 




09C2 





D270 




09C3 





0283 




09C4 





0284 




09CS 





0286 




09C6 


1 


D400 


1A91 


09C8 





C2BE 




09C9 





0285 




09CA 





C297 




09CB 





D2D8 




09CC 





7001 





T1NT3 MDX 
SLA 
STO 

BSC 

**************************** *********************** 

* * 
*************************************************** 
* 

BGIN BSI I BEGIN GO TO MONITOR BEGIN RTN 

DC TPID ADDRESS OF PIO 

********************* ************* * **************** 

* * 
************************ ** ********** *************** 
ZIPA 



DC 




*-* 


ENTRY POINT 


LD 




ZIPA 


MOVE RETURN AODRS 


STO 




ZLPA 


* 


LDX 


L2 


TB 


SET UP POINTER 


SLA 




16 


RESET- 


STO 


L 


FRESW 


RESET CONTROL SWS 


STO 


2 


LGBSY-TB 


* 


STO 


2 


WIOSW-TB 


* 


STO 


2 


TIOSW-TB 


* 


STO 


2 


WATSW-TB 


* 


STO 


2 


TSWO-TB 


* SW 


STO 


2 


TSW1-TB 


* SW 1 


STO 


2 


TSW3-TB 


* SW 3 


STO 


L 


STMPT 


RESET STMLS POINTER 


LD 


2 


HFFOO-TB 


FETCH CONSTANT 


STO 


2 


TSW2-TB 


PLACE IN SW 2 


LD 


2 


K1-T8 


FETCH CONSTANT OF 1 


STO 


2 


PSCNT-TB 


SET PASS C0UNT=1 


MDX 




ZLPA+1 


CONTINUE 



************************************* ************** 



09CD 
09CE 
09D0 
09D2 
09D4 
09D5 
09D7 
0909 
09DA 
09DB 
09DC 
09DE 
09E0 
09E1 
09E2 
09E2 
09E3 
09E4 
09E5 



0000 
6700 
6FO0 
6600 
C294 
4C10 
4480 
0813 
080C 
C295 
4C10 
4480 
0814 
08 OC 

1010 
D2D9 
D2D6 
D2D5 



ZLPA 



09FD 
080B 
087F 

09DB 
0132 



09E2 
0132 



*************************************** ************ 
* 

LOOP PGM RTN 
GET MLSCF ADDRESS 
SET IN TBL 
SET UP TBL POINTER 
LOOK AT LOG EDIT 
BR IF RELEASED 
ELSE RELEASE DEVICE 
ADDR OF EDIT WORD 
TERMINATOR 
SEL. CHAN. EDIT 



ZLPA1 



14NOV69 
431319 



30JAN70 
431319A 



DC 
LDX 
STX 
LDX 
LD 
BNN 
BSI 
DC 
DC 
LD 
BNN 
BSI 
DC 
DC 
ZLPA2 EQU 
SLA 
STO 
STO 
STO 



1 5SEP71 
431328 



*-* 
L3 TCNPR 
L3 MLSC2 
L2 TB 
2 TLGED-TB 
ZLPA1 
I RELDV 
TLGED 
TERM 
2 TSCED-TB 
ZLPA2 
I RELDV 
TSCED 
TERM 
* 

16 
2 STKSW-TB 
2 SIOSW-TB 
2 LGBSY-TB 



RELEASE DEVICE 



RESET- 

* STACK SW 

* SIO SW 

* LOG BUSY SW 



PART NO. 
PAGE 



81205460 

81205470 

61205480 

81205490 

81205500 

81205510 

81205520 

81205530 

81205540 

81205550 

81205560 

81205570 

81205580 

81205590 

81205600 

81205610 

81205620 

81205630 

81205640 

81205650 

81205660 

81205670 

81205680 

81205690 

81205700 

81205710 

81205720 

81205730 

81205740 

81205750 

81205760 

81205770 

81205780 

81205790 

81205800 

81205810 

81205820 

81205830 

81205840 

81205850 

81205860 

81205870 

81205880 

8120S890 

81205900 

81205910 

81205920 

81205930 

81205940 

8120 5950 

8120 5960 

81205970 

81205980 

81205990 

81206000 

81206010 

81206020 

81206030 

81206040 

81206050 

81206060 

81206070 

81206080 

81206090 

81206100 

81206110 

81206120 

812063.30 
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PART NO. 2279467 
PAGE 5A 



09E6 O C297 
09E7 O D281 
09E8 1 4C80 09CD 



LD 


2 Kl-TB 


STO 


2 TSID-TB 


BSC 


I ZLPA 



FETCH CONSTANT OF 1 
SET SECTION ID = 1 
EXIT 



*************************************************** 

* * 

*************************************************** 

ENO PGM RTN 
SET UP TBL POINTER 
LOOK AT LOG EDIT 
BR IF RELEASED 
ELSE RELEASE DEVICE 
ADDR OF EO IT WORD 
TERMINATOR 

SEL CHANNEL ED IT 
BR IF RELEASED 



09EA 





0000 




ZEPA 


DC 




*-* 


09EB 


I 


6600 


087F 




LDX 


L2 


TB 


09EO 





C294 






LD 


2 


TLGED-TB 


09EE 


1 


4C10 


09F4 




BNN 




ZEPA1 


09F0 





4480 


0132 




BSI 


I 


RELDV 


09F2 


1 


0813 






DC 




TLGED 


09F3 


1 


08 OC 




* 
ZEPA1 


DC 




TERM 


09F4 





C295 




LD 


2 


TSCED-TB 


09F5 


1 


4C10 


09FB 


* 


BNN 




ZEPA2 


09F7 





4480 


0132 


BSI 


I 


RELDV 


09F9 


1 


0814 






DC 




TSCED 


09FA 


1 


080C 






DC 




TERM 


09FB 


1 


4C80 


09EA 


ZEPA2 


BSC 


I 


ZEPA 



RELEASE DEVICE 
ADDRS OF EDIT WORD 



EXIT BACK TO MONITOR 

*************************************************** 

* * 
*************************************************** 
* 

* PRE-CONTROL ROUTINE 
* 
*************************************************** 

* * 

*************************************************** 



09FD 


1 


6600 


087F 


TCNPR 


LDX 


L2 


TB 


09FF 





C2DE 






LD 


2 


T45SW-TB 


OAOO 


1 


4C20 


0A14 




BNZ 




TCN01 


0A02 





42F1 




TCNRO 


BSI 


2 


STMLS- TB 


0A03 





4480 


0131 




BSI 


I 


REODV 


0A05 


1 


0A02 






DC 




TCNRO 


0A06 


1 


0813 






DC 




TLGED 


0A07 


1 


1CEF 






DC 




TLGDA 


0A08 


1 


080C 






DC 




TERM 


0A09 





4480 


0132 




BSI 


I 


RELDV 


OAOB 


1 


0813 






DC 




TLGED 


OAOC 


1 


080C 






DC 




TERM 


OAOD 


1 


C400 


1CEF 




LD 


L 


TLGDA 


OAOF 





F2B8 






EOR 


2 


H3000-TB 


0A10 





4820 






SKP 




Z 


0A11 





C297 






LD 


2 


Kl-TB 


0A12 





8297 






A 


2 


Kl-TB 


0A13 





D2DE 




* 
TCN01 


STO 


2 


T4SSW-TB 


0A14 









EQU 




* 


0A14 





42E8 






esi 


2 


GETDV-TB 


0A15 





42E5 






BSI 


2 


FRED V-TB 


0A16 





C28S 






LD 


2 


TSW2^TB -.- 


0A17 





1808 






SRA 




8 


0A18 


1 


4C18 


0A21 




BZ 




TCN02 


0A1A 





4203 






BSI 


2 


TLGMS-TB 


0A1B 


1 


0A83 




* 


DC 




TCNE2 


0A1C 





42F1 




BSI 


" 2 


STMLS-TB 


OAIO 





C285 






LD 


2 


TSW2-TB 


0A1E 





1808 






SRA 




8 


0A1F 





4820 






SKP 




Z 


0A2O 





70FB 




* 
TCN02 


MDX 




*-5 


0A21 





C285 




LD 


2 


TSW2-TB 


0A22 





D2D4 






STO 


2 


D VAD R-TS 


0A23 


Q 


42F4 






BSI 


2 


TCVBE-T8 



SET UP TABLE POINTER 
GET 43/53 SWITCH 



REQUEST DEVICE 
BUSY RETURN 
EDIT FOR PRINTER 
AREA CODE GIVEN BACK 
TERMINATOR 
RELEASE DEVICE 
EDIT FOR PRINTER 
TERMINATOR 
GET PRINTER AREA CODE 



ADD 



ONE 

ET SW FOR 



43 OR 53 



GET DEVICE FOR USE 

RELEASE DEVICE 

GET SW FNC 2 (DEV ADDR) 

SAVE BITS 0-7 

BR IF ZERO 

PRINT MESSAGE 
•ENTER DEV ADDRESS' 

GO TO MONITOR 
GET SW FNC 2 
SAVE BITS 0-7 
SKIP IF ZERO 
LOOP UNTIL OK 

GET SW FNC 2 
SET FOR SIO/TIO/SNS 
CONVERT ADDR TO EBC 



0812-A 

S 



OATE 
EC NO. 



14NOV69 
431319 



30JAN70 

431319A 



25SEP71 

431328 



81206140 

81206150 

81206160 

81206170 

81206180 

81206190 

81206200 

81206210 

81206220 

81206230 

81206240 

81206250 

81206260 

81206270 

81206280 

81206290 

81206300 

81206310 

8120632O 

81206330 

8120634O 

81206350 

81206360 

81206370 

81206380 

81206390 

81206400 

81206410 

81206420 

81206430 

81206440 

81206450 

81206460 

81206470 

81206480 

81206490 

81206500 

81206510 

81206520 

81206530 

81206540 

81206550 

81206560 

81206570 

81206580 

81206590 

8120660O 

81206610 

81206620 

81206630 

81206640 

81206650 

81206660 

81206670 

81206680 

81206690 

81206700 

81206710 

81206720 

81206730 

81206740 

81206750 

81206760 

81206770 

81206780 

81206790 

81206800 

81206810 



PROG ID 
PAGE 



0812-A 
5A 



4 

c 
o 
c 
c 
o 
o 
o 
c 
c 
c 

G 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
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0A24 





1090 


0A25 





D045 


0A26 





C2D8 


0A27 





42F7 


0A28 





42F4 


0A29 





18D0 


0A2A 





D04S 


0A2B 





4203 


0A2C 


1 


OASC 



0A2D 
0A2D 
0A2F 
0A30 
0A31 
0A32 
0A33 
0A34 
0A35 
0A36 
0A37 
0A39 
0A3A 
0A3B 



1 6600 087F 
C284 

100C 

180C 

D2C1 

C284 

E2AF 

1884 

D2C0 

4C20 0A4A 

1090 

180C 

4C20 0A4E 



0A3D 1 6580 0800 

0A3F 1 C500 0AS7 

0A41 D282 

0A42 1010 

0A43 D2C2 

0A44 D296 

0A4S C281 

0A46 8297 

0A47 D281 

0A48 1 4C80 0801 

0A4A D281 

0A4B 900B 

0A4C 1 4C28 0A3D 



0A4E 





C284 


0A4F 





42F4 


0A50 





D02E 


0A51 





1090 


0A52 





D02D 


0A53 





4203 


0A54 


1 


0A74 


0A55 





42FA 


0A56 





42DF 


0A57 





OOOS 


0A58 


1 


0A93 


0A59 


1 


OEDD 


0A5A 


1 


1457 


0A5B 


1 


18F1 


0A5C 








CODE 



Q TO A 

STORE FOR PRINT 

GET PASS COUNT 
CVT TO DECIMAL 
CONVERT TO 1443 
Q TO A 
PUT IN MSG 
PRINT PROGRAM TITLE 
MSG ADDRESS 
********************** ***************************** 

* * 

********************* ****************************** 

THIS ROUTINE CONTROLS ALL TESTS 



SLT 




16 


STO 




CUU11 


LD 


2 


PSCNT-TB 


BSI 


2 


TCVHD-TB 


BSI 


2 


TCVBE-TB 


XCH 






STO 




TTL01+3 


BSI 


2 


TLGMS-TB 


DC 




TTLOO 



* 
* 

TCNTE 



TCN03 



* 
TCN04 



* 
TCNER 



TCNTA 



EQU 

LDX 

LD 

SLA 

SRA 

STO 

LD 

AND 

SRT 

STO 

BNZ 

SLT 

SRA 

BNZ 

LDX 

LD 

STO 

SLA 

STO 

STO 

LD 

A 

STO 

BSC 

STO 

s 

BN 

LD 

BSI 

STO 

SLT 

STO 

BSI 

DC 

BSI 

BSI 

DC 
DC 
DC 
DC 
DC 
EQU 



L2 
2 



* 

TB 

TSW1-TB 

12 

12 

TRTNN-TB 

TSW1-TB 



ENTRY POINT 
SET TABLE ADDRESS 
GET SW FNC 1 

SAVE BITS 12-15 

** 

** 

GET SW FNC 1 



HOOFF-TB DROP BAD BITS 



II 
LI 

2 

2 
2 

2 
2 

2 



4 

TSCTN-TB 

TCN04 

16 

12 

TCNER 

TSID 

TCNTA 

TSAD-TB 

16 

TCNSW-TB 

TRID-TB 

TSID-TB 

Kl-TB 

TSID-TB 

TSAD 

TSID-TB 

TCNTA 

TCN03 

TSW1-TB 

TCVBE-TB 

TTLER+11 

16 

TTLER+12 

TLGMS-TB 

TTLER 

THALT-TB 

CNTRL-TB 



SAVE BITS 8-11 

SAVE SECTION NUMBER 

BR IF NOT ZERO 
GET BACK BITS 12-15 
SAVE THEM 
ERR. NO SECTION SPECIFIED 

GET SECTION NUMBER 

GET SECT. PREFACE ADDRESS 
STORE IN SEC ADDRS 

CLEAR ERROR COUNTER 
*** 

CLEAR RTN ID TO ZERO 
INCREMENT SECTION 
* 
* 

GO TO SECTION PREFACE 

STORE SECT. NUMBER 
SUB. NUMBER OF SECTIONS 
BR IF OK 



GET SW FNC 1 
CONVERT HEX 



TO PRNT CODE 



PUT INVALID SWITCH 

* SETTING INTO MESSAGE 

* 



GO TO RETRY RTN SELCT 



TCNTZ-TCNTA LENGTH OF TBL 
T10NT SECTION ADDRESS 
T20NT SECTION ADDRESS 
T30NT SECTION ADDRESS 
T40NT SECTION ADDRESS 
* END OF TABLE 



+ 1 



0A5C 0015 
0A6B 0001 
0A6C FFOO 



TCNTZ 

*************************************************** 

* * 

********************* ****************************** 

TTLOO PRNT . 2311 DIAGNOSTIC TEST ON UNIT . 
CUU11 PRNT . . 
DC /FFOO 






DATE 


14N0V69 


30JAN70 


15SEP71 




EC NO. 


431319 


431319A 


431328 














PART NO. 
PAGE 



81206820 

81206830 

81206840 

81206850 

81206860 

81206870 

81206880 

81206890 

81206900 

81206910 

81206920 

8120693O 

81206940 

81206950 

81206960 

81206970 

81206980 

8120 6990 

81207000 

81207010 

81207020 

81207030 

81207040 

81207050 

81207060 

81207070 

81207080 

81207090 

81207100 

81207110 

81207120 

81207130 

81207140 

81207150 

81207160 

81207170 

81207180 

81207190 

81207200 

81207210 

81207220 

81207230 

81207240 

8120 7250 

81207260 

81207270 

8120 7280 

81207290 

81207300 

81207310 

81207320 

81207330 

81207340 

8120735O 

81207360 

81207370 

81207380 

81207390 

81207400 

81207410 

81207420 

81207430 

81207440 

81207450 

81207460 

81207470 

81207480 

81207490 
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0812-A 
6 



DATE 
EC NO. 



0A6D 




0005 


TTL0 1 


PRNT 


.PASS- XX • 


0A72 





FFOO 




DC 


/FFOO TERMINATOR 


0A73 





FFFF 




DC 


/FFFF 


0A74 




0013 


TTLER 


PRNT 


. **ER INVLD SWS FNC 1 XXXX. 


0A81 





OOFF 




DC 


/OOFF . 


0A82 





FFFF 




DC 


/FFFF 


0A83 




0012 


TCNE2 


PRNT 


. *** SELECT OPTIONS ***. 


0A8F 





FFOO 




DC 


/FFOO 


0A90 





FFFF 




DC 


/FFFF 



0A91 0001 

0A92 0007 

0A93 O C2C1 

0A94 1 4C18 0A9B 

0A96 90FB 

0A97 1 4C30 0A4E 

0A99 80F8 

0A9A 7000 



0A9B 

0A9B 1 7401 0815 

0A9D 1 4C18 0AA2 

0A9F 9297 

OAAO 1 4C20 OAES 

0AA2 C283 

0AA3 100A 

0AA4 1 4C10 0AA8 

0AA6 4203 

0AA7 1 OABE 

0AA8 42E8 

0AA9 1 6500 0AE2 

OAAB 1 6D00 1C3D 

OAAO 1010 

OAAE D2D7 



****************************************** ********* 

* * 
********************************** ***************** 
* 

* SECTION PREFACE 

* 

/0001 SECTION NUMBER 

7 



T10PR DC 
DC 

* 

T10NT LD 
BZ 
S 

BP 
A 
MDX 



2 TRTNN-TB SW FNC 1 BITS 12-15 

Til 01 BR IF RUN ALL RTNS 

TlOPR-fl TEST FOR VALID 

TCNER BR IF INVALID RTN NUMBER 

T10PR+1 RESTORE RTN NUMBER 

T1101 GO TO FIRST RTN 
*************************** ************************ 

* * 
*************************************** ********** ** 

* 

* 

****************** ******************************** 

* 

* ROUTINE — 1 TEST CHANNEL 

* 

******************************* ******************* 

* 

* 

* THIS ROUTINE WILL EXECUTE THE TEST CHANNEL 

* INSTRUCTION TO CHECK THAT THE CHANNEL IS FREE 

* AND AVAILABLE BEFORE ANY OTHER I/O COMMANDS 

* ARE EXECUTED. 
* 

* 

****************************** ********************* 

* * 
************************************ *************** 
* 

******************** ******************************* 

* * 
****************************** ##******************* 

T1101 EQU * TEST ENTRY POINT 

MDX L TRID.l BUMP RTN ID 

BZ T1102 BR IF TEST NUMBER ZERO 

S 2 Kl-TB DECREMENT BY ONE 

BNZ T1201 BR IF NOT THIS TEST 



T1102 LD 
SLA 
BNN 
BSI 
DC 

* 

T1103 BSI 



2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T1103 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 
TTL11 MESSAGE ADDRESS 



2 GETDV-TB GET CHANNEL FOR RTN 

LDX LI Tllll SET ERROR RETURN ADDRESS 

STX LI ERADR FOR EROUT RTN 



14N0V69 
431319 



30JAN70 
431319A 



Tl i04 SLA 16 

STO 2 PASSW-TB 



15SEP71 

431328 



CLEAR PASS SW 

** 



81207500 

81207510 

81207520 

81207530 

81207540 

81207550 

81207560 

81207570 

81207580 

81207590 

81207600 

81207610 

81207620 

81207630 

81207640 

81207650 

81207660 

81207670 

81207680 

81207690 

81207700 

81207710 

81207720 

81207730 

81207740 

81207750 

81207760 

81207770 

81207780 

81207790 

81207800 

81207810 

81207820 

81207830 

81207840 

81207850 

8120766$ 

81207870 

81207880 

81207890 

81207900 

81207910 

81 20 792 0„ 

81207930 

81207940 

81207950 

81207960 

81207970 

81207980 

81207990 

81208000 

81208010 

81208020 

81208030 

81208040 

81208050 

81208060 

81208070 

81208080 

81208090 

81208100 

81208110 

81208120 

81208130 

81208140 

81208150 

81208160 

81208170 
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<<<<<< 



I 



DATE 
EC NO. 



OAAF 0A29 

OABO 0229 

0AB1 4209 

0AB2 1 OAAF 

0AB3 O C229 

0AB4 O 1888 

0AB5 1 4C20 OACC 

0AB7 O 4209 

0AB8 1 OAAF 



0AB9 42E5 

OABA C2C1 

OABB 1 4C18 0AE5 

OABD 42DF 

OABE 0007 

0AC5 0006 

OACB O FFFF 



OACC 
OACD 
OACF 
OADO 
0AD2 
0AD3 
0AD5 
0AD6 
0AD7 
0AD8 



1088 

4C28 OADF 

1001 

4C10 OADC 

C2D7 

4C20 0AD9 

0A2F 

C28D 

D2D7 

70D6 



0AD9 42E2 
OADA O 0300 
OADB O 1101 

OADC O 42E2 
OADD O 0300 
OADE 1102 

OADF O 42E2 
OAEO 0300 
0AE1 O 1103 

0AE2 O 4206 
0AE3 1 OAAD 
0AE4 O 70D4 



T110S XIO 
STO 
BSI 
DC 

* CHECK 
LD 
SRT 
BNZ 

T1106 BSI 
DC 

* GO TO 

THEN BSI 
LD 
BZ 
BSI 

TTL11 PR NT 

PR NT 
DC 
* 

T1107 SLT 
BN 
SLA 
BNN 
LD 
BNZ 
XIO 
LD 
STO 
MDX 
* 

T1108 BSI 
DC 
DC 
* 

T1109 BSI 
DC 
DC 
* 

T1110 BSI 
DC 



2 SCSNO-TB 

2 SCSNO-TB 

2 TLPST-TB 

Til 05 



GET CHAN STATUS 
STORE FOR LATER USE 
TEST LOOP SIO 
LOOP ADDRS 



CHANNEL STATUS 

2 SCSNO-TB GET CHAN STATUS 
8 SAVE BITS 0-7 

Til 07 BR IF NON ZERO 



2 TLPST-TB 
T1105 



TEST LOOP SIO 
LOOP ADDRS 



NEXT ROUTINE IN SEQUENCE 

2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SWS 

T1201 GO TO NEXT RTN IN SEQ 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT l.RT 1- • 

.TEST CHANNEL. 
/FFFF 



8 

T1110 

SCUSP 

T1109 

PASSW-TB 

T1108 

SCSN3-TB 

TERM-TB 

PASSW-TB 

T1105 



EROUT- 
/$>3 00 
/HOI 



TB 



Tim 



DC 

BSI 

DC 

MDX 



EROUT-TB 

/0300 

/1102 

EROUT-TB 

/0300 

/1103 

TLPER-TB 
Til 04 
THEN 



REPOSITION STATUS 

BR IF NOT OPERATIONAL 

TEST FOR UNIT STATUS PEND 

BR IF NOT SET -ERR- 
GET PASS SWITCH 
BR IF SET 
CLEAR STATUS 
SET SW TO NONZERO 
** 
LOOP 



RETURN TO ADRS IN ERADR 
ERR NUMBER 



RETURN TO ADRS IN ERADRZ 

ERR NUMBER 



TAGS AND OPTIONS 
ERR NUMBER 

TEST LOOP ERROR 
LOOP ADDRS 
END RTN 



*************************************************** 

* ROUTINE — 2 TEST I/O 

*********************** ****** ********************** 

* 
* 
* 



* 
* 

* 

* 



THIS ROUTINE WILL EXECUTE A TEST I/O TO DE- 
TERMINE THE STATUS OF THE ACCESS. THIS IS 
THE FIRST START I/O COMMAND TO BE EXECUTED. 
THIS COMMAND SHOULD GO THRU THE 2841 INIT- 
IAL STATUS PRESENTATION AND THE ENDING PRO- 
CEDURE. IF THE ROUTINE DETECTS A UNIT CHECK 
THE SENSE BYTES ARE ANALYZED. 



14N0V69 
431319 



30JAN7C 
431319A 



1SSEP71 

431328 
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81208180 

81208190 

81208200 

81208210 

81208220 

81208230 

81208240 

81208250 

81208260 

81208270 

81208280 

81208290 

81208300 

81208310 

81208320 

81208330 

81208340 

81208350 

81208360 

81208370 

81208380 

81208390 

81208400 

81208410 

81208420 

81208430 

81208440 

81208450 

81208460 

81208470 

81208480 

81208490 

81208S00 

81208510 

81208520 

81208530 

81208540 

81208550 

81208560 

81208570 

81208580 

81208590 

81208600 

81208610 

81208620 

81208630 

81208640 

81208650 

81208660 

81208670 

81208680 

81208690 

81208700 

81208710 

81208720 

81208730 

81208740 

81208750 

81208760 

81208770 

61208780 

81208790 

81208800 

81208810 

81208820 

81208830 

81203840 

81208850 
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DATE 
EC NO. 











* 


COND 


ITI 


ONS CHECKED 


• 


81208860 










* 


NO SELECT LOCKS 




81208870 










* 


FILES ONLINE 




81208880 










* 


READY (DETENTED 


AT SOME CYLINDER) 


81208890 










* 










81208900 










* 










81208910 










*************************************************** 


81208920 










* 








* 


81208930 










*************************************************** 


81208940 










* 










81208950 










*************************************************** 


8120 8960 










* 








* 


81208970 










*************************************************** 


81208980 


0AE5 









T1201 


EQU 




* 


TEST ENTRY POINT 


81208990 


0AE5 


1 


7401 


0815 




MDX 


L 


TRID.l 


BUMP RTN ID 


81209000 


0AE7 


1 


4C18 


OAEC 




BZ 




T1202 


BR IF TEST NUMBER ZERO 


81209010 


0AE9 





9297 






S 


2 


Kl-TB 


DECREMENT BY ONE 


81209020 


OAEA 


1 


4C20 


0B81 


* 


BNZ 




T1301 


BR IF NOT THIS TEST 


81209030 
81209040 


OAEC 





C283 




T1202 


LD 


2 


TSWO-TB 


GET OPTION SWS 


81209050 


OAED 





100A 






SLA 




OTTLE 


PRINT TITLES 


81209060 


OAEE 


1 


4C10 


0AF2 




BNN 




T1203 


BR IF NOT SET 


81209070 


OAFO 





4203 






BSI 


2 


TLGMS-TB GO TO PRINT ROUTINE 


81209080 


0AF1 


1 


OBOE 




* 


DC 




TTL12 


MESSAGE ADDRESS 


81209090 
81209100 


0AF2 





42E8 




T1203 


BSI 


2 


GETDV-TB 


GET CHANNEL FOR RTN 


81209110 


0AF3 


1 


6500 


0B64 




LDX 


LI 


T1217 


SET ERADR FOR RETURN 


81209120 


0AF5 


1 


6D00 


1C3D 


* 


STX 


LI 


ERADR 


** 


81209130 
81209140 


0AF7 





10A0 




T1204 


SLT 




32 


CLEAR AQ 


81209150 


0AF8 





DA3D 






STD 


2 


SCSX8-TB 


CLEAR SAVE ARE A 


81209160 


OAF 9 





0A3F 






STD 


2 


SCSX8+2-TB 


*** 


81209170 


OAF A 





D270 




* 


STO 


2 


WATSW-TB 


CLEAR INT. SWITCH 


81209180 
81209190 


OAFB 





0A21 






XIO 


2 


TIOXX-TB 


TEST I/O 


81209200 


OAFC 


1 


4400 


099A 




BSI 


L 


TINTW 


WAIT FOR INTERRUPT 


81209210 


OAFE 





7068 




* 


MDX 




T1218 


COME HERE IF NONE 


81209220 
81209230 


OAFF 





4209 






BSI 


2 


TLPST-TB 


TEST LOOP SIO 


81209240 


OBOO 


1 


OAF 7 




* 


DC 




T1204 


LOOP ADDRS 


81209250 
81209260 


0B01 





C23D 






LD 


2 


SCSX8-TB 


GET CHAN STATUS WORD 


81209270 


0B02 





F2B9 






EOR 


2 


H4000-TB 


TEST FOR UNIT STATUS PEND 


81209280 


0B03 


1 


4C20 


0B1A 




BNZ 




T1206 


BR IF NONZERO STATUS 


81209290 


0B05 





C23E 






LD 


2 


SCSX8+1-TB 


GET UNIT STATUS 


81209300 


0806 





1008 






SLA 




8 


CLEAR UNIT ADDRESS 


81209310 


0B07 


1 


4C20 


0B1A 


* 
* 


BNZ 




T1206 


BR IF NON ZERO STATUS 


81209320 
81209330 
81209340 










* 


GO TO NEXT ROUTINE 


IN SEQUENCE 


81209350 










* 










8120936O 


0B09 





42E5 




T12EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81209370 


OBOA 





C2C1 






LD 


2 


TRTNN-TB 


GET RTN SWS 


81209380 


OBOB 


1 


4C18 


0B81 




BZ 




T1301 


GO TO NEXT RTN IN SEQ 


81209390 


OBOD 





42DF 






BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81209400 


OBOE 




0007 




TTL12 


PR NT 




. SECT 1 ,RT 2- . 


81209410 










* 










81209420 


0B15 




0004 






PRNT 




.TEST I/O. 




81209430 


0B19 





FFFF 




* 


DC 




/FFFF 




81209440 
81209450 


0B1A 





C23D 




T1206 


LD 


2 


SCSX8-TB 


GET STATUS 


81209460 


0B1B 


1 


4C28 


0B23 




BN 




T1207 


BR IF NOT OPERATIONAL 


81209470 


0B1D 





1001 






SLA 




SCUSP 


TEST FOR UNIT STATUS PEND 


81209480 


0B1E 


1 


4C28 


0B26 




BN 




T1208 


BR IF SET 


81209490 


0B20 





42E2 






BSI 


2 


ER0UT-T8 




81209500 


0B21 





2302 






DC 




/2302 


TAGS AND OPTIONS 


81209510 


0B22 





1202 




* 


DC 




/1202 


ERR NUMBER 


61209520 
81209530 



14N0V69 
431319 



30JAN7 
431319A 



15SEP7I 
431328 
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0B23 42E2 
0B24 2302 
0B25 1203 

0B26 C23E 
0B27 6 100E 
0B28 1 4C28 0B3C 

0B2A C23D 
0B2B 1808 
0B2C 1 4C18 0B31 

0B2E 42E2 
0B2F 2302 
0B30 1201 

0B31 C23E 
0B32 1008 
0B33 F2BA 
0B34 1 4C20 0B39 

0B36 42E2 
0B37 2302 
0B38 1211 

0B39 42E2 
0B3A 2302 
0B3B 1209 

0B3C 1 4400 086A 

0B3E O CA1D 

0B3F O 109A 

0B40 1 4C10 0B45 

0B42 O 42E2 

0B43 2303 

0B44 O 1204 

0B45 CA1D 

0B46 1099 

0B47 1 4C10 0B4C 

0B49 42E2 

0B4A O 2303 

0B4B 1206 

0B4C CA1D 

0B4D 1098 

0B4E 1 4C10 0B53 

0B50 42E2 

0B51 O 2303 

0B52 O 120S 

0B53 CA1D 

0B54 1095 

0B55 1 4C10 0B5A 

0B57 42E2 

0B58 2303 

0B59 1207 

0B5A CA1D 
0B5B 1090 
0B5C 1 4C10 0B61 
0B5E 42E2 
0B5F 2303 
0B60 O 1210 

0B61 42E2 
0B62 2303 
0B63 1208 



T1207 BSI 
DC 
DC 

T1208 LD 
SLA 



* 
T1209 



BN 

UNIT 

LD 

SRA 

BZ 

GET 

BSI 

DC 

DC 

CHECK 

LD 

SLA 

EOR 

BNZ 



2 EROUT-TB 
/2302 
/1203 

2 SCSX8+1-TB 

UNCHK 

T1211 

CHECK IS OFF 

2 SCSX8-TB 

8 

T1209 
HERE IF SOME 
2 EROUT-TB 

/2302 

/1201 



TAGS AND OPTIONS 
ERR NUMBER 

GET UNIT STATUS 
TEST FOR UNIT CHECK 
BR IF VES 

GET CHAN STATUS 
SAVE BITS 0-7 

BR IFNONE 
CHAN. STATUS BITS ON 



TAGS AND OPTIONS 
ERR NUMBER 
FOR CNTRL UNIT BUSY 
2 SCSX8+1-TB GET UNIT STATUS 

8 SAVE BITS 8-15 

2 H5000-TB TEST FOR CNTL BUSY 

T1210 BR IF NOT 



AND 



TAGS AND OPTIONS 
ERR NUMBER 



BSI 2 EROUT-TB 

DC /2302 

DC /1211 

* UNIT CHECK AND NO CHANNEL STATUS 

T1210 BSI 2 EROUT-TB 

DC /2302 
/1209 



* 
T1211 



* 
T1212 



DC 

BSI I 

LDD 

SLT 

BNN 

BSI 

DC 

DC 

CHECK 

LDD 

SLT 

BNN 

BSI 

DC 

DC 



TAGS AND OPTIONS 
ERR NUMBER 



GETSN 
2 SNWDS-TB 

FUNS I 

T1212 
2 EROUT-TB 

/2303 

/1204 
FOR ONLINE 
2 SNWDS-TB 

FONLN 

T1213 
2 EROUT-TB 

/2303 

/1206 



GET SENSE INFO 
GET BYTES TO A REG 
TEST FOR FILE UNSAFE 
BR IF NOT UNSAFE 

TAGS AND OPTIONS 
ERR NUMBER 

GET SENSE INFO 
TEST FOR ONLINE 
BR IF NOT 

TAGS AND OPTIONS 
ERR NUMBER 



* 
T1213 



CHECK FOR FILE READY 



LDD 
SLT 
BNN 
BSI 
DC 
DC 
* CHECK 

T1214 LDD 
SLT 
BNN 
BSI 
DC 
DC 
♦CHECK FOR 
T1215 LDD 
SLT 
BNN 
BSI 
DC 
DC 



2 SNWDS-TB 

FDRDY 

T1214 
2 EROUT-TB 

/2303 

/1205 
FOR UNSELECTED 
2 SNWDS-TB 

FUNSL 

T1215 
2 EROUT-TB 

• 2303 

/1207 



TEST FOR READY 
BR IF NOT SET 

TAGS AND OPTIONS 
ERR NUMBER 

FILE STATUS 



BR IF NOT 



TAGS AND OPTIONS 
ERR NUMBER 
END OF CYLINDER 
2 SNWDS-TB FETCH SENSE WORDS 

END OF CYLINDER 
BR IF NOT 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



FECYL 
T1216 
EROUT-TB 
• 2303 
/1210 

* OTHER SENSE INFO 
T1216 BSI 2 EROUT-TB 
DC /2303 
DC /1208 



15SEP71 
431328 



TAGS AND OPTIONS 
ERR NUMBER 



TAGS AND OPTIONS 
ERR NUMBER 
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83209540 

81209550 

81209560 

81209570 

81209580 

81209590 

81209600 

81209610 

81209620 

81209630 

81209640 

81209650 

81209660 

81209670 

81209680 

81209690 

81209700 

81209710 

81209720 

81209730 

81209740 

81209750 

81209760 

81209770 

81209780 

81209790 

81209800 

81209810 

81209820 

81209830 

81209840 

81209850 

81209860 

81209870 

81209880 

81209890 

81209900 

81209910 

81209920 

81209930 

81209940 

81209950 

81209960 

31209970 

81209980 

81209990 

81210000 

81210010 

81210020 

81210030 

81210040 

81210050 

81210060 

8i^4007©~ 

81210080 

81210090 

81210100 

81210110 

81210120 

81210130 

81210140 

81210150 

81216160 

81210170 

8 1210180 

81210190 

81210200 

81210210 
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08 1 2-A 
8 



0B64 4206 

0B65 1 0AF7 

0B66 O 70A2 

0B67 42E2 

0B68 130E 

0B69 1 0B6A 

0B6A 0016 

0B7A 0006 

0B80 FFFF 



0B81 O 

0B81 1 7401 0815 

0B83 1 4C18 0B88 

0B85 O 9297 

0B86 1 4C20 0BF5 

0B88 C283 

0B89 I00A 

0B8A 1 4C10 0B8E 

0B8C 4203 

0B8D 1 OBCO 

0B8E 42E8 

0B8F 1 6500 0BD4 

0B91 1 60 00 1C3D 

0B93 C2B9 

0B94 D2D6 

0B95 42EE 

0B96 I 088E 

0B97 O 1010 

0B98 D2D6 

0B99 C235 

0B9A 1 4C20 0BA7 



2 TLPER-TB 
T1204 
T12EN 

2 EROUT-TB 
/130E 
T12M2 



TEST LOOP ON ERROR 
LOOP ADDRESS 
END ROUTINE 

ERROR MSG RTN 
OPTIONS AND TAGS 
ERROR MSG ADDRESS 



. 06 CHANNEL HUNG AFTER TEST I/O. 

..SECT l.RT 2. 

/FFFF 



T1217 BSI 
DC 
MDX 

. * 
T1218 BSI 
DC 
DC 

* 

T12M2 PRNT 

PRNT 

DC 

* 

* 

*************************** *********************** 
* 

* ROUTINE 3 NO OPERATION 

* 

****************** ******************************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*************************************************** 

* * 
*************************************************** 

* ♦ 

*************************************************** 

* * 
*************************************************** 

TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 

BR IF NOT SET 
3 TO PRINT ROUTINE 
MESSAGE ADDRESS 

GET CHANNEL FOR RTN 
SET RETURN ADDRESS 



THIS ROUTINE WILL EXECUTE A NO-OPERATION 
COMMAND. MODULE SELECT AND HEAD SELECT ARE 
THE ONLY FILE LINES ACTIVATED. 



NOTE. NO-OP IS AN IMMEDIATE COMMAND. 

CONDITIONS CHECKED. 

START I/O COMMAND SEOUENCE 

2841 INITIAL SELECTION AND ENDING PROC. 



T1301 


EQU 




* 




MDX 


L 


TRID .1 




BZ 




T1302 




S 


2 


Kl-TB 




BNZ 




T1401 


* 








T1302 


LD 


2 


TSWO-TB 




SLA 




OTTLE 




BNN 




T1303 




BSI 


2 


TLGMS-TB 




DC 




TTL13 


* 








T1303 


BSI 


2 


GETO V-TB 




LDX 


LI 


T1309 




STX 


LI 


ERADR 


* 








T1304 


LD 


2 


H4000-TB 


* 


STO 


2 


S10SW-TB 




BSI 


2 


SIO-TB 


* 


DC 




NOPCC 




SLA 




16 


* 


STO 


2 


SIOSW-TB 




LO 


2 


SCSXO-TB 




BNZ 




TI30K 



SET SW TO EXIT SIO 
* RTN ON ERROR 

GO TO START IO RTN 
NOP CCW 

CLEAR SW 



GET CHAN STATUS 
BR IF NOT O 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP7J 
431328 



81210220 

81210230 

81210240 

81210250 

81210260 

81210270 

81210280 

81210290 

81210300 

81210310 

81210320 

81210330 

81210340 

81210350 

81210360 

81210370 

81210380 

81210390 

81210400 

81210410 

81210420 

81210430 

81210440 

81210450 

81210460 

81210470 

81210480 

81210490 

81210500 

81210510 

81210520 

81210530 

81210540 

81210550 

81210560 

81210570 

81210580 

81210590 

81210600 

81210610 

81210620 

81210630 

81210640 

81210650 

81210660 

81210670 

81210680 

81210690 

81210700 

81210710 

81210720 

81210730 

81210740 

81210750 

81210760 

81210770 

81210780 

8 1210790 

81210800 

81210810 

81210820 

81210830 

81210340 

81210850 

81210860 

81210670 

81210880 

81210890 
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DATE 

EC NO. 



089C 





0A2B 




XIO 


2 


SCSN1-TB 


ELSE GET CSW AND PUT IN 


81210900 


0B9D 





D241 




STO 


2 


SCSXC-TB 


* SAVE AREA 


81210910 


0B9E 





0A2F 




XIO 


2 


SCSN3-TB 


* 


81210920 


0B9F 





D242 




STO 


2 


SCSXC+1-TB 


* 


81210930 


OBAO 





0A31 




XIO 


2 


SCSN4-TB 


* 


81210940 


0BA1 





D243 




STO 


2 


SCSXC+2-TB 


* 


81210950 


0BA2 





0A33 




XIO 


2 


SCSN5-TB 


* 


81210960 


0BA3 





D244 




STO 


2 


SCSXC+3-TB 


* 


81210970 


0BA4 





42E2 




BSI 


2 


EROUT-TB 




81210980 


0BA5 





130A 




DC 




/130A 




81210990 


0BA6 


1 


0BD7 


* 


DC 




T13M2 




81211000 
81211010 


0BA7 





1001 


T130K 


SLA 




SCUSP 


TEST FOR STATUS PENDING 


81211020 


0BA8 


1 


4C10 0BD1 




BNN 




T1308 




81211030 


OBAA 





C23S 




LD 


2 


SCSXO-TB 


GET CHAN STATUS 


81211040 


OBAB 





F289 




EOR 


2 


H4000-TB 


TEST FOR UNIT STATUS PEND 


81211050 


OBAC 


1 


4C20 OBCB 




BNZ 




T1306 


BR IF ANY STATUS 


81211060 


OBAE 





C236 




LD 


2 


SCSXO+1-TB 


GET UNIT STATUS 


81211070 


OBAF 





100E 




SLA 




UNCHK 


TEST FOR UNIT CHECK 


81211080 


OBBO 


1 


4C28 OBCB 




BN 




T1306 


BR IF UNIT CHECK 


81211090 


0BB2 





C236 




LD 


2 


SCSXO+l-TB 


GET UNIT STATUS 


81211100 


0BB3 





100C 




SLA 




UNCHE 


TEST FOR CHANNEL END 


81211110 


0BB4 


1 


4C10 OBCE 




BNN 




T1307 


BR IF NOT -ERR- 


81211120 


0BB6 





1001 




SLA 




UNDVE-UNCHE TEST FOR DEVICE END 


81211130 


0BB7 


1 


4C10 OBCE 




BNN 




T1307 


BR IF NOT SET -ERR- 


81211140 








* 


GET HERE IF NOP APPEARED TO WORK PROPERLY 


81211150 


0BB9 





4209 


T1305 


BSI 


2 


TLPST-TB 


TEST LOOP SIO 


81211160 


OBBA 


1 


0B93 


* 


DC 




T1304 


LOOP ADDRS 


81211170 
8 1 2 1 1 1 80 








* 


GO TO 


NEXT ROUTINE 


IN SEQUENCE 


81211190 








* 










81211200 


OBBB 





42E5 


T13EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81211210 


OBBC 





C2C1 




LD 


2 


TRTNN-TB 


GET RTN SWS 


81211220 


OBBD 


1 


4C18 0BF5 




BZ 




T1401 


GO TO NEXT RTN IN SEQ 


81211230 


OBBF 





420 F 




BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81211240 


OBCO 




0007 


TTL13 


PR NT 




. SECT l.RT 3- . 


81211250 








* 










81211260 


0BC7 




0003 




PR NT 




.NO-OP. 




81211270 


OBCA 





FFFF 


* 


DC 




/FFFF 




81211280 
81211290 


OBCB 





42E2 


T1306 


BSI 


2 


EROUT-TB 




81211300 


OBCC 





0327 




DC 




/0327 




81211310 


OBCD 





1301 


* 


DC 




/1301 


ERR NUMBER 


81211320 
81211330 


OBCE 





42E2 


T1307 


BSI 


2 


EROUT-TB 




81211340 


OBCF 





0306 




DC 




/0306 




81211350 


OBDO 





1302 


* 


DC 




/1302 


ERR NUMBER 


81211360 
81211370 


0BD1 





42E2 


T1308 


BSI 


2 


EROUT-TB 




81211380 


0BD2 





0306 




DC 




/0306 




81211390 


0BD3 





1303 


* 


DC 




• 1303 




81211400 
81211410 


0BD4 





4206 


T1309 


BSI 


2 


TLPER-TB 


TEST LOOP ERROR 


81211420 


0BD5 


1 


0B93- 




DC 




T1304 


LOOP ADDRS 


81211430 


0BD6 





70E2 


* 


MDX 




T1305 


HERE IF NOT 


81211440 
81211450 


0BD7 




0018 


T13M2 


PR NT 




. 06 CHANNEL HUNG BUSY. NO INTERRUPT. 


81211460 


0BE9 




0011 




PRNT 




. OCCURRED , 


SECT1.RT 3. 


81211470 


0BF4 





FFFF 


* 
* 


DC 




• FFFF 




81211480 
81211490 
81211500 








*************************************************** 


81211510 






- 


* 










81211520 








* 


ROUTINE 


4 SENSE I/O 


81211530 








* 










81211540 








*************************************************** 


81211550 








* 










81211560 








* 










8125.1570 



14N0V69 
431319 



30JAN70 15SEP71 
431319A 431328 
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0812-A 
9 



DATE 
EC NO. 



THIS ROUTINE WILL PERFORM A SENSE I/O 
OPERATION. IT VERIFIES THAT DATA TRANSFER 
OCCURS BETWEEN THE 2841. THE CHANNEL AND 
THE PROCESSOR. 

CONDITIONS CHECK8D. 

DATA TRANSFER FROM 284 1 TO PROCESSOR 



0BF5 

0BF5 1 7401 0815 

0BF7 1 4C18 OBFC 

0BF9 O 9297 

OBFA 1 4C20 0C49 

OBFC C283 

OBFD 100A 

OBFE 1 4C10 0C02 

OCOO 4203 

0C01 1 0C30 

0C02 42E6 

0C03 1 6500 0C46 

OC05 1 60 00 1C3D 



* 
* 
* 
* 
* 
* 
* 
* 
* 
********************* ****************************** 

* * 
*************************************************** 

****************************** ********************* 

* * 

**************************** *********************** 

TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
3 TO PRINT ROUTINE 
MESSAGE ADDRESS 



T1401 


EOU 




* 




MDX 


L 


TRID ,1 




BZ 




T1402 




S 


2 


Kl-TB 




BNZ 




T1501 


* 








T1402 


LD 


2 


TSWO-TB 




SLA 




OTTLE 




BNN 




T1403 




BSI 


2 


TLGMS-T 


♦ 


DC 




TTL14 


T1403 


BSI 


2 


GETD V-T 



LDX LI T1409 
STX LI ERADR 



GET CHANNEL FOR RTN 
SET RETURN ADDRESS 
** 



0C07 
OC08 
0C09 
OCOA 
OCOB 
OCOC 
OCOD 



C28D 
D21D 
D21E 
D21F 
10A0 
DA41 
DA43 



OCOE 42EE 
OCOF 1 0898, 



0^\ 



T1404 LD 
STO 
STO 
STO 
SLT 
STD 
STD 



2 TERM-TB SET BYTES TO /FFFF INIT. 

2 SNWDS-TB ** 

2 SNWDS+1-TB ** 
2 SNWDS+2-TB ** 

32 
2 SCSXC-TB 
2 SCSXC+2-TB 



\ 



r 



q-0^ 



* 



0C10 C241 

0C11 F2B9 

0C12 1 4C20 0C3D 

0C14 C242 

0C15 100E 

0C16 1 4C28 0C3D 

0C18 C242 

0C19 O 100C 

0C1A 1 4C10 0C40 

0C1C O 1001 

0C1D 1 4C10 0C40 



0C1F 
0C20 



C21D 

4C20 0C43 



0C22 C21E 



0C23 

0C24 
0C26 
0C27 



F2AE 
4C20 0C43 

C21F 
4C20 0C43 



0C29 4209 
0C2A 1 0C07 



BSI 
DC 

LD 

EOR 

BNZ 

LD 

SLA 

BN 

LD 

SLA 

BNN 

SLA 

BNN 

LD 

BNZ 

LD 

EOR 
BNZ 
LD 
BNZ 



T1405 SSI 
DC 

* 



2 SIO-TB 
SNCCW 

2 SCSXC-TB 

2 H4000-TB 

T1406 



START I/O FOR SENSE 



GET CHAN STATUS 
TEST FOR UNIT STAUS PEND 
BR IF NONZERO STATUS 



2 SCSXC+1-TB GET UNIT STATUS 

UNCHK TEST FOR UNIT CHECK 

T1406 BR IF YES 

2 SCSXC+1-TB GET UNIT STATUS 

UNCHE TEST FOR CHANNEL END 

T1407 BR IF NOT 

UNDVE-UNCHE 

T1407 BR IF NOT DEVICE END TOO 

2 SNWDS-TB GET BYTES O AND 1 

T1408 BR IF NOT ZERO 

2 SNWD5+1-TB GET BYTES 2 AND 3 

2 H00C8-TB TEST FOR CORRECT 

TS408 BR IF NOT 

2 SNWDS+2-TB GET BYTES 4 AND 5 

T1408 BR IF NOT ZERO 



2 TLPST-TE 
T1404 



TEST LOOP SIOS 
LOOP ADDRS 



14N0V69 
431319 



30JAN70 1SSEP71 
431319A 431328 



81211580 

81211590 

81211600 

81211610 

81211620 

81211630 

81211640 

81211650 

81211660 

81211670 

81211680 

81211690 

81211700 

81211710 

81211720 

81211730 

81211740 

81211750 

81211760 

81211770 

81211780 

81211790 

81211800 

81211810 

81211820 

81211830 

81211840 

81211850 

81211860 

81211870 

81211880 

81211890 

81211900 

81211910 

81211920 

81211930 

81211940 

81211950 

81211960 

81211970 

81211980 

81211990 

81212000 

81212010 

81212020 

81212030 

81212040 

81212050 

81212060 

81212070 

81212080 

81212090 

81212100 

81212110 

81212120 

81212130 

81212140 

81212150 

81212160 

81212170 

81212180 

81212190 

81212200 

81212210 

81212220 

81212230 

81212240 

81212250 
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GO TO NEXT ROUTINE IN SEQUENCE 



0C2B 42E5 

0C2C C2C1 

0C2D 1 4C18 0C49 

0C2F 42DF 
0C30 0007 

0C37 0005 
0C3C O FFFF 

0C3D O 42E2 
0C3E 1302 
0C3F 1401 

0C40 42E2 
0C41 1302 
0C42 1403 

0C43 42E2 
0C44 1347 
0C45 1404 

0C46 4206 
0C47 1 0C07 
0C48 70E0 



2 FREDV-TB 
2 TRTNN-TB 

T1501 
2 CNTRL-TB 



FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SEQ 
GO TO CONTROL RTN 



0C49 

0C49 1 7401 0815 

0C4B 1 4C18 OC50 

0C4D 9297 

0C4E 1 4C20 OCAC 

0C50 C283 

0C51 100A 

0C52 1 4C10 0C56 

0C54 4203 



. SECT 1 .RT 4- . 

•SENSE I/O. 
/FFFF 



2 EROUT-TB 
/1302 
/1401 

2 EROUT-TB 
/1302 
/1403 

2 EROUT-TB 
/1347 
/1404 

2 TLPER-TB 
T1404 
T1405 



TAGS AND OPTIONS 



TAGS AND OPTIONS 
ERR NUMBER 



TAGS AND OPTIONS 
ERR NUMBER 

TEST LOOP ERROR 
LOOP ADDRS 
ELSE HERE 



* 

T14EN BSI 

LD 

BZ 

BSI 
TTL14 PRNT 

PRNT 
DC 

T1406 BSI 
DC 
DC 

T1407 BSI 

DC 

DC 
* 
T1408 BSI 

DC 

DC 

T1409 BSI 
DC 
MDX 

* 
* 
***************************** ********************** 

* 

* ROUTINE — 5 COMMAND EXIT 

* 

*************************************** * *********** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

***************************** ********************** 

* * 

************************************* ************** 

* 

*************************************** ************ 

* * 
*************************************** ************ 

TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 



THIS ROUTINE WILL PERFORM THE FOLLWING FILE 
COMMANDS TO CHECK THAT THEY CAN BE EXECUTED 
WITHOUT HANGNG UP THE CONTROL UNIT. NO 
CHECK IS MADE TO DETERMINE IF THE COMMANDS 
FUNCTIONED PROPERLY. THE ONLY REQUIREMENT 
IS THAT THE CONTROL UNIT AND FILE BECOME 
AVAILABLE WITHIN 2 SECONDS AFTER INITIATION 
OF THE COMMAND. 

CONDITIONS CHECKED. 

CONTROL UNIT HANG-UPS 
SET DIFFERENCE 
ATTENTION FROM 2311 



T1S01 


EQU 




* 




MDX 


L 


TRID .1 




BZ 




T1502 




S 


2 


Kl-TB 




BNZ 




T1601 


* 








T1S02 


LD 


2 


TSWO-TB 


r 


SLA 




OTTLE 




BNN 




T1503 




BSI 


2 


TL6MS-T 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 

43I319A 



15SEP71 

43132 8 



81212260 

81212270 

81212280 

81212290 

81212300 

81212310 

81212320 

81212330 

81212340 

81212350 

81212360 

81212370 

81212380 

81212390 

81212400 

81212410 

81212420 

81212430 

81212440 

81212450 

81212460 

81212470 

81212480 

81-212490 

81212500 

81212510 

81212520 

81212530 

81212540 

81212550 

81212560 

81212570 

81212580 

81212590 

81212600 

81212610 

81212620 

81212630 

81212640 

81212650 

81212660 

81212670 

81212680 

81212690 

81212700 

81212710 

81212720 

81212730 

81212740 

81212750 

81212760 

81212770 

81212780 

81212790 

81212800 

81212810 

81212820 

81212830 

81212840 

81212850 

81212860 

81212870 

81212880 

81212890 

81212900 

81212910 

81212920 

81212930 
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0812-A 
1 O 



0C55 


1 


0C6E 




* 


DC 




TTL15 


MESSAGE ADDRESS 


81212940 
81212950 


0C56 





42E8 




T1503 


BSI 


2 


GETDV-TB 


GET CHANNEL FOR RTN 


81212960 


0C57 


1 


6500 


0C86 




LDX 


LI 


T1509 


SET RETURN ADDRESS 


81212970 


0C59 


1 


6D00 


19B2 




STX 


LI 


WTADR 




81212980 


0C5B 





61FC 




* 


LDX 


1 


-4 


SET COUNT 


81212990 
81213000 


0C5C 


1 


C500 


0C9D 


T1505 


LD 


LI 


T15LS+4 


GET CCW ADDRESS 


81213010 


0C5E 





O001 




* 


STO 




T1506+1 


SET IN LD INSTRUCTION 


81213020 
81213030 


0C5F 





42EE 




T1506 


BSI 


2 


SIO-TB 


GO TO SIO RTN 


81213040 


0C60 





0000 




* 


DC 




*_* 


CCW ADDRESS SET HERE 


81213050 
81213060 


0C61 





COFE 






LD 




T1506+1 


GET ADDRESS 


81213070 


0C62 





F037 






EOR 




T15LS+1 


TEST FOR SEEK 


81213080 


0C63 


1 


4C18 


0C7C 


* 


BZ 




T1508 


BR IF YES 


81213090 
81213100 


0C65 





4209 




T1507 


BSI 


2 


TLPST-TB 


TEST LOOP SIO 


81213110 


0C66 


1 


0C5F 






DC 




T1506 


LOOP ADDRS 


81213120 


0C67 





7101 






MDX 


1 


1 


BUMP COUNT 


81213130 


0C68 





70F3 




* 


MDX 




T1505 


LOOP UNTIL FINISHED 


81213140 
81213150 










* 


GO TO NEXT ROUTINE IN SEQUENCE 


81213160 










* 








■■'... ■ ; 


81213170 


0C69 





42E5 




T15EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81213180 


0C6A 





C2C1 






LD 


2 


TRTNN-TB 


GET RTN SWS 


81213190 


0C6B 


1 


4C18 


OCAC 




BZ 




T1601 


GO TO NEXT RTN IN SEQ 


81213200 


0C6D 





42DF 






BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81213210 


0C6E 




0007 




TTL15 

* 


PRNT 




. SECT 1 , 


RT 5- . 


61213220 
81213230 


0C75 




0006 






PRNT 




.COMMAND 


EXIT. 


81213240 


OC7B 





FFFF 




* ' 


DC 




/FFFF 




81213250 
81213260 


0C7C 





42EB 




T1508 


BSI 


2 


GETSN-TB 


GET SENSE INFO 


81213270 


0C7D 





C21E 






LD 


2 


SNWDS+1-TB 


81213280 


0C7E 





E2AE 






AND 


2 


HO0C8-TB 


SAVE BITS THAT SHOULD BE 


0N81213290 


0C7F 





F2AE 






EOR 


2 


H00C8-TB 


CLEAR THEN 


81213300 


OC80 


1 


4C18 


0C65 


* 


BZ 




T1507 


BR IF SENSE CORRECT 


81213310 
61213320 


0C82 





42E2 






BSI 


2 


EROUT-TB 




81213330 


0C83 





0107 






DC 




/0107 




81213340 


0C84 





1505 






DC 




/1505 


ERR NUMBER 


81213350 


0C85 





7010 




* 


MDX 




T15J0 




81213360 
81213370 


0C86 





7500 


1505 


T1509 


MD X 


LI 


/1S01+4 


COME HERE IF TIMEOUT 


81213380 


0C88 





1000 






NOP 








81213390 


0C89 





6905 






STX 


1 


T15ER 


SET ERROR MSG NUMBER 


81213400 


OC8A 





7500 


EAFB 




MDX 


LI 


-/1501-4 


DECR BACK 


81213410 


0C8C 





1000 






NOP 








81213420 


0C8D 





42E2 






BSI 


2 


EROUT-TB 




81213430 


0C8E 





01 06 


-.:.. -_ 


-■- - -■■ 


©e ..... 




/jmq6 — 


— ■ "■'* -^..'. .. , ' [ 


81213440 


0C8F 





0000 




T15ER 

* 


OC 




*-* 


ERR NUMBER 


81213450 
81213460 


0C90 


1 


4400 


086A 




BSI 


L 


GETSN 


GET SENSE INFO 


6121 3470 


0C92 





CA1D 






LDD 


2 


SNWDS-TB 


GET SENSE BYTES 


81213480 


0C93 





109F 






SLT 




FSKIN 


TEST FOR SEEK INCOMPLETE 


81213490 


0C94 


1 


4C10 


0C65 


* 


BNN 




T1507 


BR IF NOT 


81213500 
81213510- 


0C96 





42EE 




T1510 


BSI 


2 


SIO-TB 


GO TO START IO RTN 


81213520 


0C97 


1 


0891 




* 


OC 




RECAL 


CCW ADDRESS 


81213530 
81213540 


0C98 





70CC 




* 

* 


MDX 




T1507 


GO TO LOOP 


81213550 
81213560 
81213570 










* 


LIST 


OF 


CCW ADDRESSES 


812S3580 










* 










81213590 


0C99 


1 


0C9D 




T15LS 


DC 




T15C1 




81213600 


0C9A 


1 


OCAC 






OC 




TI5C2 




81213610 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 

431328 
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0812-A 
10A 



u 



( X ( CI ( ( ( ( ( < ( ( < < < ( I ( C ( ( ( ( (J 1 ( ( ( I ( (j ( ( ( 



o 

O 

o 
o 
c 
o 
o 

G 

G 

C 
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0C9B 1 0CA3 
0C9C 1 0891 



0C9D 0005 
0C9E 001A 
0C9F 1 08C8 
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OCAO 0006 
0CA1 001B 
0CA2 1 0CA6 



0CA3 0006 
0CA4 0007 
0CA5 1 0CA9 



0CA6 0000 

0CA7 O 0000 

0CA8 0000 

0CA9 0000 

OCAA OOOF 

OCAB 0000 



c 




c 




c 




G 




G 




G 




o 




o 




c 




c 




G 




C 




o 

o 


OCAC 

OCAC 1 7 


o 

v ~ / DATE 

EC NO. 

o 


■ 14N0V69 
431319 



401 0815 



30JAN70 15SEP71 
431319A 431328 





DC T15C3 


81213620 




DC RECAL 


31213630 


* 




81213640 


* 


CCW'S USED IN RTN 


81213650 


* 




81213660 


* 




81213670 


T15C1 


DC 5 BYTE COUNT 


81213680 




DC 0*256+RDHA FLAGS AND OP CODE 


81213690 




DC HA ADDRESS 


81213700 


* 




81213710 


* 




81213720 


T15C2 


DC 6 BYTE COUNT 


81213730 




DC 0*256+SKH> FLAGS AND OP CODE 


81213740 




DC SEEK1 ADDRESS 


81213750 


* 




8121 3760 


* 




81213770 


T15C3 


DC 6 BYTE COUNT 


81213780 




DC 0*256+SEEKC FLAGS AND OP CODE 


81213790 




DC SEEK2 ADDRESS 


81213800 


* 




81213810 


* 




81213820 


* 


SEEK ARGUMENTS 


81213830 


* 




81213840 


SEEK1 


DC SKARG1 


81213850 




DC 


81213860 




DC 


81213870 


SEEK2 


DC SKARG2 


81213880 




DC /F 


81213890 




OC 


81213900 


* 




81213910 


* 




81213920 


*********************************************** **** 


81213930 


* 




81213940 


* 


ROUTINE — 6 READ HEAD MAP 


81213950 


* 




81213960 


*************************************************** 


81213970 


* 




81213980 


* 




81213990 


* 


THIS ROUTINE WILL CONSTRUCT A MAP USING EACH 


81214000 


* 


HEAD FROM TO 9. THE RESULT OF A READ HOME 


81214010 


* 


ADDRESS IS CODED AND STORED IN A MAP (ARRAY). 


81214020 


* 


AFTER THE MAP IS CONSTRUCTED (ALL HEADS 


81214030 


* 


USED)t THE PROGRAM DETERMINES IF AN ERROR OC- 


81214040 


* 


CURRED AND IF SO ATTEMPTS TO ISOLATE THE 


81214050 


* 


ERROR. 


81214060 


* 




81214070 


* 




81214080 


* 


EQUIPMENT CHECKED* 


81214090 


* 


READ AMPLIFIER 


81214100 


* 


HEAD ADDRESS REGISTER 


81214110 


* 


HAR DECODE 


81214120 


* 


HEAD SELECTION 


81214130 


* 


HEAD ADJUSTMENT 


81214140 


* 


READ HEAD 


81214150 


* 


DATA TRANSFER 


81214160 


* 


SOME BUS AND TAG LINES 


81214170 


* 


2841 SERIALIZER-OESERIALIZER CLOCK VFO 


81214180 


* 




81214190 


* 




81214200 


****************** ********************************* 


81214210 


* 


* 


81214220 


***************************** ********************** 


81214230 


* 




81214240 


*************** ************************************ 


81214250 


* 


* 


81214260 


********************* ****************************** 


81214270 


T1601 


EQU * TEST ENTRY POINT 


81214280 




MDX L TRID.l BUMP RTN ID 


81214290 
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PROG ID 

PAGE 



08 1 2-A 
11 



OCAE 1 4C18 0CB3 

OCBO 9297 

0CB1 1 4C20 0E54 

0CB3 C283 

0CB4 100 A 

0CB5 1 4C10 0CB9 

0CB7 4203 

0CB8 1 00 OE 



0CB9 
OCBA 
OCBC 
OCBE 
OCBF 
OCCO 
0CC1 
0CC3 
0CC5 
0CC7 

0CC9 

OCCA 

occc 

OCCD 
OCCE 
OCCF 
OCDO 
0CD2 
0CD4 
0CD5 



O 
1 
1 




1 

1 DCOO ODEC 
1 DCOO ODEE 
1 DCOO ODFO 



42E8 

6500 0CE1 
6D00 19B2 
C29F 
D2DD 
10AO 
DCOO ODEA 



63F6 

6500 177E 

C28D 

D249 

D24A 

D24B 

C400 ODEA 

D400 0DF4 

C2B9 

D2D6 



0CD6 42EE 
0CD7 1 OEOO 



0CD8 





4209 


0CD9 


1 


0CD6 


OCDA 





C249 


OCDB 





D100 


OCDC 





C24A 


OCDD 





D101 


OCDE 





C24B 


OCDF 





D102 


OCEO 





7103 



0CE1 C236 

0CE2 100E 

0CE3 1 4C28 0D1D 

0CE5 C24B 

0CE6 1808 

0CE7 O F2AF 

0CE8 1 4C18 0D3E 

OCEA O C24B 

OCEB 1008 

OCEC 1 4C20 0D3E 

OCEE C24B 

OCEF 1808 

OCFO 1 F400 0DF4 

0CF2 1 4C20 0D41 

0CF4 I C400 0DF4 

0CF6 42F4 

0CF7 18D0 

0CF8 1 D700 ODFF 



* 
T1602 



* 
T1603 



T1604 



BZ 

S 

BNZ 

LD 

SLA 

BNN 

BSI 

DC 

BSI 

LDX 

STX 

LD 

STO 

SLT 

STD 

STD 

STD 

STD 

LDX 

LDX 

LD 

STO 

STO 

STO 

LD 

STO 

LD 

STO 



T1606 BSI 
DC 

* 

BSI 
DC 

* 

LD 

STO 

LD 

STO 

LD 

STO 

MDX 



T160S 



* 
T16ER 



LD 

SLA 

BN 

LD 

SRA 
EOR 
BZ 

LD 
SLA 

BNZ 

LD 
SRA 
EOR 
BNZ 

LD 

BSI 

XCH 

STO 



T1602 BR IF TEST NUMBER ZERO 

2 Kl-TB DECREMENT BY ONE 

T1701 BR IF NOT THIS TEST 

2 .TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T1603 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 

TTL16 MESSAGE ADDRESS 



2 
2 



2 GETDV-TB 
LI T16ER 
LI WTADR 

K10-TB 

LPCNT-TB 

32 

T16H1 

T16T1 

T16T3 

T16T5 



GET CHANNEL FOR RTN 

SET TIMEOUT RETURN 

*** 

SETUP PASS COUNTER 

* 



* 
* 
* 
* 



HD NO. AND ER SW 
COUNTERS 



3 -10 

LI T32HA 
TERM-TB 
HA-TB 
HA+l-TB 
HA+2-TB 
T16H1 
T16HD+2 
H4000-TB 
SIOSW-TB 



2 
2 
2 

2 



2 
2 



2 SIO-TB 
T16C1 

2 TLPST-TB 
T1606 

2 HA-TB 

1 

2 HA+l-TB 

1 1 

2 HA+2-TB 
1 2 

1 3 

2 SCSXO+1-TB 
UNCHK 
T1608 

2 HA+2-TB 

8 
2 HOOFF-TB 

T1609 

2 HA+2-TB 
8 
T1609 

2 HA+2-TB 
8 
L T16HD+2 
T1610 

L T16HD+2 
2 TCVBE-TB 

L3 T16MP+10 



SET UP MAP TABL POINTER 
SET POINTER 

CLEAR HA ARG 

*** 

*** 

GET HEAD NUMBER 

PUT INTO SK ARGUMENT 

RETURN IF NOT CC 



EXEC CHNL PGRM 
READ HA CCW 



TEST LOOP SIO 
LOOP ADDRS 

GET HA READ 

SAVE IN TABLE 

*** 

*** 

*** 

*** 

BUMP POINTER 

TEST FOR UNIT CHECK 

*** 

BRANCH IF ON 

TEST IF 5 CHAR OF HA 

*** 

BRANCH IF NOT 

GET LAST TWO BYTES 

TEST FOR 6 CHARS XFERRED 

BRANCH IF YES 

GET HEAD NUMBER 
SAVE BITS 8-15 
TEST SAME HEAD 
NO 

GET HEAD NUMBER 
CONVERT TO PRNT CODE 
Q TO A 
STOR IN MAP 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 15SEP71 
431319A 431328 



81214300 

81214310 

81214320 

81214330 

81214340 

81214350 

81214360 

81214370 

81214380 

81214390 

81214400 

81214410 

81214420 

81214430 

81214440 

81214450 

81214460 

81214470 

812144 80 

81214490 

81214500 

81214510 

81214520 

81214530 

81214540 

81214550 

81214560 

81214570 

81214580 

81214590 

81214600 

81214610 

81214620 

81214630 

81214640 

81214650 

81214660 

81214670 

81214680 

81214690 

81214700 

81214710 

81214720 

81214730 

81214740 

81214750 

81214760 

81214770 

81214780 

81214790 

81214800 

81214810 

81214820 

81214830 

81214840 

81214850 

81214860 

81214870 

81214880 

81214890 

81214900 

81214910 

81214920 

81214930 

81 21 4940 

8121 4950 

81214960 

81214970 
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c 
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o 

G 
O 
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c 

G 
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C 

c 
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o 



o 

c 

c 

G 

o 
o 

c 
o 
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DATE 
EC NO. 



OCFA 1 7401 ODEA 

OCFC O 7301 

OCFD 70CE 

OCFE 1 C400 ODEB 

ODOO 1 4C20 0D58 



0D02 1 74FF 085C 

0D04 70BB 

ODOS C283 

0O06 100A 

0D07 1 4C28 ODAF 



0D09 42E5 

ODOA C2C1 

ODOB 1 4C18 0E54 

ODOO 420 F 

ODOE 0007 

0D15 0007 

0D1C FFFF 



0D1D 1 4400 086A 

0D1F CA1D 

0D20 108C 

0021 1 4C10 0D26 

0D23 O 4023 

0D24 1 ODED 

0D25 0001 



T1607 MDX L T16H1.1 
MDX 3 1 
MDX T1605 

* 

LD L T16ES 
BNZ T16TT 



MDX 
MDX 

LD 
SLA 

BN 



LPCNT.-l 
T1604 

TSWO-TB 

OPRRS 

T16PR 



BUMP HEAD COUNTER 
BUMP MAP POINTER 
RETURN 

TEST FOR ERROR 

BR IF ERROR OCCURED 



DECR PASS CNTR 



GET OPTION SWITCHES 
RESULTS TO BE PRINTED 
BR IF YES 



* 

* 

T16EN BSI 
LD 

BZ 
BSI 
PR NT 

PR NT 
DC 



TTL16 

.* 



GO TO NEXT ROUTINE IN SEQUENCE 



2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SWS 

T1701 GO TO NEXT RTN IN 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT l.RT 6- . 



SEQ 



• READ 
/FFFF 



HEAD MAP. 



0026 
0D27 
0D28 
0D2A 
0D2B 
0D2C 



0D2D O 

0D2E O 

0D2F 1 

0D31 

0D32 1 
0D33 

0D34 

0D35 

0D36 1 

0D38 

0D39 1 
0D3A 



CA1D 

1084 

4C10 0D2D 

401C 

00 EE 

0001 

CA1D 

1092 

4C10 0D34 

4015 

ODEF 

0001 

CA1D 

109A 

4C10 0D3B 

400E 

ODFO 

0001 



* 
* 
T1608 BSI 

T16NF LDD 
SLT 
BNN 
BSI 
DC 
PR NT 

* 

T16BC LDD 
SLT 
BNN 
BSI 
DC 
PRNT 



TB 



0D3B 400B 
0D3C 1 0DF1 
0D3D 0001 



0D3E O 4008 
0D3F i 0DF1 
0D40 0001 



* 
T16SD 



* 
T16US 



T16SE 



* 
* 
* 
T1609 



UNIT CHECK ON 



GETSN 

SNWDS- 

FNORC 

T16BC 

T16MB 

T16T2 

.NF. 



SNWDS-TB 

FBRST 

T16SD 

T16MB 

T16T3 

.BC. 

SNWDS-TB 

FSERD 

T16US 

T16MB 

T16T4 

• SO • 

SNWDS-TB 

FUNS I 

T16SE 

T16MB 

T16T5 

.US. 

T16MB 
T16T6 

• SE. 



LDD 

SLT 

BNN 

BSI 

DC 

PRNT 

LDD 

SLT 

BNN 

BSI 

DC 

PRNT 

BSI 

DC 

PRNT 



BSI 

DC 

PRNT 



GET SENSE INFO 

GET SENSE BYTES 
TEST NO REC FOUND 

GO BUILD MAP 



GET SENSE BYTE 
TEST BURST CHECK 



GO BUILD MAP 



GET SENSE BYTES 

TEST SERIALIZER/ 

* DESERIALIZER 

GO BUILD MAP 



GET SENSE BYTES 
TEST UNSAFE 

GO BUILD MAP 



GO BUILD MAP 



TRANSFER FAILURE 



T16MB 
T16T6 
• TX. 



GO BUILD MAP 



14N0V69 
431319 



30JAN70 1SSEP71 
431319A 431328 



i 



< <-. ( ( ( C ( ( ( ( ( i (!. ( ( 
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81214980 
81214990 
81215000 
81215010 
81215020 
81215030 
81215040 

81215050 

81215060 

81215070 

81215080 

81215090 

81215100 

81215110 

81215120 

81215130 

81215140 

81215150 

81215160 

81215170 

81215180 

81215190 

81215200 

81215210 

81215220 

81215230 

81215240 

81215250 

81215260 

81215270 

81215280 

81215290 

81215300 

81215310 

81215320 

81215330 

81215340 

81215350 

81215360 

81215370 

81215380 

81215390 

81215400 

81215410 

81215420 

81215430 

81215440 

81215450 

8121 5460 

81215470 

81215480 

81215490 

81215500 

81215510 

81215520 

81215530 

81215540 

81215550 

81215560 

8121S570 

81215580 

81215590 

8121S600 

81215610 

81215620 

81215630 

81215640 

81215650 
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DATE 
EC NO. 



14N0V69 
431319 
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15SEP71 
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* 






WRONG 


HEAD 


81215660 










* 










81215670 


0D41 





C24B 




T1610 


LD 


2 


HA+2-TB 


GET HA READ 


81215680 


0D42 





42F4 






BSI 


2 


TCVBE-TB 


CVT TO 1443 CODE 


81215690 


0D43 





D002 






STO 




T16WH 




81215700 


0D44 





4002 






BSI 




T16MB 


PRINT MAP 


81215710 


0D45 


1 


0DF1 






DC 




T16T6 




81215720 


0D46 





0000 




T16WH 

* 


DC 




*-* 




81215730 
8 121 5740 










* 


BUILD MAP ROUTINE 




81215750 










* 










81215760 


0D47 





0000 




T16MB 


DC 




*-* 


ENTRY 


81215770 


0D48 


1 


6C00 


ODEB 




STX 


L 


T16ES 


SET ERROR SW 


81215780 


0D4A 


1 


7401 


ODEC 




MDX 


L 


T16T1.1 


BUMP TOTAL COUNTER 


81215790 


0D4C 


1 


C480 


0047 




LD 


I 


T16MB 




81215800 


0D4E 





D001 






STO 




* + l 




81215810 


0D4F 





7401 


0000 




MDX 


L 


*-*»l 




81215820 


0D51 


1 


7401 


0D47 




MDX 


L 


T16MB.1 




81215830 


0D53 


1 


C480 


0D47 




LD 


I 


T16MB 




81215840 


0D55 


1 


D700 


ODFF 




STO 


L3 


T16MP+10 


STOR IN MAP 


81215850 


0D57 





70A2 




* 


MDX 




T1607 




81215860 
81215870 










* T16TT 


- 


ERROR OCCURED .DETERMINE SEVERITY 


81215880 










* 










81215890 


0D58 


1 


C400 


ODEC 


T16TT 


LD 


L 


T16T1 




81215900 


0D5A 





9297 






S 


2 


Kl-TB 


WAS THERE 1 ERROR 


81215910 


0D5B 


1 


4C20 


0D6B 


* 


BNZ 




T1615 


MORE THAN 1 ERROR 


81215920 
81215930 


0D5D 


1 


C400 


ODED 




LD 


L 


T 1 6T2 


WAS THERE 1 NRF ERROR 


81215940 


0D5F 


1 


4C18 


00 63 




BZ 




T1613 


NO 


8121 5950 


0D61 





4046 






BSI 




T16PM 


YES. GO PRINT MAP 


81215960 


0D62 





1610 




* 


DC 




/1610 




81215970 
81215980 


0D63 


1 


C400 


ODEE 


T1613 


LD 


L 


T16T3 


WAS THERE 1 BC ERROR 


81215990 


0D65 


1 


4C18 


0D69 




BZ 




T1614 


NO 


81216000 


0D67 





4040 






BSI 




T16PM 


YES. GO PRINT MAP 


8121 6010 


0D68 





1611 




* 


DC 




/1611 




81216020 
81216030 










* 


PROGRAM 


CANT DECODE FAILURE 


81216040 










* 










81216050 


0B69 





403E 




T1614 


BSI 




T16PM 


GO PRINT MAP 


81216060 


0D6A 





1609 




* 


<&t 




/1609 




8 121 60 70 
81216080 


0D6B 


1 


C400 


ODEC 


T1615 


LD 


L 


T16T1 


GET TOTAL ERRORS 


81216090 


0D6D 





929F 






S 


2 


K10-TB 


WERE THERE 10 ERRORS 


81216100 


0D6E 


1 


4C20 


0D95 




BNZ 




T1620 


NO 


81216110 


0D70 


1 


C400 


ODED 




LD 


L 


T16T2 


YES 


81216120 


0D72 





929F 






S 


2 


K10-TB 


* WERE THERE 10 NRF 


81216130 


0D73 


1 


4C20 


0D77 




BNZ 




T1616 


NO 


81216140 


0D75 





4032 






BSI 




T16PM 


YES .PRINT MAP 


81216150 


0D76 





1601 




* 


DC 




/1601 




81216160 
81216170 


0D77 


1 


C400 


ODEE 


T1616 


LD 


L 


T16T3 




81216180 


0D79 





929F 






s 


2 


Kl-O— TB 


WERE THERE 10 BURST CK 
NO 


81216190 
81216200 


0D7A 


1 


4C20 


0D7E 




BNZ 




T1617 


0D7C 





402B 






BSI 




T16PM 


YES. PRINT MAP 


81216210 


0D7D 





1602 




* 


DC 




/1602 




81216220 
81216230 


0D7E 


1 


C400 


ODEF 


T1617 


LD 


L 


T16T4 




81216240 


0D80 





929F 






S 


2 


K10-TB 


WERE THERE 10 S/D 


81216250 


0D81 


1 


4C20 


0D85 




BNZ 




T1618 


NO 


81216260 


0D83 





4024 






BSI 




T16PM 


YES. PRINT MAP 


81216270 


0D84 





1603 




* 


DC 


- 


/1603 




81216280 
81216290 


0D85 


1 


C400 


ODFO 


T1618 


U> 


L 


T16TS 




81216300 


0D87 





929F 






s 


2 


K10-TB 


WERE THERE 10 UNSAFE 


8121631® 


0D88 


1 


4C20 


od ec 




BNZ 




T1619 


NO 


81216320 


0D8A 





40 ID 






BSI 




T16PM 


YES. GO PRINT MAP 


8121 6330 
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3 





u 



D 



0D8B O 1604 



0D8C 
0D8E 
0090 
0D91 
0D93 
0D94 



C400 ODED 

8400 ODEE 

929F 

4C20 0069 

4014 

160S 



DC 

T1619 LD 

A 

S 

BNZ 

BSI 

DC 



L 
L 



/1604 

T16T2 

T16T3 

K10-TB 

T1614 

T16PM 

/1605 



GET TOTAL NRF AND 

* BURST CK ERRORS 

WERE THERE 10 

NO 

YES 

ERR NUMBER 



0D9S 1 C400 ODFO 

0D97 929E 

0D98 1 4C20 0D9C 

0D9A O 400O 

0D9B O 1607 

0D9C 1 C400 ODEC 

0D9E 1 4C20 0DA2 

ODAO O 4007 

0DA1 O 1608 

0DA2 1 C400 ODFO 

0DA4 O 9297 

ODAS 1 4C30 ODAO 

0DA7 O 70C1 



0DA8 O 0000 
0DA9 1 C480 0DA8 
ODAB O D002 

ODAC O 42E2 
ODAD O O140 
ODAE O 0000 



* 

* 

T1620 LD 



ERROR COUNT NOT 1 OR 10 



S 

BNZ 
BSI 
DC 



T1621 



PRINT ERROR AND HEAD MAP 



ODAF 
ODBO 
0DB1 
0DB3 
0DB5 
0DB6 
0DB7 



63F6 

6100 

C700 00 FF 

D500 0E3F 

7102 

7301 

70F9 



0DB8 O 4203 
0DB9 1 0E14 



ODBA O C030 
ODBB 1 4C18 0D09 



ODBD 1 6500 177E 

ODBF O 63F6 

ODCO O 1010 

0DC1 O O030 

0DC2 O C02F 

0DC3 O 42F4 

0DC4 1SD0 

0DC5 1 F700 ODFF 

0DC7 1 4C20 ODD 3 

0DC9 1 7401 0DF2 

ODCB O 7103 



LD 
BNZ 

T1622 BSI 
DC 

* 

T1623 LD 
S 

BP 
MDX 

* 

* 

* 

T16PM DC 
LD 
STO 

* 

BSI 
DC 

T1624 DC 

* 

T16PR LDX 
LDX 

T1625 LD 
STO 
MDX 
MDX 
MDX 

BSI 
DC 

LD 
BZ 

* 
* 

* * 

T16SM LDX 
LDX 

SLA 
STO 

* 

T1626 LD 
BSI 
XCH 
EOR 
BNZ 

* 

T1629 MDX 
MDX 



T16T5 
K9-TB 
T1621 
T16PM 
/1607 

T16T1 
T1623 
T16PM 
• 1608 

T16T5 
Kl-TB 
T1622 
T1614 



WERE THERE 9 UNSAFES 

NO 

YES. GO PRINT MAP 



WERE THERE ANY 
* UNIT CK ERRORS 
NO 



WERE THERE 2 OR 
* MORE UNSAFES 
YES 



T16PM 
T1624 

EROUT-TB 
• 0140 

*-* 



-10 



L3 T16MP+10 
LI TRHAR+7 

1 2 
3 1 

T1625 

2 TLGMS-TB 
THONG 

T16ES 
T16EN 



GET ERROR NUMBER 
STORE FOR CALL 

GO PRINT ERROR 
* MESSAGE 



SET LOOP COUNT 

GET MAP CHARACTERS 
STOR IN PRINT ARG 



PRINT HEADING 



TEST ERROR SWITCH 
BRANCH IF OFF 



SCAN MAP, PR I NT CSW SENSE AND DATA FOR 

* EACH FAILING HEAD » IF 10 HEADS 

* FAILED PRINT HEAD 00 DATA ONLY 



LI 
3 



T32HA 
-10 
16 • 
T16HD 

T16HD 

TCVBE-TB 



L3 T16MP+10 
T1628 



T16K> .1 
3 



SET UP HA POINTER 

SET COUNTER 

CLEAR A REG 

SAVE Hi NUMBER TO ZERO 

GET HEAD NUMBER 
CONVERT TO PRNT CODE 
O TO A 
COMPARE WITH MAP 

FOUND A FAILING HEAD 

BUMP HEAD 
BUMP TABLE 





DATE 


14N0V69 


30JAN70 


15SEP71 




EC NO. 


431319 


431319A 


431328 



PART NO. 2279467 
PAGE 13 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



( < < ( < ( 



81216340 

81216350 

81216360 

81216370 

81216380 

81216390 

81216400 

81216410 

81216420 

81216430 

81216440 

81216450 

81216460 

81216470 

81216480 

81216490 

81216500 

81216510 

81216520 

81216530 

81216540 

81216550 

81216560 

81216570 

81216580 

81216590 

81216600 

81216610 

81216620 

81216630 

81216640 

81216650 

81216660 

81216670 

81216680 

81216690 

81216700 

81216710 

81216720 

81216730 

81216740 

81216750 

81216760 

81216770 

81216780 

81216790 

81216800 

81216810 

81216820 

81216830 

81216840 

81216850 

81216860 

81216870 

81216880 

81216890 

81216900 

81216910 

81216920 

81216930 

81216940 

81216950 

81216960 

81216970 

81216980 

81216990 

81217000 

812170 10 



PROG ID 
PAGE 



2841 DIAGNOSTIC 



PHASE A 
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0812-A 
13 



DATE 
EC NO. 



ODCC 7301 
ODCD O 70F4 



ODCE O 42FA 

ODCF O 4206 

ODDO 1 OCCO 

0DD1 1 4CO0 OD09 

0DD3 C01E 

0DD4 42F4 

ODDS O 18D0 

0DD6 D031 

0DD7 O C100 

0DD8 42F4 

0DD9 0834 

ODDA C101 

ODDB O 42F4 

ODDC D833 

ODDD O C102 

ODDE O 42F4 

ODDF 0032 



ODEO 4203 
0DE1 1 0E06 

0DE2 O 42E2 
0DE3 O 0013 
0DE4 O 1699 



* 
T1627 



MDX 
MDX 



BSI 
BSI 
DC 



T1628 



* 



ODES 





C006 


0DE6 





929F 


0DE7 


1 


4C20 ODC9 


0DE9 





70E4 


ODEA 




0000 


ODEA 





0000 


ODEB 





0000 


ODEC 





0000 


ODED 





0000 


ODEE 





0000 


ODEF 





0000 


ODFO 





0000 


0DF1 





0000 


0DF2 





0000 


0DF3 





O0C6 


0DF4 





0000 


0DF5 




OOOA 


ODFF 





0000 



OEOO 0006 
OEOl O 4007 
0E02 1 0DF2 



0E03 O 0005 
0E04 001 A 
0E05 1 08C8 



0E06 
0E0& 



0000 
0013 



T16H1 
T16ES 
T16T1 
T16T2 
T16T3 
T16T4 
T16T5 
T16T6 
T16HD 



T16MP 
T16PS 

* 
T16C1 



* 
* 



* 



THDRD 



3 1 

T1626 



2 THALT-TB 

2 TLPER-TB 

T1604 



BSC L T16EN 



LD 
BSI 
XCH 
STO 

LD 

BSI 

STD 

LD 

BSI 

STD 

LD 

BSI 

STO 



BSI 
DC 

BSI 

DC 

DC 

LD 

BNZ 
MDX 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

BSS 

DC 



DC 
DC 
DC 



DC 
DC 

DC 



BSS 
PRNT 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



T16HD 
2 TCVBE-TB 

ThORD+2 

1 

2 TCVBE-TB 
THDRD + 8 

1 1 

2 TCVBE-TB 
THDRD + 10 

1 2 

2 TCVBE-TB 
THDRD + 12 



2 TLGMS-TB 
THDRD 

2 EROUT-TB 
/0013 
/1699 

T16T1 

2 K10-TB 

T1629 

TX627 

z O 



o 



o 
o 
o 



/oooo 

/00C6 

/oooo 

10 





BUMP MAP POINTER 
LOOP 



WAIT FOR OPERATOR 
TEST LOOP ERROR 
LOOP ADDRS 

END ROUTINE 

GET HEAD NUMBER 
CONVERT TO PRNT CODE 
Q TO A 
STORE IN MESSAGE 

GET HOME ADDRESS READ 
COMVERT TO PRNT CODE 
SET IN MEASAGE 

GET NEXT TWO BYTES 
CONVERT TO PRNT CODE 
SET IN MSG 

GET LAST BYTES 
CONVERT TO PRNT CODE 
SET IN MSG 



PRINT CSW AND SENSE 



DID ALL HEADS FAIL 



NO 

YES. WAIT 



HEAD COUNTER 

ERROR SWITCH 

TOTAL 

NRF NF 

BURST CK BC 

SID SD 

UNSAFE US 

MISC SE.TX.XX 

CYL 198 

HEAD MAP TABLE 
PASS COUNT 



6 BYTE COUNT 

/40*256+SEEKC FLAGS AND OP CODE 
T16KD ADDRESS 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
HA ADDRESS 



K> XX HA READ XXXXXXXXXX. 
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81217020 
81217030 
81217040 
81217050 
81217060 
81217070 
81217080 
81217090 
81217100 
81217110 
81217120 
81217130 
81217140 
81217150 
81217160 
81217170 
81217180 
81217190 
81217200 
81217210 
81217220 
81217230 
81217240 
81217250 
81217260 
81217270 
81217280 
81217290 
81217300 
81217310 
81217320 
81217330 
81217340 
81217350 
81217360 
81217370 
81217380 
81217390 
81217400 
81217410 
81217420 
81217430 
81217440 
81217450 
81217460 
81217470 
81217480 
81217490 
81217500 
81217510 
81217520 
81217530 
81217540 
81217550 
81217560 
81217570 
81217580 
81217590 
81217600 
81217610 
81217620 
81217630 
81217640 
81217650 
31217660 
812S7670 
81217680 
81217690 



PROG ID 
PAGE 



0812-A 
13A 



I 

c 
c 
o 
o 
c 
c 
c 

G 

c 
c 
e 
c 
c 
c 
o 
o 
o 



o 
c 

c 

o 
o 
o 
o 
o 
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0E13 FFFF 



0E14 0008 

0E1C OOFF 

0E1D 0016 

0E2D 0010 

0E37 OOFF 

0E38 0016 

0E48 0010 

0E52 FFOO 

0E53 FFFF 



DC 



/FFFF 



. READ HEAD MAP-. 




/OOFF 




. HEAD NUMBER 00 


01 


. 05 06 07 08 


09 


/OOFF 




. RD HA RESULT XX 


XX 


XX XX XX XX 


XX 


/FFOO 




/FFFF 





02 03 04. 



XX XX XX. 



* 
* 

THDNG PRNT 

DC 
* 
THNUM PRNT 

PRNT 

DC 
* 
TRHAR PRNT 

PRNT 

DC 

DC 

* 

************************ ************************** 

* 

* ROUTINE 7 — RECALIBRATE 

* 
************************************************** 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

******************************************* ******** 

* * 

******************* ******** ************************ 
****************************************** ********* 

* * 
****************************** ********************* 



THIS ROUTINE WILL EXECUTE THE RECALIBRATE 
COMMAND AND CHECK FOR THE FOLLOWING. 

1. ACCESS IS OPERATIVE WHILE CARRIAGE IS IN 
MOTION. 

2. THE DETENT IS BEING PULLED (LOSS OF 
READY), 

3. SEEK COMPLETE. 

AFTER RECEIVING DEVICE END, THE ROUTINE WILL 
PERFORM A READ HOME ADDRESS TO CHECK THE 
CARRIAGE POSITION AFTER RECALIBRATE. 

CIRCUITS CHECKED. 

FILE ADDRESS BUS 6 
CONTROL TAG 
SEEK START 
RETURN TO ZERO 
ONLINE 
SEEK READY 



0E54 

0E54 1 7401 0815 
0E56 1 4C18 0E5B 
0E58 9297 
0E59_ L^4X20_aED A 

0E5B C283 
0E5C 100A 
0E5D 1 4C10 0E61 
0E5F 4203 
OE60 1 0E9C 



0E61 
0E62 
0E64 
0E66 
0E68 
0E6A 
0E6B 



42E8 

65 00 OECA 

60 00 1C3D 

6500 OEAA 

6D00 19B2 

C29F 

D2DD 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



T1701 EOU 
MDX 
BZ 
S 
BNZ 

* 

T1702 LD 
SLA 
BNN 
BSI 
DC 

* 

T1703 BSI 
LDX 
STX 
LDX 
STX 
LD 
STO 



15SEP71 

431328 



* TEST ENTRY POINT 

. TRIO, I BUMP RTN ID 

T1702 BR IF TEST NUMBER ZERO 

2 Kl-TB DECREMENT BY ONE 

T1801 BR IF NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 
T1703 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 



TTL17 

2 GETDV-TB 

LI T1713 

LI ERADR 

LI T1707 

LI WTADR 

2 K10-TB 

2 LPCNT-TB 



MESSAGE ADDRESS 

GET CHANNEL FOR RTN 

SET RETURN ADDRESS 

** 

SET TIMEOUT RETURN ADDRESS 

SET LOOP COUNT 
*** 



81217700 

81217710 

81217720 

81217730 

81217740 

81217750 

81217760 

81217770 

81217780 

81217790 

81217800 

81217810 

81217820 

81217830 

81217840 

81217850 

81217860 

81217870 

81217880 

81217890 

81217900 

81217910 

81217920 

81217930 

81217940 

81217950 

81217960 

81217970 

81217980 

81217990 

8 1218000 

81218010 

81218020 

81218030 

81218040 

81218050 

81218060 

81218070 

81218080 

81218090 

81218100 

81218110 

81218120 

81218130 

81218140 

81218150 

81218160 

81218170 

81218180 

81218190 

81218200 

81218210 

81218220 

81218230 

81218240 

81218250 

81218260 

81218270 

81218280 

81218290 

81218300 

81218310 

81218320 

81218330 

81218340 

81218350 

81218360 

81218370 
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0E6C C2BC 

0E6D D2D6 

0E6E O 42EE 

0E6F 1 0891 

0E70 4200 

0E71 C23E 

0E72 100E 

0E73 1 4C28 0EB5 



0E75 C23E 

0E76 O 100B 

0E77 1 4C10 0EB8 

0E79 1 4400 19A0 
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0812-A 
14 



DATE 
EC NO. 



0E7B 
0E7C O 
0E7D 1 



C236 
100E 
4C28 0EB1 



0E7F C28D 

0E80 D249 

0E81 D24A 

0E82 D24B 

0E83 42EE 

OE84 1 0E03 



0E85 C236 
0E86 100E 
0E87 1 4C28 OEBB 



0E89 
0E8A 
0E8C 
0E8D 
0E8F 
0E90 



C249 

1 4C20 OEBE 

C24A 

1 4C20 OEBE 

C24B 

1 4C20 OEBE 



0E92 1 74FF 085C 

0E94 70D7 

0E95 4209 

0E96 1 0E6C 



0E97 42E5 

0E98 C2C1 

0E99 1 4C18 OEDA 

0E9B 42DF 

0E9C 0007 

0EA3 0006 

0EA9 FFFF 



* 






81218380 


T1704 


LD 


2 H8000-TB SET SW TO DO SIO AND RE- 


81218390 




STO 


2 SIOSW-TB TURN AFTER CMD ACCEPTED 


81218400 


* 






81218410 




BSI 


2 SIO-TB RECALIBRATE 2311 


81218420 




DC 


RECAL CCW ADDRESS 


81218430 


* 


SIO WILL RETURN AFTER CMD HAS BEEN ACCEPTED 


81218440 




BSI 


2 TIO-TB GO TEST I/O 


81218450 


* 






81218460 




LD 


2 SCSX8+1-TB GET UNIT STATUS 


81218470 




SLA 


UNCHK TEST FOR UNIT CHECK 


81218480 




BN 


T1709 


81218490 


* 






81218500 


* 


TEST 


THAT ACCESS IS BUSY MOVING 


81218510 


* 






81218520 




LD 


2 SCSX8+1-TB GET UNIT STATUS 


81218530 




SLA 


UNBZY 


81218540 




BNN 


T1710 


81218550 


* 






81218560 




BSI 


L WAITT WAIT FOR DE OR UNIT CHECK 


81218570 


* 






81218580 




LD 


2 SCSXO+1-TB GET UNIT STATUS 


81218590 




SLA 


UNCHK 


81218600 




BN 


T1708 BR IF SET 


81218610 


* 






81218620 


* 


READ 


HOME ADDRESS AND CK CARRIAGE POSITION 


81218630 


* 






81218640 




LD 


2 TERM-TB 


81218650 




STO 


2 HA-TB 


81218660 




STO 


2 HA+l-TB 


81218670 




STO 


2 HA+2-TB 


81218680 


* 






81218690 




BSI 


2 SIQ-TB 


81218700 




DC 


T16C1+3 CCW ADDR 


81218710 


* 






81218720 


* 


CHECK 


FOR ERROR 


81218730 


* 






81218740 




LD 


2 SCSXO+1-TB GET UNIT STATUS 


81218750 




SLA 


UNCHK 


81218760 




BN 


T1711 


81218770 


* 






81218780 


* 


CHECK 


FOR CORRECT HOME ADDRESS 


81218790 


* 






81218800 




LD 


2 HA-TB 


81218810 




BNZ 


T1712 


81218820 




LD 


2 HA+l-TB 


81218830 




BNZ 


T1712 


81218840 




LD 


2 HA+2-TB 


81218850 




BNZ 


T1712 


81218860 


* 






81218870 




MDX 


L LPCNT.-l DECR LOOP COUNT 


81218880 




MDX 


T1704 


81218890 


* 






81218900 


T1706 


BSI 


2 TLPST-TB TEST LOOP SIO 


81218910 


* 


DC 


T1704 LOOP ADDRS 


81218920 
81218930 


* 






81218940 


* 


GO TO 


NEXT ROUTINE IN SEQUENCE 


81218950 


* 






81218960 


T17EN 


BSI 


2 FREDV-TB FREE CHANNEL 


81218970 




LD 


2 TRTNN-TB GET RTN SWS 


81218980 




BZ 


T1801 GO TO NEXT RTN IN SEO 


81218990 




BSI 


2 CNTRL-TB GO TO CONTROL RTN 


81219000 


TTL17 


PRNT 


. SECT 1 ,RT 7- • 


81219010 


sr. 




, 


81219020 




PRNT 


•RECALIBRATE. 


81219030 


* 


DC 


/FFFF 


81219040 
81219050 



14N0V69 
431319 



30JAN70 

431319A 



15SEP71 
431328 
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PAGE 



0812-A 
14A 
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c 
c 
o 
o 
o 
c 
o 
o 
c 
c 



c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
c 
c 
o 
o 
o 
o 
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OEAA C235 


T1707 LD 


2 SCSXO-TB 


OEAB 100E 


SLA 


UNCHK 


OEAC 1 4C28 0EB1 


BN 


T1708 


OEAE 42E2 


BSI 


2 EROUT-TB 


OEAF 0306 


DC 


• 03 06 


OEBO 1703 


DC 

* 

T1708 BSI 


/1703 


0EB1 42EB 


2 GETSN-TB 


0EB2 42E2 


BSI 


2 EROUT-TB 


0EB3 0307 


DC 


/0307 


0EB4 1704 


DC 
* 
T1709 BSI 


/I 704 


0EB5 42E2 


2 EROUT-TB 


0EB6 2327 


DC 


• 2327 


0EB7 1701 


DC 
* 
T1710 BSI 


• 1701 


0EB8 42E2 


2 EROUT-TB 


0EB9 2306 


DC 


/2306 


OEBA 1702 


DC 
* 
T1711 BSI 


/1702 


OEBB 42E2 


2 EROUT-TB 


0E8C 0327 


DC 


/0327 


OEBO 1707 


DC 
T1712 U> 


/1707 


OEBE C249 


2 HA-T8 


OEBF 42F4 


BSI 


2 TCVBE-TB 


OECO D813 


STD 


T12ER+6 


0EC1 C24A 


LD 


2 HA+l-TB 


0EC2 42F4 


BSI 


2 TCVBE-TB 


0EC3 D812 


STD 


T12ER+8 


0EC4 C24B 


LD 


2 HA+2-TB 


0EC5 42F4 


BSI 


2 TCVBE-TB 


0EC6 D011 


STO 

* 

BSI 


T12ER+10 


0EC7 42E2 


2 EROUT-TB 


0EC8 0308 


DC 


/0308 


0EC9 1 OECE 


DC 

* 

T1713 BSI 


T12ER 


OECA 4206 


2 TLPER-TB 


OECB 1 0E6C 


DC 


T1704 


OECC 70C8 


MDX 


T1706 



GET CHAN STATUS 



OECE 0000 
OECE 0006 
0ED4 OOOS 
0ED9 O FFFF 



OEDA 42DF 



GET SENSE .INFO 



TAGS AND OPTIONS 



TAGS AND OPTIONS 



CONVERT TO PRNT CODE 



OEDB 0002 

OEDC 0005 

OEDD C2C1 

OEDE 1 4C18 0EE5 

OEEO 90FB 

0EE1 1 4C30 0A4E 

0EE3 80F8 

0EE4 7000 



TEST LOOP ERROR 
LOOP AODRS 

ELSE GO HERE 

* 

BSS E O 
T12ER PRNT . 1706 HA RD . 
PRNT .XXXXXXXXXX. 
DC /FFFF 

**********************************************,^3. ([ 3 

* * 
********************** ***************************** 
*' 

* SECTION END 
* 

T1801 BSI 2 CNTRL-TB GO TO CONTROL RTN 

*************************** ************ ***** * ****** 

* * 

****************** ********************************* 
* 

* 
* 

T20PR DC 
DC 

* 

T20NT LD 
BZ 

S 

BP 
A 
MDX 
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SECTION PREFACE 



• 0002 

5 



SECTION NUMBER 



2 TRTNN-TB SW FNC 1 BITS 12-15 

T2101 BR IF RUN ALL RTNS 

T2 0PR+1 TEST FOR VALID 

, TCNER BR IF INVALID RTN NUMBER 

T20PR+1 RESTORE RTN NUMBER 

T2101 GO TO FIRST RTN 



DATE 
EC NO. 



14N0V69 
4313 19 



30JAN70 
431319A 



15SEP71 
431328 



81219060 

81219070 

81219080 

81219090 

81219100 

81219110 

81219120 

81219130 

81219140 

81219150 

81219160 

81219170 

81219180 

81219190 

81219200 

81219210 

81219220 

81219230 

81219240 

81219250 

81219260 

81219270 

81219280 

81219290 

81219300 

81219310 

81219320 

81219330 

81219340 

81219350 

81219360 

81219370 

81219380 

81219390 

81219400 

81219410 

81219420 

81219430 

81219440 

81219450 

81219460 

81219470 

81219480 

81219490 

81219500 

81219510 

81219520 

81219530 

81219540 

61219550 

81219560 

81219570 

81219580 

81219590 

81219600 

81219610 

81219620 

81219630 

81219640 

81219650 

81219660 

81219670 

61219680 

81219690 

81219700 

81219710 

81219720 

81219730 
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0812-A 
15 



0EE5 

0EE5 1 7401 0815 

0EE7 1 4C18 OEEC 

0EE9 O 9297 

OEEA 1 4C20 1172 

OEEC C283 

OEED 100A 

OEEE 1 4C10 0EF2 

OEFO 4203 

0EF1 1 100D 

0EF2 42E8 
0EF3 O C298 
0EF4 O D2DD 



0EF5 1 6500 0F2A 

0EF7 1 6D00 1C3D 

0EF9 1 6500 1132 

OEFB 1 60 00 0F91 

OEFD 1 6500 10D1 

OEFF O 6911 

OFOO 6108 



*************************************************** 

* * 

*************************************************** 

* 

* 

* 

*************************************************** 

* 

* ROUTINE 1 DIFFERENCE COUNTER AND CAR 

* 

*************************************************** 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 

TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 



GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
2 TLGMS-TB GO TO PRINT ROUTINE 
TTL21 MESSAGE AODRESS 



THIS ROUTINE WILL PERFORM SEVERAL COMMAND 
CHAINS OF THE TYPE. 

1. RECALIBRATE. 

2. CONTROL CYLINDER SEEK. 

3. READ HOME ADDRESS. 

BY USING DIFFERENT COMBINATIONS OF CYLINDERS, 
MALFUNCTIONS IN THE DIFFERENCE COUNTER. 
CYLINDER ADDRESS REGISTER. INITIAL SEEK LATCH 
AND COUNTER DECODE LOGIC CAN BE ANALYZED FOR 
THE CAUSE OF THE FAILURE. 

CIRCUITS CHECKED. 

DIFFERENCE COUNTER 
CAR 

BUS LINES 
LINE DRIVERS 

DIFFERENCE COUNTER DECODE 
INITIAL SEEK LATCH 
DETENT 
CYLINDER TRANSDUCER 



T2101 


EOU 




* 




MDX 


L 


TRID.l 




BZ 




T2102 




S 


2 


Kl-TB 




BNZ 




T2201 


* 








T2102 


LD 


2 


TSWO-TB 




SLA 




OTTLE 




BNN 




T2103 



2 GETDV-TB 
2 K2-TB 

2 LPCNT-TB 



GET CHANNEL FOR RTN 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



BSI 

DC 
* 

T2103 BSI 
T2104 LD 

STO 
* 

* PART A CHECK FOR DIFFERENCE CNTR BITS ON/OFF 

* 
T210S LDX LI T2108 

STX LI ERADR 

LDX LI T21E3+6 

STX LI T2121+1 

LDX Li T21LS SET POINT TO ADDRESS LIST 

STX I T2106+1 

LDX 18. 



15SEP71 
431328 
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81219740 

81219750 

81219760 

81219770 

81219780 

81219790 

81219800 

81219810 

81219820 

81219830 

81219840 

81219850 

81219860 

81219870 

81219880 

81219890 

81219900 

81219910 

81219920 

81219930 

81219940 

81219950 

81219960 

81219970 

81219980 

81219990 

81220000 

81220010 

81220020 

81220030 

81220040 

81220050 

81220060 

81220070 

81220080 

81220090 

81220100 

81220110 

81220120 

81220130 

81220140 

81220150 

81220160 

81220170 

81220180 

81220190 

81220200 

81220210 

81220220 

81220230 

81220240 

81220250 

81220260 

81220270 

81220280 

81220290 

81220300 

81220310 

81220320 

81220330 

81220340 

81220350 

81220360 

81220370 

81220380 

81220390 

81220400 

81220410 
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)i Q 

c 

c 
c 

o 

o 
c 

c 



c 

c 

c 

G 

o 
o 
o 

c 

c 
c 
c 



<j 
r\ 
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OATE 
EC NO. 



0F01 


1 


6000 


HOE 




STX 


LI 


T21CT 


0F03 





6109 




* 


LDX 


1 


9 


0F04 





1010 






SLA 




16 


OFOS 


1 


DSOO 


1 145 




STO 


LI 


T21C0-1 


0F07 





71FF 






MDX 


1 


-1 


0F08 





70FC 




* 


MDX 




*-4 


OF 09 





6110 




LDX 


1 


16 


OFOA 


1 


CCOO 


1144 




LDD 


L 


T210K 


OFOC 


1 


DDOO 


1130 




STD 


LI 


T21E3+6-2 


OFOE 





71FE 






MDX 


1 


-2 


OF OF 





70FC 




* 
T2106 


MDX 




*-4 


OF 10 





C40 


0000 


LD 


L 


*-* 


OF 12 


1 


D400 


10DA 




STO 


L 


T21A1+1 


0F14 





C28D 






LD 


2 


TERM-TB 


0F15 





D249 






STO 


2 


HA-TB 


0F16 





D24A 






STO 


2 


HA+l-TB 


0F17 





D248 




* 


STO 


2 


HA+2-TB 


0F18 





42EE 




BSI 


2 


SIO-TB 


0F19 


1 


1151 






DC 




T21C1 



SET LOOP COUNT 

SET IN TBL 
DECREMENT LOOP COUNT 



0F1A 4209 

0F1B 1 0F10 

0F1C C236 

0F1D O 100E 

OF IE 1 4C28 0F38 



0F20 O C24A 
0F21 1808 
0F22 1 4C18 0F60 

0F24 CA49 

0F2S O 1088 

0F26 I F400 10DA 

0F28 1 4C20 0F6B 

0F2A 1 7401 0F11 
0F2C O 1000 
0F2D 1 7402 0F91 
0F2F O 1000 
0F30 1 74FF 110E 
0F32 O 70DD 

0F33 1 C400 1146 
0F35 1 4C20 1030 
0F37 7067 

0F38 1 4400 086A 

0F3A CA1D 
0F3B O 109F 
0F3C 1 4C28 0F5A 

0F3E O CA1D 

0F3F O 1084 

0F40 1 4C28 0F49 

0F42 1081 

0F43 1 4C28 0F49 

0F45 O CA1D 
0F46 O 108C 
0F47 1 4C10 0F56 



* 
T2107 



T2108 



BSI 2 TLRST-TB TEST LOOP SIO 

DC T2106 LOOP ADDRS 

TEST FOR POSITIVE STOP 
LD 2 SCSXO+l-TB 

SLA UNCHK 

BN T2109 

CHECK FOR DIFF CNTR BITS TURNING ON 

LD 2 HA+l-TB 

SRA - 8 

B2 T2115 

CHECK FOR CORRECT HOME ADDRESS 

LDD 2 HA-TB 

SLT 8 

EOR L T21A1+1 

BN2 T2117 

INCREMENT POINTER AND CHECK IF FINISHED 

MDX L T2106+1.1 



NOP 
MDX 
NOP 
MDX 
MDX 



L T2121+1.2 



* 
T2109 

* 



T21CT.-1 
T2106 

CHECK FOR ANY D IFFERENCE CNTR ERRS 

LD L T21C0 

BNZ T2138 

MDX T21B 

GET HERE IF UNIT CHECK ON COMMAND CHAIN 

BSI L GETSN 

TEST FOR POSITIVE STOP 

LDD 2 SNWDS-TB 

SLT FSKIN 



BN 



T2114 



CHECK IF READ ERROR ON READ HA 

LDD 2 SNWDS-TB 

SLT FBRST 

BN T2110 

SLT FOVRN-FBRST 

BN T2110 

CHECK FOR NO RECORD FOUM5 

LDD 2 SNWDS-TB 

SLT FNORC 

BNN T2113 

CHECK IF SEEKING TO CYL 2 OF 4 



14NOV69 
431319 



30JAN70 
431319A 



15SEP71 
431328 
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81220420 

81220430 

81220440 

81220450 

81220460 

81220470 

81220480 

81220490 

81220500 

81220510 

81220520 

81220530 

81220540 

81220550 

81220560 

81220570 

81220580 

81220590 

81220600 

81220610 

81220620 

81220630 

81220640 

81220650 

81220660 

81220670 

81220680 

81220690 

81220700 

81220710 

81220720 

81220730 

81220740 

81220750 

81220760 

81220770 

81220780 

81220790 

81220800 

81220810 

81220820 

81220830 

81220840 

81220850 

81220860 

81220870 

81220880 

81220890 

81220900 

81220910 

81220920 

81220930 

81220940 

81220950 

81220960 

81220970 

81220980 

81220990 

81221000 

81221010 

81221020 

81221030 

81221040' 

81221050 

81221060 

81221070 

81221080 

81221090 
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08 1 2-A 
16 



DATE 
EC NO. 



0F49 1 C400 10DA 

0F4B 9298 

0F4C 1 4C18 0F51 

0F4E 929A 

0F4F 1 4C20 0F56 

0F51 1 C400 10DA 

0F53 1008 

0F54 D24A 

0F55 70CA 



0F56 4033 
0F57 0002 

0F59 0007 

0F5A 1 7401 114E 

0F5C 402D 

0F5D 0002 

0F5F 0001 

0F60 1 7400 114E 

0F62 7004 

0F63 4026 

0F64 0002 

0F66 O 0002 

0F67 4022 
0F68 0002 

0F6A 0001 



T2110 



* 
T2111 



* 
* 
T2113 



LD L T21A1+1 

S 2 K2-TB 

BZ T2111 

S 2 K4-TB 

BNZ T2113 

COME HERE IF RD HA ERR ON CYL 2 OR 4 

LD L T21A1+1 

SLA 8 

STO 2 HA+l-TB 

MDX T2107 

GET HERE IF AN ERROR NOT EXPECTED OCCURRED 



T2114 



BSI 

PRNT 

DC 

MDX 
BSI 
PRNT 
DC 



T2115 MDX 
MDX 
BSI 
PRNT 
DC 

T2116 BSI 
PRNT 



DC 



T21SS 
. ERR. 
•07 

T21MK.1 
T21SS 

• DON. 
1 

T21MK.0 

T2116 

T21SS 

. DOF. 

2 

T21SS 

• CON. 
1 



SET MARK 



0F6B 
0F6C 
0F6D 
0F6F 
OF 70 
0F72 
OF 73 
OF 75 



CA49 
1088 

9400 10DA 
8297 

4C20 0F76 
4017 
0002 
0006 



* 
* 
* 

T2117 



GET HERE IF ACCESS FAILED TO DETENT 
AT CORRECT CYLINDER 



0F76 O 9298 

0F77 1 4C20 0F7D 

0F79 4010 
0F7A 0002 

0F7C 0005 



0F7D 





CA49 


0F7E 





1088 


0F7F 





42F7 


0F80 





42F4 


0F81 





1008 


0F82 





1808 


0F83 





D003 


OF84 





1800 


0F85 





D002 


0F86 





4003 


0F87 




0002 


0F89 





0007 



* 

T2118 



* 
T2119 



LDD 
SLT 
S 

A 

BNZ 

BSI 

PRNT 

DC 

S 

BNZ 

BSI 

PRNT 

DC 

LDD 
SLT 

BSI 
BSI 
SLA 
SRA 
STO 
XCH 
STO 

BSI 

PRNT 

DC 

COME 



HA-TB 

8 

T21A1+1 

Kl-TB 

T2118 

T21SS 

. -1 . 

6 

K2-TB 
T2119 
T21SS 
. +1 . 
S 

HA-TB 
8 

TCVHD-TB 

TCVBE-TB 

8 

8 

T2120 

T2120+1 

T21SS 
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SAVE CYLINDER NUMBER 

CONVERT TO DEC 

CONVERT TO 1443 

CLEAR HI ORDER BYTE TO BLK 

* 



GET SECOND 
SAVE 

PUT IN MAP 



WORD 



14NOV69 
431319 



30JAN70 
431319A 



T2120 

* 
* 
* 



1SSEP71 
431328 



HERE TO-PUT MAP CHARACTER CODE IN MAP 
-ADD -I- TO TOTAL ERROR COUNT 

-ADD -1- TO ERROR TYPE CODE 



81221100 

81221110 

81221120 

81221130 

81221140 

81221150 

81221160 

81221170 

81221180 

81221190 

81221200 

81221210 

81221220 

81221230 

81221240 

81221250 

81221260 

81221270 

81221280 

81221290 

81221300 

81221310 

81221320 

81221330 

81221340 

81221350 

81221360 

81221370 

81221380 

81221390 

81221400 

81221410 

81221420 

81221430 

81221440 

81221450 

81221460 

81221470 

81221480 

81221490 

81221500 

81221510 

81221520 

81221530 

81221540 

81221550 

81221560 

81221570 

81221580 

81221590 

81221600 

81221610 

81221620 

81221630 

81221640 

81221650 

81221660 

81221670 

81221680 

81221690 

81221700 

81221710 

81221720 

81221730 

81221740 

81221750 

81221760 

81221770 
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( 



o 
o 
o 
o 
o 
o 

G 

c 
c 

G 

c 
c 
c 
o 
o 
o 
o 
o 

G 
C 
G 
G 
O 
G 
G 
O 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



DATE 
EC NO. 



0F8A 





0000 




T21SS 


DC 




*-* 


0F8B 


1 


6580 


0F8A 




LDX 


11 


T21SS 


OF 80 





C101 






LD 


1 


1 


0F8E 





1890 






SRT 




16 


0F8F 





C100 






LD- 


1 





0F90 





DCOO 


0000 


T2121 


STD 


L 


*-* 


0F92 





C102 






LD 


1 


2 


0F93 





D001 






STO 




* + l 


0F94 





6500 


0000 




LDX 


LI 


*-* 


0F96 


1 


C500 


1 146 




LD 


LI 


T21C0 


0F98 





8297 






A 


2 


Kl-TB 


OF 99 


1 


D500 


1146 




STO 


LI 


T21C0 


0F9B 


1 


7401 


1146 




MDX 


L 


T21C0.1 


0F9D 


1 


4C80 


1C3D 


* 

* ' 
T21B 


BSC 


1 


ERADR 










PART 


B - 


- CHECK 


0F9F 


1 


6700 


10D 1 


LDX 


L3 


T21LS 


0FA1 


1 


6500 


OFBF 




LDX 


LI 


T2126 


0FA3 


1 


60 00 


1C3D 




STX 


LI 


ERADR 


0FA5 





6108 






LDX 


1 


8 


0FA6 


1 


6D00 


HOE 




STX 


LI 


T21CT 


0FA8 


1 


6500 


1132 




LDX 


LI 


T21E3+6 


OFAA 





69E6 




* 
T2125 


STX 


1 


T2121+1 


OFAB 





C300 




LD 


3 





OF AC 


1 


D400 


10DA 




STO 


L 


T21A1+1 


OFAE 





C28D 






LD 


2 


TERM-TB 


OFAF 





D249 






STO 


2 


HA-TB 


OFBO 





D24A 






STO 


2 


HA+l-TB 


0FB1 





024B 




* 


STO 


2 


HA+2-TB 


0FB2 





42EE 




BSI 


2 


SIO-TB 


0FB3 


1 


10EO 






DC 




T21C2 



ENTRY POINT 



A TO Q 



BUMP TOTAL ERROR COUNT 
RETURN VIA ADDRESS 



0FB4 4209 
0FB5 1 OFAB 

0FB6 O C236 
0FB7 100E 
0F88 1 4C28 OFCC 



OFBA CA49 

OFBB 1088 

OFBC 9314 

OFBD 1 4C18 0FD4 



OFBF 
OFCO 
0FC1 
0FC3 
0FC4 
QFC6 
0FC7 



7301 

1000 

7402 0F91 

1000 

74FF HOE 

70E4 

C400 1146 



* 



* 
T2126 



0FC9 1 4C20 1030 
OFCB 700C 



OFCC 1 4400 086A 

OFCE CA1D 

OFCF .0 109F 

OFDO 1 4C90 1C3D 

0FD2 1 4C00 0F56 

0FD4 O 40B5 

0FD5 0002 



BSI 2 TLPST-T8 TEST LOOP SIO 

DC T2125 LOOP ADDRS 

TEST FOR UNIT CHECK 

LD 2 SCSXO+l-TB GET UNIT STATUS 

SLA UNCHK 

BN T2127 

CHECK IF HA READ IS THE ONE THAT WOULD HAVE 

BEEN READ IF CAR BIT WAS OFF. 

LDD 2 HA-TB 

SLT 8 

S 3 T210F-T21LS 

BZ T2128 

INCREMENT POINTERS 

MDX 3 1 

NOP 

MDX L T2121+1.2 

NOP 

MDX L T21CT.-1 

MDX T2125 

LD L T21C0 

BNZ T2138 

MDX T21C 



* 

T2127 

* 



* 
T2128 



GET HERE IF UNIT CHECK ON CCW CHAIN 

BSI L GETSN 

TEST FOR SEEK INCOMPLETE <PROB. CAR BIT ON) 

LDD 2 SNWDS-TB 

SLT FSKIN 

BNN I ERADR 

BSC L T2113 



BSI 
PRNT 



T21SS 
. COF. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PART NO. 2279467 
PAGE 17 



81221780 
81221790 
81221800 
81221810 
81221820 
81221S30 
81221840 
81221850 
81221860 
81221870 
81221880 
81221890 
81221900 
81221910 
81221920 
81221930 
81221940 
81221950 
81221960 
81221970 
81221980 
81221990 
81222000 
81222010 
81222020 
81222030 
81222040 
812220 50 
81222060 
81222070 
81222080 
81222090 
81222100 
81222110 
81222120 
81222130 
81222140 
81222150 
81222160 
81222170 
81222180 
81222190 
81222200 
81222210 
81222220 
81222230 
81222240 
81222250 
81222260 
81222270 
81222280 
81222290 
81222300 
81222310 
81222320 
81222330 
81222340 
81222350 
81222360 
81222370 
81222380 
81222390 
81222400 
81222410 
81222420 
81222430 
81222440 
81222450 
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DATE 

EC NO. 



0FD7 0003 



DC 











* 
* 
* 
T21C 


PART 


C- 


CHECK 


0FD8 


1 


6500 


1030 


LDX 


Ll 


T2138 


OFDA 


1 


6000 


1C3D 




STX 


LI 


ERADR 


OFDC 


1 


6500 


10D1 




LDX 


LI 


T21LS 


OFDE 


1 


60 00 


0FE5 




STX 


LI 


T2130+1 


OFEO 





6108 






LDX 


1 


8 


0FE1 


1 


6D00 


HOE 




STX 


LI 


T21CT 


0FE3 





6300 




* 
T2130 


LDX 


3 





0FE4 





C400 


0000 


LD 


L 


*-* 


0FE6 


1 


O400 


10DA 




STO 


L 


T21A1+1 


0FE8 





C280 






LD 


2 


TERM-TB 


0FE9 





0249 






STO 


2 


HA-TB 


OFEA 





D24A 






STO 


2 


HA+l-TB 


OFEB 





D24B 




* 


STO 


2 


HA+2-TB 


OFEC 





42EE 




BSI 


2 


SIO-TB 


OFEO 


1 


10F9 




* 
* 


DC 
TEST 


FOF 


T21C3 
« UNIT C 



CHECK FOR CAR BITS TURNING OFF 



OFEE O C236 

OFEF 100E 

OFFO 1 4C28 101E 

0FF2 1 7401 0FE5 

0FF4 1000 

0FF5 1 74FF HOE 

0FF7 70EC 

0FF8 7300 

0FF9 702C 



T2131 



CCW ADDRESS 



LD 2 SCSXO+l-TB GET UNIT STSTUS 
SLA UNCHK 
BN T2133 

MDX L T2 130+1,1 

NOP 

MDX L T21CT.-1 

MDX T2130 

WERE THERE ANY POSITIVE STOPS 

MDX 3 

MDX T2134 HERE IF YES 



OFFA 





C24A 






OFFB 





1808 






OFFC 





92A2 






OFFO 


1 


4C18 


1026 




OFFF 





7301 






1000 





8297 






1001 


1 


4C18 


1026 


* 


1003 





C2DD 






1004 





9297 






1005 





D20D 






1006 


1 


4C20 


0EF5 


* 


1008 









T2132 

* 
* 


1008 





42E5 




T21EN 



IS 


CAR 


BIT 7 O 


LD 


2 


HA+l-TB 


SRA 




8 


S 


2 


K127-TB 


BZ 




T2134 


MDX 


3 


1 


A 


2 


Kl-TB 


BZ 




T2134 



WAS LAST CYL 127 



WAS LAST CYL 126 



LD 2 LPCNT-TB 

S 2 Kl-TB 

STO 2 LPCNT-TB 
BNZ T2105 

EOU * 

GO TO NEXT ROUTINE IN SEQUENCE 



1009 C2C1 

100A 1 4C18 1172 

100C 42DF 



BSI 2 FREDV-TB 

LD 2 TRTNN-TB 

BZ T2201 

BSI 2 CNTRL-TB 



FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SEQ 
GO TO CONTROL RTN 



100D 




0007 




TTL21 

* 


PRNT 




. SECT 2.RT 1- . 


1014 




0009 




PRNT 




•DIFF CNTR AND CAR 


101D 





FFFF 




* 
T2133 


DC 




/FFFF 


101E 


1 


4400 


086A 


BSI 


L 


GETSN 


1020 





CA1D 






LDD 


2 


SNWDS-TB 


1021 





109F 






SLT 




FSKIN 


1022 


1 


4C10 


0FF2 




BNN 




T2131 


1024 





7301 






MDX 


3 


I 


1025 





70CC 






K> X 




T2131 



14N0V69 
431319 



30JAN70 
43S319A 



15SEP71 
431328 
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81222460 

81222470 

81222480 

81222490 

81222SOO 

81222510 

81222520 

81222530 

81222540 

81222550 

81222560 

81222570 

81222S80 

81222590 

81222600 

81222610 

81222620 

81222630 

81222640 

81222650 

81222660 

81222670 

81222680 

81222690 

81222700 

81222710 

81222720 

81222730 

812227*0 

81222750 

81222760 

81222770 

81222780 

81222790 

81222800 

81222810 

81222820 

81222830 

81222840 

81222850 

81222860 

81222870 

81222880 

81222890 

81222900 

81222910 

81222920 

81222930 

81222940 

81222950 

81222960 

81222970 

81222980 

81222990 

81223000 

81 2230 lO 

81223020 

81223030 

81223040 

81223050 

81223060 

81223070 

81 22 308© 

81223090 

81223100 

81223110 

81223120 

81223130 
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< < < i i ■■ I CJ ( ( C CI ( (i c i 



( 



OATE 
EC NO. 



1026 1 7700 1132 

1028 1000 

1029 1 6F00 0F91 
102B 1 4400 0F8A 
102D 0002 
102F 0004 



1030 
1032 
1033 
1035 
1037 
1038 
103A 
103B 
103D 
103F 
1040 



1 6500 113E 

C900 

1 9C00 1144 
1 4C20 1044 

1090 

1 4C20 1044 

C902 

1 9C00 115C 
1 4C20 105C 

1090 

1 4C20 10SC 



1042 O 404B 

1043 2101 



1044 

1045 

1047 

1049 

104A 

104C 

1040 1 

104F 1 

1051 

1052 

1054 

1055 

1057 

1059 

105A 



C900 
9C00 
4C20 
1090 
4C20 
C902 
9C00 
4C20 
1090 
4C18 
C902 
9C00 
4C20 
1090 
4C18 



115A 
105C 

105C 

1144 
1054 

1042 

115C 
105C 

1042 



105C 1 C400 114C 

105E 9299 

105F 1 4C28 1063 

1061 402C 

1062 O 2160 

1063 1 C400 114A 
1065 1 4C18 1069 

1067 4026 

1068 2130 

1069 1 C400 1147 
106B 1 4C18 1074 
106D 9290 
106E 1 4C18 1072 

1070 40 ID 

1071 2110 

1072 O 401B 

1073 2111 

1074 1 C400 1148 
1076 1 4C18 107F 

1078 O 929D 

1079 1 4C18 107D 
107B 4012 
107C 2120 



14N0V69 
43 1 3 1 9 



T2134 MDX 
NOP 
STX 
BSI 
PRNT 
DC 



L3 T21E3+6 

L3 T2121+1 
L T21SS 

. CON. 

4 



SET IN MAP 



30JAN70 
431319A 



* 

* 

T2138 LDX 
LDD 
SD 
BNZ 
SLT 
BNZ 
LDD 
SD 
BNZ 
SLT 
BNZ 

* 

T2139 BSI 
DC 

T2140 LDD 
SD 
BNZ 
SLT 
BNZ 
LDD 
SD 
BNZ 
SLT 
BZ 
LDD 
SD 
BNZ 
SLT 
BZ 

* 

T2141 LD 
S 

BN 
BSI 
DC 

T2142 LD 
BZ 
BSI 
DC 

T2143 LD 
BZ 
S 

BZ 
BSI 
DC 

T2144 BSI 
DC 

* 

T2145 LD 
BZ 
S 

BZ 
BSI 
DC 



15SEP71 

431328 



DECODE SEEK ERROR COUNTERS 



LI T21E3+18 

1 
L T210K 
T2140 
16 

T2140 

1 2 

L T2 1 P2 

T2141 

• 16 

T2141 

T21PS 
/2101 

1 
L T21P1 

T2141 

16 

T2141 
1 2 
L T2 1 OK 

*+3 

16 

T2139 

1 2 

L T21P2 
*+3 
16 
T2139 

L T21C0+6 

2 K3-TB 
T2142 
T21PS 
/2160 

L T21C0+4 
T2143 
T21PS 
/2130 

L T21C0+1 
T2145 
2 K8-TB 
T2144 
T21PS 
/2110 

T21PS 
• 2111 

L T21C0+2 
T2147 
2 K8-TB 
T2146 
T21PS 
/2120 



SET UP POINTER 
GET ENTRY IN TBL 
TEST FOR . OK . 

O TO A 

BR IF N OT EQUAL 

GET NEXT ENTRY IN TBL 

TEST FOR . 064. 

Q TO A 

BR IF NOT EQUAL 



GET ENTRY IN TBL 
TEST FOR . 032. 

Q TO A 

BR IF NOT 

GET NEXT ENTRY 

TEST FOR . OK . 

BR IF NOT 

Q TO A 



GET ENTRY 
TEST FOR . 
BR IF NOT 
Q TO A 



064. 
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81223140 

81223150 

81223160 

81223170 

81223180 

81223190 

81223200 

81223210 

81223220 

81223230 

81223240 

81223250 

81223260 

81223270 

81223280 

81223290 

81223300 

81223310 

81223320 

81223330 

81223340 

81223350 

81223360 

81223370 

81223380 

81223390 

81223400 

81223410 

81223420 

81223430 

81223440 

81223450 

81223460 

81223470 

81223480 

81223490 

81223500 

81223510 

81223520 

81223530 

81223540 

81223550 

81223560 

81223570 

81223580 

81223590 

81223600 

81223610 

81223620 

81223630 

81223640 

81223650 

81223660 

81223670 

81223680 

81223690 

81223700 

81223710 

81223720 

81223730 

81223740 

81223750 

81223760 

81223770 

81223780 

81223790 

81223600 

81223810 
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18 



107D 4010 


T2146 BSI 




T21PS 




107E 2121 

1 


DC 
* 
T2147 LD 




/2121 




107F 1 C400 1149 


L 


T21C0+3 




1081 1 4C18 1085 


BZ 




T2148 


■ 


1083 400A 


BSI 




T21PS 




1084 2140 


DC 

* 

T2148 LD 




/2140 




1085 1 C400 114B 


L 


T21C0+5 




1087 9299 


S 


2 


K3-TB 




1088 1 4C28 108C 


BN 




T2149 




108A 4003 


BSI 




T21PS 




108B 2150 


DC 

* 

T2149 BSI 




/2150 




108C 4001 




T21PS 




108D 2190 


DC 




/2190 






* PRINT SEEK MAP ANJ ERROR NUMBER 

3fC 


108E 0000 


T21PS DC 




*-* 




108F 1 C480 108E 


LD 


I 


T21PS 




1091 D002 


STO 




*+2 




1092 42E2 


BSI 


2 


EROUT-TB 




1093 0140 


DC 




/0140 




1094 0000 


DC 

* 

BSI 




*-* 




1095 4203 


2 


TLGMS-TB 




1096 1 UOF 


DC 
T2152 BSI 
T2153 LD 




T21E1 




1097 42FA 


2 


THALT-TB 


WAIT FOR INTE 


1098 C283 


2 


TSWO-TB 




1099 100C 


SLA 




OLPER 




109A 1 4C10 1008 


BNN 




T2132 






* SCAN 


SEEK MAP FOR 


FAILING CYLIND 


109C 1 6700 1132 


LDX 


L3 


T21E3+6 




109E 6108 


LDX 


1 


8 




109F C297 


LD 


2 


Kl-TB 




10A0 1 D400 10DA 


STO 
* 
T2154 BSI 


L 


T21A1+1 




10A2 42F7 


2 


TCVHD-TB 




10A3 42F4 


BSI 


2 


TCVBE-TB 




10A4 E2AF 


AND 


2 


HOOFF-TB 




10A5 EA4F 


OR 


2 


TLGSP-TB 




10A6 1 D400 116B 


STO 


L 


T21SC+13 




10 A8 1 D400 116F 


STO 


L 


T21SC+17 




10AA 18D0 


RTE 




16 




10AB 1 D400 116C 


STO 


L 


T21SC+14 




10AD 1 D400 1170 


STO 


L 


T21SC+18 




10AF CBOO 


LDD 


3 





GET TBL ENTRY 


10B0 1 9C00 1144 


SD 


L 


T210K 


TEST FOR . OK 


10B2 1 4C20 10C1 


BNZ 




T2155 




10B4 1090 


SLT 




16 


Q TO A 


10B5 1 4C20 10C1 


BNZ 

* 

LD 




T2155 


BR IF NOT 


10B7 1 C400 10DA 


L 


T21A1+1 




10B9 1001 


SLA 




1 




10BA 1 D400 10DA 


STO 


L 


T21A1+1 




10BC 7302 


MDX 


3 


2 




10BD Q 1000 


NOP 








10BE 7 IFF 


MDX 


1 


-1 




10BF T0E2 


MDX 




T2154 




10CC 7007 


MDX 
* 
T2155 BSI 




T2153 




10C1 4203 


2 


TLGMS-TB 




10C2 1 115E 


DC 

* 

T2156 LD 




T21SC 




10C3 C283 


2 


TSWO-TB 
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DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP7I 
431328 



81223820 

81223830 

81223840 

81223850 

81223860 

81223870 

81223880 

81223890 

81223900 

81223910 

81223920 

81223930 

81223940 

81223950 

81223960 

81223970 

8122 3980 

81223990 

81224000 

81224010 

81224020 

81224030 

81224040 

81224050 

81224060 

81224070 

81224080 

81224090 

81224100 

81224110 

81224120 

81224130 

81224140 

81224150 

81224160 

81224170 

81224180 

81224190 

81224200 

81224210 

81224220 

81224230 

81224240 

81224250 

81224260 

81224270 

81224280 

81224290 

81224300 

81224310 

81224320 

81224330 

81224340 

81224350 

81224360 

81224370 

81224380 

81224390 

81224400 

81224410 

81224420 

81224430 

81224440 

81224450 

81224460 

812244 70 

81224480 

81224490 



PROG ID 
PAGE 



0812-A 
18A 



c 

6 

c 
o 
c 
c 
c 
o 
o 

G 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

G 

c 
c 
c 
o 
c 
o 
o 



( ( ( < < i ( ( ( 

IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2841 DIAGNOSTIC - PHASE A 



< < i < < < ( ( ( < ( < i ( (!(((((( 



1 



PART NO. 2279467 
PAGE 19 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 

10C4 100C 
10C5 1 4C10 1008 



DATE 
EC NO. 



10C7 42EE 

10C8 1 1105 

IOC 9 42EE 

10CA 1 1108 

10CB 70F7 



10CC O 42E2 

10CD 0106 

10CE O 2000 

10CF 1 4C00 1008 



SLA OLPER 

BNN T2132 

RECALIBRATE (SEEK CYL 00 IF CCW CODE 
TO OB) 
BSI 2 SIO-TB 

DC T21CS CCW ADDRESS 



BSI 
DC 

NDX 



2 SIO-TB 
T21C6 

T2156 



CCW ADDRESS 



10D1 





0001 


10D2 





0006 


10D3 





0006 


10D4 





0008 


10D5 





0010 


10D6 





0020 


10D7 





0040 


10D8 





0080 


10D9 





0000 


10DA 





OOFF 


10DB 





0000 


10DC 





0000 


10DD 





0010 


10DE 





0000 


10DF 





0000 


10E0 





0001 


10E1 





0000 


10E2 





0000 


10E3 





0000 


10E4 





0000 


10E5 





0011 


10E6 





0012 


10E7 





0014 


10E8 





0018 


10E9 





0020 


10EA 





0030 


10EB 





0050 


10EC 





0090 


10ED 





0001 


10EE 





6013 


10EF 


1 


10F0 



* 
* 

T21TO 



* 
* 
T21LS 



GET HERE IF TIMEOUT 



BSI 
DC 
DC 
BSC 



2 EROUT-TB 
/0106 
• 2000 
L T21EN 



END ROUTINE 



CONSTANTS.DATA 



T21A1 



T21A2 



T21A4 



T21A5 



* 
T210F 



* 
T21C2 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 

DC 



1 

6 

6 

8 

16 

32 

64 

128 

CYL XX 

HD 00 

CYL 16 



CYL 01 



CYL 00 



10F0 O 0006 
10F1 400B 
10F2 1 10D9 



10F3 0006 
10F4 O 400B 
10F5 1 10DC 



* 
* 



* 



* 
* 



DC 
DC 
DC 



DC 
DC 

DC 



/0001 
/0006 
/0006 

• 0008 

• 0010 

• 0020 

• 0040 

• 0080 

• OOOO 

• OOFF 

• 0000 

• 0000 

• 0010 

• 0000 

• 0000 

• 0001 

• 0000 

• 0000 

• 0000 

• 0000 

•0011* 

• 0012 

• 0014 

• 0018 

• 0020 

• 0030 

• 0050 

• 0090 



1 BYTE COUNT 

•60*256+RCAL FLAGS AND OP CODE 
* ADDRESS 



6 BYTE COUNT 

/40*256+SEEKS FLAGS AND OP CODE 
T21A1 ADDRESS 



6 BYTE COUNT 

•40*256+SEEKB FLAGS AhD OP CODE 
T21A2 ADDRESS 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 

431328 



81224500 
81224510 
CHANGED 81224520 
81224530 
81224540 
81224550 
81224560 
81224570 
81224S80 
81224590 
81224600 
81224610 
81224620 
81224630 
81224640 
81224650 
81224660 
81224670 
81224680 
81224690 
81224700 
81224710 
81224720 
81224730 
81224740 
81224750 
81224760 
81224770 
81224780 
81224790 
81224800 
81224810 
81224820 
81224830 
81224840 
81224850 
81224860 
81224870 
81224880 
81224890 
81224900 
81224910 
81224920 
81224930 
81224940 
81224950 
81224960 
81224970 
81224980 
81224990 
81225000 
81225010 
81225020 
81225030 
81225040 
81225050 
81225060 
81225070 
81225080 
81225090 
81225100 
81225110 
81225120 
81225130 
8122S140 
81225150 
81225160 
81225170 
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DATE 

EC N0« 



1 0F6 0005 
10F7 001A 
10F8 1 08C8 



10F9 0001 
10FA 6013 
10FB 1 10FC 



10FC 0006 
10FD 400B 
10FE 1 10D9 



10FF 0006 

1100 400B 

1101 1 10D9 



1102 0005 

1103 001A 

1104 1 08C8 



1105 0006 

1106 2013 

1107 1 10E2 



1108 0006 

1109 400B 
110A 1 10D9 



HOB 0006 
HOC OOOB 
HOD 1 10D9 



HOE 




0000 


HOE 





0000 


110F 




0005 


1114 





OOFF 


1115 




0007 


MIC 




0015 


112B 





OOFF 


112C 




0007 


1133 




0015 


1142 





FFFF 


1144 




0000 


1144 




0002 


1146 




0008 


114E 





0000 


114F 





0040 


1150 





4000 


1 151 





0001 


1152 





6013 


1153 


1 


1154 


1154 





0006 


1 3 55 





4008 


1156 


1 


10D9 



DC 
DC 
DC 



* 
T21C3 



DC 
DC 
DC 



* 



* 
* 



* 
* 



* 

* 

T21C5 



* 
* 
T21C6 



* 
* 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



* 
* 

T21CT 
T21E1 

T21E2 



T21E3 



T210K 

T21C0 

T21MK 

T21S1 

T21S2 

* 

T21C1 



* 
* 



DC 
DC 
DC 



BSS 

DC 

PRNT 

DC 

PRNT 

PRNT 

DC 

PRNT 

PRNT 

DC 

BSS 

PRNT 

BSS 

DC 

DC 

DC 

DC 
DC 
DC 



14NOV69 

431319 



DC 

DC 
DC 



30JAN70 15SEP71 

431319A 431328 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
HA ADDRESS 



1 BYTE COUNT 

•60*256+RCAL FLAGS AND OP CODE 
* ADDRESS 



6 BYTE COUNT 

•40*256+SEEKB FLAGS AND OP CODE 
T21A1 ADDRESS 



6 BYTE COUNT 

•40*2S6+SEEKB FLAGS AND OP CODE 
T21A1 ADDRESS 



S BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
H A ADDRESS 



6 BYTE COUNT 

•20*256+RCAL FLAGS AND OP CODE 
T21A5 ADDRESS 



6 BYTE COUNT 

•40*2S6+SEEKB FLAGS AND OP CODE 
T21A1 ADDRESS 



6 BYTE COUNT 

0*256+SEEKB FLAGS AND OP CODE 
T21A1 ADDRESS 





*-* 

. SEEK MAP-. 

•OOFF TERMINATOR 

. BIT POSITION-. 

• l 2 * 8 16 32 64 128 , 

•OOFF TERMINATOR 

. SK RESULTS- X. 

.XX XXX XXX XXX XXX XXX XXX XXX, 

• FFFF 


. OK . 

8 

*-* 

• 0040 

• 4000 



ZERO-BLANK 
BLANK-ZERO 



1 BYTE COUNT 

•60*256+RCAL FLAGS AND OP CODE 
* ADDRESS 



6 BYTE COUNT 

•40*256+/0B FLAGS AND OP CODE 
T21A1 ADDRESS 
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81225180 

81225190 

8122S200 

81225210 

81225220 

81225230 

81225240 

81225250 

81225260 

81225270 

81225280 

81225290 

8122 5300 

81225310 

81225320 

81225330 

81225340 

81225350 

81225360 

81225370 

81225380 

81225390 

81225400 

81225410 

81225420 

81225430 

81225440 

81225450 

81225460 

81225470 

81225480 

81225490 

81225500 

81225510 

81225520 

81225530 

81225540 

81225550 

81225560 

81225570 

81225580 

81225590 

81225600 

81225610 

81225620 

81225630 

81225640 

81225650 

81225660 

81225670 

81225680 

81225690 

81225700 

81225710 

81225720 

81225730 

81225740 

81225750 

81225760 

81225770 

81225780 

81225790 

81225800 

81225610 

81225820 

81225830 

61225840 

81225850 
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c 
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PART NO. 
PAGE 



DATE 
EC NO. 



1157 





0005 


1158 





001A 


1159 


1 


08C8 


115A 




0000 


115A 




0002 


115C 




0002 


115E 




0016 


116E 




0003 


1171 





FFFF 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
HA ADDRESS 

O 

. 032. 

. 064. 

. SEEK SCOPE LOOP-RECAL. SK XXX, . 
.SK XXX. 
• FFFF 



SEEK INCOMPLETE 



THIS ROUTINE WILL PERFORM A SEEK TO CYLINDER 
255 TO FORCE ACCESS CARRIAGE TO GO TO INNER 
POSITIVE STOP. THE CONTROL UNIT SHOULD IN- 
DICATE THAT THE FILE HAS LOST READY, SEEK 
CHECK, AND SEEK INCOMPLETE. AFTER THE COR- 
RECT STATUS HAS BEEN RECEIVED, THE ROUTINE 
WILL PERFORM A RESTORE AND CHECK THAT IT 
FUNCTIONED CORRECTLY. 



1172 

1172 1 7401 0815 

1174 1 4C18 1179 

1176 9297 

1177 1 4C20 11F6 

1179 C283 
117A 100 A 
117B 1 4C10 117F 
117D 4203 
117E 1 11 BO 

117F 42E8 

1180 C299 

1181 O D2DD 

1182 42EE 

1183 1 0891 

1184 42EE 

1185 1 11DE 

1186 4209 

1187 1 1184 

1188 C23E 

1189 100E 
118A 1 4C10 UCO 

118C 42EB 



* 
* 

DC 

DC 

DC 
* 

BSS E 
T21P1 PRNT 
T21P2 PRNT 
T21SC PRNT 

PRNT 

DC 
* 
* 

* ROUTINE 2 

*************************************************** 

* 
* 
* 
* 
* 

* 
* 
* 

* 
* 

************************************************.,. .^ 

* * 
*************************************************** 
* 
************************************************* ^ 

* * 
******************************************* ******** 

T2201 EQU 

NDX 

BZ 

S 

BNZ 
* 
T2202 LD 

SLA 

BNN 

BSI 

DC 
* 
T2203 BSI 

LD 

STO 
* 

BSI 

DC 
* 
T2204 BSI 

DC 



L TRID.l 
T2202 
2 Kl-TB 
T2301 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 



2 TSWO-TB 
OTTLE 
T22 03 



GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
2 TLGMS-TB GO TO PRINT ROUTINE 
TTL22 



14N0V69 
43 1 3 1 9 



30JAN70 
431319A 



BSI 
DC 

LD 
SLA 

BNN 

BSI 



15SEP71 
431328 



2 GETDV-TB 

2 K3-TB 

2 LPCNT-TB 

2 SIO-TB 
RECAL 

2 SIO-TB 
T22SK 

2 TLPST-TB 

T2204 



MESSAGE ADDRESS 
GET CHANNEL FOR RTN 

EXECUTE CHNL PGM 
EXEC CHNL PGRM 



TEST LOOP Sip 
LOOP ADDRS 



2 SCSX8+1-TB TEST FOR UNIT CK 
UNCHK * (SHOULD BE ON) 

T2206 NO 



2 GETSN-TB 



YES, GET SENSE INFO 



81225860 

81225870 

81225880 

81225890 

81225900 

81225910 

81225920 

81225930 

81225940 

8122 5950 

81225960 

8122 5970 

81225980 

81225990 

81226000 

81226010 

81226020 

81226030 

81226040 

81226050 

81226060 

81226070 

81226080 

81226090 

81226100 

81226110 

81226120 

81226130 

81226140 

81226150 

81226160 

81226170 

81226180 

81226190 

81226200 

81226210 

81226220 

81226230 

81226240 

81226250 

81226260 

81226270 

81226280 

81226290 

81226300 

81226310 

81226320 

81226330 

81226340 

81226350 

81226360 

81226370 

81226380 

81226390 

81226400 

81226410 

81226420 

81226430 

81226440 

81226450 

81226460 

8122 5470 

81226480 

81226490 

81226500 

81225510 

81226520 

8122 6530 
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PART NO. 2279467 
PAGE 2 0A 



0812-A 
20 



DATE 
EC NO, 



USD CA1D 

118E 1087 

118F 1 4C10 11C4 

1191 1081 

1192 1 4C20 11C4 



1194 
1195 



1088 
F047 



1196 1 4C20 11C4 



1198 





C28D 




1199 





D249 




119A 





D24A 




119B 





D24B 




119C 





42EE 




1 19D 


1 


11E1 




119E 





4209 




119F 


1 


119C 




11A0 





C24B 




11A1 





1808 




11A2 


1 


4C20 


11CA 


11A4 





CA49 




11A5 





1088 




11A6 


1 


4C20 


11CA 



11A8 1 74FF 085C 
11AA 70D9 



11AB 42E5 
11 AC C2C1 
HAD 1 4C18 11F6 
11AF 42DF 
HBO 0007 

116? 0008 

11BF FFFF 

11C0 42E2 

11C1 0106 

11C2 2201 

11C3 O 7003 

11C4 42E2 
11C5 0107 
11C6 2202 

11C7 4206 
11CS 1 1184 
11C9 70CE 

11CA C249 

11CB O 42F4 

11CC 0020 

11CD 18D0 

11CE D01F 

1 1CF C24A 

11D0 42F4 

11D1 O D01D 

11D2 180 





LDD 


2 SNWDS-TB 




81226540 




SLT 


FSKCK 


TEST FOR SK CK 


81226550 


* 


BNN 


T2207 


BRANCH IF OFF 


81226560 
81226570 




SLT 


1 


TEST BITS 8-23 


81226580 


* 


BNZ 


T2207 


BRANCH IF ANY ON 


81226S90 








81226600 




SLT 


■8 


TEST FOR SK INC, NOT READY 


81226610 


* 


' EOR 


T22IS 


* AND ON-LINE 


81226620 
81226630 


* 


BNZ 


T2207 


ERROR EXIT 


81226640 
81226650 


T2205 LD 


2 TERM-TB 


RESET READ AREA 


81226660 




STO 


2 HA-TB 


*** 


81226670 




STO 


2 HA+l-TB 


*** 


81226680 


* 


STO 


2 HA+2-TB 


*** 


81226690 
81226700 


T22I0 BSI 


2 SIO-TB 


EXECUTE CHNL PGM 


81226710 


* 


DC 


T22RE 


CHAIN RECAL t RDHA 


81226720 








81226730 




BSI 


2 TLPST-TB 


TEST LOOP SIO 


81226740 


* 


DC 


T22I0 


LOOP ADDRS 


81226750 








81226760 




LD 


2 HA+2-TB 


CHECK FOR HA ZERO 


81226770 




SRA 


8 


* ON RECALIBRATE 


81226780 




BNZ 


T2208 


BRANCH IF WRONG HA 


81226790 




LDD 


2 HA-TB 


CHECK FOR CYL 


81226800 




SLT 


8 


* ON RECAL 


81226810 


* 


BNZ 


T2208 


BRANCH IF WRONG CYL 


81226820 








81226830 




MDX 


L LPCNT.-l 




81226840 


* 
* 


MDX 


T2204 




81226850 








81226860 








81226870 


* 
* 


GO TC 


NEXT ROUTINE 


IN SEQUENCE 


81226880 








81226890 


T22EN 


BSI 


2 FREDV-TB 


FREE CHANNEL 


81226900 




LD 


2 TRTNN-TB 


GET RTN SWS 


81226910 




BZ 


T2301 


GO TO NEXT RTN IN SEQ 


8122 6920 




SSI 


2 CNTRL-TB 


GO TO CONTROL RTN 


81226930 


TTL22 

* 


PRNT 


. SECT 2.RT 2- . 


81226940 








81226950 




PRNT 


.SEEK INCOMPLETE. 


81226960 




DC 


/FFFF 




81226970 


T2206 


BSI 


2 EROUT-TB 




81226980 




DC 


/0106 




81226990 


* 


DC 


• 22 01 




81227000 








8122 7010 


* 


MDX 


T22ER 


CONTINUE 


81227020 








81227030 


T2207 


BSI 


2 EROUT-TB 




81227040 




DC 


• 0107 




81227050 


* 


DC 


/2202 




81227060 








81227070 


T22ER 


BSI 


2 TLPER-TB 


TEST LOOP ERROR 


81227080 




DC 


T2204 


LOOP ADDRS 


81227090 


* 


MDX 


T22 05 


CONTINUE 


81227100 








81227110 


T2208 


LD 


2 HA-TB 




81227120 




BSI 


2 TCVBE-TB 


SET HOME ADDRESS 


81227130 




STO 


T22MG+6 


* READ INTO MESSAGE 


81227140 




XCH 






81227150 


* 


STO 


T22MG+7 




81227160 
81227170 




LD 


2 HA+l-TB 




81227180 




BSI 


2 TCVBE-TB 


CONVERT TO PRNT CODE 


81227190 




STO 


T22MG+8 




81227200 




XCH 






81227210 



14N0V69 
431319 



30JAN70 
431319A 



15SEP7S 
431328 
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G 
C 
C 

o 
c 

o 
o 

C 

c 

e 

c 

c 

c 

c 

o 

o 

o 

o 

o 

c 

c 

c 

o 

c 

o 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



11D3 D01C 

11 04 C24B 
11D5 42F4 
11D6 D01A 

11D7 42E2 
1 IDS 0108 
1109 1 11E7 

11DA 4206 
11DB 1 119C 
11 DC 70CE 

HDD 0049 



HOE 0006 
11DF O OOOB 
HEO 1 11F3 



11E1 0006 
11E2 4013 
11E3 1 11E4 



11E4 0005 
11ES 001A 
11E6 1 08C8 



11E7 0011 

11F2 FFFF 

11F3 0000 

11F4 OOFF 

11F5 0000 



STO 

LD 

BSI 

STO 

BSI 

DC 

DC 

BSI 

DC 

MDX 

* 

T22IS DC 

T22SK DC 
DC 
DC 

* 
* 
* 

T22RE DC 
DC 



T22MG+9 

HA+2-TB 

TCVBE-TB 

T22MG+10 

EROUT-TB 

/0108 

T22MG 

TLPER-TB 

T22IO 

T22EN 

/0049 



CONVERT TO PRNT CODE 



TEST LOOP ERROR 
LOOP ADDRS 
END ROUTINE 



* 
* 



DC 



DC 
DC 
DC 



6 BYTE COUNT 

0*256+SEEKB FLAGS AND OP CODE 
T22SA ADDRESS 



6 BYTE COUNT 

/40*256+RCAL FLAGS AND OP CODE 
* ADDRESS 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 



HA 



ADDRESS 



HA RD XXXXXXXXXX. 



SEEK ARG 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



* 

T22MG PRNT . 2203 

DC /FFFF 

* 

T22SA DC /OOOO 
DC /OOFF 
DC /OOOO 

* 
* 
*************************************************** 

* 

* ROUTINE — 3 SEQUENTIAL INCR/DECR 

*************************************************** 

* 
He 
* 

* 

* 
* 

* 
* 
* 
* 
* 
* 
* 

* 

* 

*******************************************.,,*.,,***** 



15SEP71 
431328 



THIS ROUTINE CHECKS THE CYLINDER AND DETENT 
TRANSDUCER ADJUSTMENTS BY PERFORMING SEQUEN- 
TIAL SEEK COMMANDS AND CHECKING CORRECT 
POSITION BY READING HOME ADDRESS. EACH SEEK 
COMMAND WILL SEEK TO THE NEXT HIGHER CYLIN- 
DER, SUCH AS 1,2,3,4, ... , ETC. THE SAME 
SCHEME IS USED TO CHECK THE REVERSE DIRECTION 

IF SECTION SENSE SWITCH 9 IS ON, THE ROUTINE 
WILL SEEK THE ALIGNMENT CYLINDERS (2-4, 71- 
75, 200-202) AND RHA . IF AN ERROR IS DE- 
TECTED (NRF, BURST CHECK), THE CYLINDER 
COMPARISON WILL BE BYPASSED. 

CIRCUITS CHECKED. 

CYLINDER AND DETENT TRANSDUCER 



81227220 
81227230 
81227240 
81227250 
81227260 
81227270 
81227280 
81227290 
81227300 
81227310 
81227320 
81227330 
81227340 
81227350 
81227360 
81227370 
81227380 
81227390 
81227400 
81227410 
81227420 
81227430 
81227440 
81227450 
81227460 
81227470 
81227480 
81227490 
81227S00 
81227510 
81227520 
81227530 
81227540 
81227550 
81227560 
81227570 
81227580 
81227590 
81227600 
81227610 
81227620 
81227630 
81227640 
81227650 
81227660 
81227670 
81227680 
81227690 
812277O0 
81227710 
81227720 
81227730 
8122 7740 
8122 7750 
81227760 
81227770 
81227780 
81227790 
81227800 
81227810 
81227820 
81227830 
81227840 
81227850 
81227860 
,81227670 
81227880 
81227890 
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11F6 

11F6 1 7401 0815 

11F8 1 4C18 11FD 

UFA 9297 

HFB 1 4C20 1316 

11FD C283 

11FE 100A 

11FF 1 4C10 1203 

1201 4203 

1202 1 1255 

1203 42E8 

1204 1 6700 12C9 

1206 O C29A 

1207 D2DD 

1208 1010 

1209 D315 
120A 030O 
120B O D30E 
120C D2DB 
120D O D2DC 

120E C30D 
120F D314 

1210 CA49 

1211 O 1088 

1212 D2DB 

1213 C24B 

1214 1808 

1215 O D2DC 

1216 C28D 

1217 D249 

1218 D24A 

1219 D24B 



121A C283 

121B O 1009 

121C 1 4C28 1221 

121E 1 4400 12BC 

1220 701E 

1221 O 42EE 

1222 1 120F 

1223 4209 

1224 1 1221 

1225 C236 

1226 100E 

1227 1 4C28 126A 



1229 CA49 



********************************************* 

* 

************************************************ 

********************* *************************** 



* 
*** 



T2301 EQU 
MDX 
BZ 
S 

BNZ 
* 

T2302 LD 
SLA 
BNN 
BSI 
DC 
* 

T2303 BSI 
LDX 
LD 
STO 
* ' 

T2304 SLA 
STO 
STO 
STO 
STO 
STO 
* 

T2305 LD 

STO 
* 

LDD 

SLT 

STO 

LD 

SRA 

STO 

* 

LD 
STO 
STO 
STO 

* 

* 

* 

* 



* TEST ENTRY POINT 

L TRID.l BUMP RTN ID 

T2302 BR IF TEST NUMBER ZERO 

2 Kl-TB DECREMENT BY ONE 

T2401 BR IF NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T2303 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 

TTL23 MESSAGE ADDRESS 



*** 

* 
*** 



2 GETDV-TB 

L3 T23 

2 K4-TB 

2 LPCNT-TB 



GET CHANNEL FOR RTN 

SET UP CONSTANT PTR 

SET UP LOOP CNTR 
*** 



16 RESET- 

3 T23SA+2-T23 * HEAD NUMBER 
3 T23CN-T23 * CYL NUMBER 
3 T23DR-T23 * D IR SWITCH 
2 T23LC-TB * "WAS AT* CYL 

2 T23LH-TB * 'WAS AT' HEAD 

3 T23CN-T23 PUT 'SEEK TO' CYL 
3 T23SA+1-T23 IN SEEK ARG 



2 HA-TB 

8 
2 T23LC-TB 
2 HA+2-TB 

8 
2 T23LH-TB 

2 TERM-TB 

2 HA-TB 

2 HA+l-TB 

2 HA+2-TB 



SAVE "WENT TO' CYL 

* FOR 'WAS AT' 

SAVE 'WENT TO' HD 

* FOR 'WAS AT' 

RESET READ AREA 

*** 
*** 
*** 



CHECK FOR ALIGNMENT CYLINDER 



LD 

SLA 

BN 

* 

BSI 
MDX 

* 

T2306 BSI 
DC 

* 

BSI 
DC 

* 

LD 

SLA 

BN 



2 TSWO-TB 
OSALC 
T2306 

L T2319 
T2308 

2 SIO-TB 
T23SK 

2 TLPST-TB 
T2306 



TEST SEEK ALIGN CYLS 
BR IF ON 

GO CK FOR ALIGNMENT CYL 

RETURN HERE IF YES 

* 

RETURN HERE IF NO 

SEEK/RHA CCW'S 

TEST LOOP SIO 
LOOP ADDRS 



2 SCSXO+l-TB TEST FOR UNIT CK 
UNCHK *** 

T2310 BRANCH IF ON 



TEST FOR CORRECT CYLINDER 

LDD 2 HA-T8 GET 'WENT TO' CYL 



DATE 
EC NO. 



14N0V69 

431319 



30JAN70 
431319A 



15SEP71 

431328 



81227900 

81227910 

81227920 

81227930 

81227940 

81227950 

81227960 

81227970 

81227980 

81227990 

81228000 

81228010 

81228020 

81228030 

81228040 

81228050 

81228060 

81228070 

81228080 

612280 90 

81228100 

81228110 

81228120 

81228130 

81228140 

81228150 

81228160 

81228170 

81228180 

81228190 

81228200 

81228210 

81228220 

81228230 

81228240 

81228250 

81228260 

81228270 

81228280 

812282 90 

81228300 

81228310 

81228320 

81228330 

81228340 

81228350 

81228360 

81228370 

81228380 

81228390 

81228400 

81228410 

81228420 

81228430 

81228440 

81228450 

8122 8460 

812284 70 

81228460 

81226490 

81228500 

81228510 

81228520 

81228530 

81228540 

81228550 

81228560 

81228570 
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C 
C 

o 
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o 

o 

o 









3 
D 

3 
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DATE 
EC NO. 



122A 1088 
122B F30D 
122C 1 4C20 1281 

122E C24B 
122F 1888 

1230 F315 

1231 1 4C20 1281 

1233 CA49 

1234 1088 

1235 02DB 

1236 C24B 

1237 1808 

1238 D2DC 

1239 1 7401 12DE 
123B C315 
123C 929F 
123D 4818 
123E D315 

123F C30E 

1240 1 4C20 124A 



1242 1 7401 12D6 

1244 C301 

1245 930D 

1246 1 4C30 120E 



1248 1 6FO0 120 7 

124A 1 74FF 12D6 

124C 70C1 

124D 1 74FF 085C 

124F 70B8 



1250 42ES 

1251 O C2C1 

1252 1 4C18 1316 

1254 420 F 

1255 0007 

125C 0013 
1269 FFFF 



SLT 8 * 

EOR 3 T23CN-T23 EQUAL 'SEEK TO' CYL 

BNZ T2313 BRANCH IF NO 

LD 2 HA+2-TB GET 'WENT TO« HEAD 

SRT 8 * 

EOR 3 T23SA+2-T23 EQUAL 'SEEK TO« HEAD 

BNZ T2313 BRANCH IF NO 



YES 

GET 'WENT TO' CYL 



GET 'WENT TO' HEAD 



T2307 LDD 
SLT 
STO 
LD 
SRA 
STO 
MDX 
LD 
S 

SKP 
STO 

T2308 LD 
BNZ 

* 

MDX 
LD 
S 
BP 

* 

STX L3 T23DR 

T2309 MDX L T23CN.-1 

MDX T2305 

MDX L LPCNT.-l 
MDX T2304 

* 

* GO TO NEXT ROUTINE IN SEQUENCE 



2 HA-TB 

8 
2 T23LC-TB 
2 HA+2-TB 

8 

2 T23LH-TB 
L T23SA+2.1 

3 T23SA+2-T23 

2 K10-TB 
+- SKP IF NONZERO 

3 T23SA+2-T23 

3 T23DR-T23 GET DIRECTION SW 

T2309 IN REVERSE 

♦ FORWARD* 

L T23CN.1 BUMP 'SEEK TO' CYL 

3 T23CA-T23 IS CYL = 203 
3 T23CN-T23 

T2305 BRANCH IF NO 

♦REVERSE* 



SET DIRECTION SW 
DECREMENT 'SEEK TO' CYL 
LOOP UNTIL ZERO 

DECREMENT 



T23EN BSI 
LD 
BZ 
BSI 

TTL23 PRNT 

PRNT 
DC 



2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SWS 

T2401 GO TO NEXT RTN IN SEO 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT 2,RT 3- » 

.SEQUENTIAL INCR/DECR SEEKS. 
/FFFF 



1 26A—0— 4051- 
126B 7009 



126C O 42EB 

1260 CA1D 

126E 109F 

126F 1 4C28 127A 

1271 42E2 

1272 0147 

1273 2302 

1274 4023 



* 

T2310 BSI 
MDX 



COME HERE ON UNIT CHECK 



T2319 
T2311 



* 
* 

* 



ERROR 

BSI 

LDD 
SLT 

BN 



14N0V69 
431319 



30JAN70 
431319A 



BSI 

DC 

DC 

BSI 



15SEP71 
431328 



2 GETSN-TB 
2 SNWDS-TB 

FSKIN 

T2312 

2 EROUT-TB 
/0147 
•2302 

T2318 



GO CK FOR ALIGNMENT CYL 
RETURN HERE IF YES 

RETURN HERE IF NO 

GET SENSE INFO 

* 

TEST FOR SK INCOMPLETE 

YES 

NO 



GO PRINT »AT„SK.WENT« 



PART NO. 2279467 
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61228560 

81228590 

81228600 

81228610 

81228620 

81228630 

81228640 

81228650 

81228660 

81228670 

81228680 

81228690 

81228700 

81226710 

81228720 

81228730 

81228740 

81228750 

81228760 

81228770 

81228780 

81228790 

81228800 

81228810 

81228820 

81228830 

81228840 

81228850 

81228860 

81228870 

81228880 

61228890 

812289O0 

81228910 

81228920 

81228930 

81228940 

81228950 

81228960 

81228970 

81228980 

81228990 

81229000 

81229010 

81229020 

81229030 

81229040 

81229050 

81229060 

81229070 

81229080 

81229090 

81229100 

81229110 

81229120 

81229130 

81229140 

81229150 

81229160 

81229170 

81229160 

81229190 

81229200 

61229210 

81229220 

81229230 

81229240 

81229250 
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1275 C30D 

1276 1008 

1277 EA4A 

1278 D24A 

1279 70B9 


T2311 LD 
SLA 
OR 
STO 
MDX 


3 T23CN-T23 

8 
2 HA+l-TB 
2 HA+l-TB 

T2307 


MOVE 'SEEK TO' 
* TO 'WENT TO* 

*** 
*** 


81229260 
81229270 
81229280 
81229290 
81229300 
81229310 












81229320 




* 


ACCESS WENT TO POSITIVE STOP 


81229330 


127A 42E2 
127B 0147 
127C 2301 


T2312 BSI 
DC 
DC 


2 EROUT-TB 
/0147 
/2301 




81229340 
81229350 
81229360 
81229370 


127D 401 A 


* 


BSI 


T2318 


GO PRINT 'AT, SK, WENT' 


81229380 
81229390 


127E 10A0 
127F DA49 
1280 70B2 


SLT 
STD 
MDX 


32 
2 HA-TB 
T2307 


CHANGE 'WENT TO • TO ZERO 

*** 


81229400 
81229410 
81229420 
81229430 










81229440 




* 

* 

T2312 

* 


ACCESS DETENTED TO 


WRONG CYLINDER 


81229450 


1281 C30E 

1282 1 4C18 1287 


LD 

BZ 


3 T23DR-T23 
T2314 


GET D IR SW 
BRANCH IF FORWARD 


81229460 
81229470 
81229480 


1284 C30D 

1285 9297 

1286 7002 


LD 

S 

MDX 


3 T23CN-T23 
2 Kl-TB 
T2315 


GET 'SEEK TO* CYL 
REVERSE+1 


81229490 
81229500 
81229510 
81229S20 


1287 C30D 

1288 8297 

1289 O300 
128A CA49 
128B 1088 


T2314 
T2315 


LD 

A 

STO 

LDD 

SLT 


3 T23CN-T23 

2 Kl-TB 

3 T23AT-T23 

2 HA-TB 
8 

3 T23AT-T23 
T2316 


FORWARD + 1 

TEST FOR OVERSHOOT 


81229530 
81229540 
81229550 
81229560 
81229570 


128C F300 
128D 1 4C20 1293 


* 

* 
T2316 

* 
T2317 

* 


EOR 
BNZ 


BRANCH IF NOT 


81229580 
81229590 
81229600 


128F O 42E2 

1290 0163 - 

1291 2303 

1292 7003 


BSI 
DC 
DC 
MDX 


2 EROUT-TB 
• 0163 
•2303 
T2317 




81229610 
81229620 
81229630 
81229640 
81229650 


1293 42E2 

1294 0163 

1295 2304 


BSI 

DC 

DC 


2 EROUT-TB 
• 0163 
•2304 




81229660 
81229670 
81229680 
81229690 


1296 4C01 

1297 709B 


BSI 

MDX 


T2318 
T2307 


GO PRINT 'AT, SK, WENT' 
CONTINUE 


81229700 
81229710 
81229720 










81229730 




* 


PRINT 


'AT, SK, WENT' 


MESSAGE 


81229740 




* 
* 
T2318 


ACCESS, 'WAS AT' - 


'SEEK TO' - 'WENT TO' 


81229750 


1298 0000 

1299 C2DB 


DC 
LD 


*-* ENTRY 
2 T23LC-TB GET 'WAS AT' CYL 


81229760 
81229770 
81229780 


129A 42F7 




BSI 


2 TCVt-D-TB 


CONVERT TO DECIMAL 


81229790 


1 29B 42F4 




BSI 


2 TCVBE-TB 


CONVERT TO 1443 CODE 


81229800 


129C DB25 




STD 


3 T23MS+8-T23 




81229810 
81229820 


129D C20C 




LD 


2 T23LH-TB GET 'WAS AT« HO 


129E 42F4 
129F 18D0 




BSI 
XCH 


2 TCVBE-TB 




81229830 


12A0 D32A 


* 
* 


STO 


3 T23MS+13-T23 


81229840 
81229850 


12A1 C314 
12A2 E2AF 
12A3 42F7 
12A4 42F4 
12A5 DB35 " 


LD 

AND 

BSI 

BSI 

STD 


3 T23SA+1-T23 GET 'SEEK TO* CYL 
2 HOOFF-TS 
2 TCVH3-TB 

2 TCVBE-TB 

3 T23MS + 24-T23 SET IN *MSG 


81229860 
81229870 
81229880 
81229890 
81229900 
81229910 


12A6 C315 


to 


3 T23SA+2-T23 


GET «SEEK TO» HD 


81229920 
81229930 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP7S 
431328 



PROG ID 
PAGE 



0812-A 
22A 



c 

6 

'c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



Q 



c 









7S 



"•> 



( C ( < < ( ( ( < 
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DATE 
EC NO. 



12A7 O E2AF 
12A8 42F4 
12A9 O 18O0 
12AA D33A 



12AB 





CA49 


12AC 





1088 


12AD 





42F7 


12AE 





42F4 


12AF 





DB45 


12B0 





C24B 


12B1 





1808 


12B2 





42F4 


12B3 





18D0 


12B4 





D34A 


12B5 





4203 


12B6 


1 


12E6 



12B7 42FA 

12B8 O 42EE 
12B9 1 0891 

12BA 1 4C8 1298 



12BC 
12BD 
12BE 
12BF 
12C1 
12C3 
12C4 
12C5 
12C7 



0000 
610B 
CO 17 

F500 12CA 
4C98 12BC 
7 IFF 
70F9 

7401 12BC 
4C80 12BC 






* 

T2319 
T2320 



12C9 O 
12C9 O 0000 
12CA O OOCA 



T23 

T23AT 

T23CA 



AND 
BSI 
XCH 
STO 

LDD 

SLT 

BSI 

BSI 

STD 

LD 

SRA 

BSI 

XCH 

STO 

BSI 
DC 

BSI 

BSI 
DC 

BSC 

TEST 

DC 

LDX 

LD 

EOR 

BZ 

NDX 

MDX 

MDX 

BSC 

EOU 

DC 

DC 



2 HOOFF-TB 

2 TCVBE-TB 

3 T23MS+29-T23 SET IN MSG 



GET "WENT TO* CVL 



2 HA-TB 

8 
2 TCVHD-TB 

2 TCVBE-TB 

3 T23MS+40-T23 SET IN MSG 

2 HA+2-TB GET 'WENT TO" HD 

8 

2 TCVBE-TB 

3 T23MS+4S-T23 SET IN MSG 



2 TLGMS-TB 
T23MS 

2 THALT-TB 

2 SIO-TB 
RECAL 



PRINT SEEK ERROR 
♦MESSAGE 

WAIT FOR FE 

RECALIBRATE 



I T2318 RETURN 

FOR ALIGNMENT CYLINDER 



12CB 
12CC 
12CD 
12CE 
12CF 
12D0 
1201 
12D2 
1203 
12D4 



12D5 O 



0002 
0003 
0004 
0047 
0048 
0049 
00 4 A 
004B 
00C8 
0OC9 
OOCA 



12D6 O 0000 

12D7 O 0000 

12D8 0000 

12D9 O 0000 

12DA O FFOO 

12DB O 6300 

12DC O 0000 

12DD O 0000 

12DE 0000 



120F 0006 



14NOV69 
431319 



30JAN70 
431319A 



T23CK DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

T23CN DC 
T23DR DC 
T23SV DC 

T23RT DC 
DC 
DC 

* 

T23SA DC 
DC 
DC 
'* 

* 

T23SK DC 



1 SSEP71 
431328 



*-* 
1 11 
T23CN 
LI T23CK-1 
I T2319 
1 -1 

T2320 
L T2319.1 
I T2319 

* 

*-* 

/CA 

2 

3 

4 

71 

72 

73 

74 

75 

200 

201 

202 




*-* 

• 0000 
/FFOO 

• 6300 


O 
O 



ENTRY 

SET UP COUNTER 

GET 'SEEK TO* CYL 

RETURN TO ENTRY+1 



RETURN TO ENTRY+2 



•AT' CYLINDER 
203 

* ALIGNMENT CYL'S 

* 

* 

* 
* 
* 

* 

CYL NUMBER 

DIR SWITCH <0=FORWARD) 



RESET READ HA 
* ARGUMENT 

*** 

SEEK ARG 



BYTE COUNT 



PART NO. 
PAGE 



81229940 

81229950 

81229960 

81229970 

81229980 

81 229990 

81230000 

81230010 

81230020 

81230030 

81230040 

81230050 

81230060 

81230070 

81230080 

81230090 

81230100 

81230110 

81230120 

81230130 

81230140 

81230150 

81230160 

81230170 

81230180 

81230190 

81230200 

81230210 

81230220 

81230230 

81230240 

81230250 

81230260 

81230270 

81230280 

81230290 

81230300 

81230310 

81230320 

81230330 

81230340 

81230350 

81230360 

81230370 

81230380 

81230390 

81230400 

81230410 

81230420 

81230430 

81230440 

81230450 

81230460 

81230470 

81230480 

81230490 

81230500 

81230510 

81230520 

81230530 

81230540 

81230550 

81230560 

81230570 

81230580 

81230590 

81230600 

81230610 



PROG ID 
PAGE 



2279467 
23 



( 
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PART NO. 2279467 
PAGE 23A 



0812-A 
23 



12E0 4007 
12E1 1 12DC 



DC 
DC 



* 



/40*256+SEEKC FLAGS AND OP CODE 
T23SA ADDRESS 



12E2 





0005 


12E3 





001A 


12E4 


1 


08C8 


12E6 




0000 


12E6 




0015 


12F5 





OOFF 


12F6 




0015 


1305 





OOFF 


1306 




0014 


1314 





FFOO 


1315 





FFFF 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
HA ADDRESS 



•WAS AT* CYL-XXXX, HD-XX 
/OOFF 

. "SEEK TO* CYL-XXXX, HD-XX 
/OOFF 

•HA READ' CYL-XXXX, HD-XX. 
/FFOO 
/FFFF 



DC 

DC 

DC 
* 

BSS 
T23MS PRNT 

DC 

PRNT 

DC 

PRNT 

DC 

DC 

* 
* 

* 

* ROUTINE 4 WORST CASE ACTUATOR 

* 

* 
* 
* 

* 
* 
* 
* 

* 

* 
* 
* 
* 
* 

* 

********************** *********$*$***£**$£ ^^^^^ 

* 

**************************** ** ********************* 

TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
TO PRINT ROUTINE 
MESSAGE ADDRESS 

GET CHANNEL FOR RTN 
SET UP LOOP CNTR 



THIS ROUTINE WILL CONTINUOUSLY SEEK BETWEEN 
CYLINDER 6 AND CYLINDERS 7,9,11,18,36,70,76, 
81,86, AND 198 FOR 20 SEEKS. THIS IS A 
STRESS TEST ON THE ACTUATOR AND FAILURES WILL 
SHOW UP AS UNDERSHOOTING OR OVERSHOOTING BY 1 
OR MORE CYLINDERS. 

COMPONENTS CHECK BD . 
FORWARD SOLENOID 
REVERSE SOLENOID 
INTERMEDIATE, SLOW AND STOP 



1316 









T2401 


EQU 




* 


1316 


1 


7401 


0815 




MDX 


L 


TRID.l 


1318 


1 


4C18 


131D 




BZ 




T2402 


131A 





9297 






S 


2 


Kl-TB 


131B 


1 


4C20 


13AB 


* 
T2402 


BNZ 




T2501 


131D 





C283 




LD 


2 


TSWO-TB 


131E 





100A 






SLA 




OTTLE 


131F 


1 


4C10 


1323 




BNN 




T2403 


1321 





4203 






BSI 


2 


TLGMS-TB 


1322 


1 


1372 




* 
T2403 


DC 




TTL24 


1323 





42E8 




BSI 


2 


GETDV-TB 


1324 





C2A0 






LD 


2 


K20-TB 


1325 





D2DD 






STO 


2 


LPCNT-TB 


J326 





1CA0 






SLT 




32 


132? 





DA49 






STD 


2 


HA-TB 


1328 





610A 




T2407 
T2408 


LDX 


1 


10 


1329 


9 


C29B 




LD 


2 


K6-TB 


132A 





DOAB 




* 


STO 




T23CN 



SET "WENT TO' CYL=0 
SET UP CYL TABL CNTR 

SET 'SEEK TO* CYL = € 



OATE 

EC NO. 



14 NOV 69 

431319 



30JAN70 15SEP7S 
431319A 431328 



81230620 

81230630 

81230640 

81230650 

81230660 

81230670 

81230680 

81230690 

81230700 

81230710 

81230720 

81230730 

81230740 

81230 750 

81230760 

81230770 

81230780 

81230790 

81230800 

81230810 

81230820 

81230830 

81230840 

81230850 

81230860 

81230870 

81230880 

81230890 

81230900 

81230910 

81230920 

81230930 

81230940 

81230950 

81230960 

81230970 

81230980 

81230990 

81231000 

81231010 

81231020 

81231030 

81231040 

81231050 

81231060 

81231070 

81231080 

81231090 

81231100 

81231110 

81231120 

81231130 

81231140 

81231150 

81231160 

81231170 

81231180 

81231190 

81231200 

81231210 

81231220 

81231230 

81231240 

81231250 

81231260 

81231270 

81231280 

81231290 



PROG ID 
PAGE 



0812-A 
23A 



!■ 

C 

c 

c 

c 

c 

o 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

o 

o 

o 

c 

c 

c 

o 

o 

c 

c 

o 
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DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



1SSEP71 
431328 
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132B CA49 




T2404 LDD 


2 HA-TB 




81231300 


132C 18D8 






RTE 


24 


SAVE 'WENT TO* CYL 


81231310 


132D D2DB 






STO 


2 T23LC-TB 


**» 


81231320 


132E C28D 




* 


LD 


2 TERM-TB 


RESET READ AREA 


81231330 
81231340 


132F D249 
1330 D24A 






STO 
STO 


2 HA-TB 
2 HA+l-TB 


*** 
*** 


81231350 
81231360 


1331 D24B 




* 


STO 


2 HA+2-TB 


*** 


81231370 
81231380 


1332 C0A3 






LD 


T23CN 


SET UP SEEK ARG 


81231390 


1333 D0A9 




* 


STO 


T23SA+1 


* FOR CYL 6 


81231400 












81231410 


1334 42EE 

1335 1 12DF 




* 


BSI 
DC 


2 SIO-TB 
T23SK 


EXEC CHNL PGM 


81231420 
81231430 












81231440 


1336 C236 

1337 100E 

1338 1 4C10 


133C 




LD 

SLA 

BNN 


2 SCSX0+1-TB TEST FOR UNIT CK 
UNCHK *** 
T2405 BRANCH IF OFF 


81231450 
81231460 
81231470 


133A 4049 




* 


BSI 


T24E1 


PRINT ERROR IF ON 


81231480 
81231490 


133B 2401 






DC 


•2401 


*** 


81231500 


133C CA49 




T2405 LDD 


2 HA-TB 


GET «WENT T0» CYL 


81231510 


133D 18D8 
133E F097 






RTE 
EOR 


24 
T23CN 


EQUAL 'SEEK TO* CYL 


81231520 
81231530 


133F 1 4C18 


1343 


* 


BZ 


T2409 


BRANCH IF EQUAL 


81231540 
81231550 


1341 404D 






BSI 


T24E2 


PRINT ERROR IF 


81231560 


1342 2403 




* 


DC 


•2403 


* WRONG CYL 


81231570 
81231580 


1343 CA49 




T2409 LDD 


2 HA-TB 


SAVE 'WENT TO* CYL 


81231590 


1344 18D8 






RTE 


24 


* FOR 'WAS AT" CYL 


81231600 


1345 D2DB 






STO 


2 T23LC-TB 




81231610 


1346 C24B 






LD 


2 HA+2-TB 


SAVE 'WENT TO* HD 


81231620 


1347 1808 






SRA 


8 


* FOR 'WAS AT* HD 


81231630 


1348 D2DC 






STO 


2 T23LH-TB 




81231640 


1349 C28D 






LD 


2 TERM-TB 


RESET READ AREA 


81231650 


134A D249 






STO 


2 HA-TB 




81231660 


134B D24A 






STO 


2 HA+l-TB 




81231670 


134C D24B 




* 


STO 


2 HA+2-TB 




81231680 


134D 1 C500 


13A0 


LD 


LI T24CY-1 


GET NEXT CYL 


81231690 
81231700 


134F 1 D400 


12DD 




STO 


L T23SA+1 


STOR IN *SEEK TO* LOC 


81231710 


1351 1 D400 


12D6 


* 


STO 


L T23CN 


• 


81231720 












81231730 


1353 42EE 






BSI 


2 SIO-TB 


EXEC CHNL PGM 


81231740 


1354 1 12DF 




* 


DC 


T23SK 




81231750 


1355 C236 




LD 


2 SCSX0+1-TB 


TEST FOR UNIT CK 


81231760 
81231770 


1356 100E 






SLA 


UNCHK 


*** 


81231780 


1357 1 4C10 


135B 


* 


BNN 


T2406 


BRANCH IF OFF 


81231790 
81231800 


1359 402A 
135A 2402 




* 


BSI 
DC 


T24E1 
•2402 




81231810 
81231820 


135B CA49 




T2406 


LDD 


2 HA-TB 


- 


81231830 
81231840 


135C 18D8 
135D 1 F400 


1206 




RTE 
EOR 


24 
L T23CN 




81231850 
81231860 


135F 4 4C18 


1368 


* 


BZ 


T2410 


BRANCH IF EQUAL 


81231870 
81231880 


1361 402D 






BSI 


T24E2 




81231890 


1362 2404 




* 


DC 


/2404 




81231900 












81231910 


1363 C263 






LD 


2 TSWO-TB 


TEST LOOP ON ERROR 


81231920 


1364 100C 






SLA 


OLPER 


*** 


81231930 


1365 1 4C28 


L32B 


* 


BN 


T2404 


YES 


81231940 
81231950 


1367 7005 




* 


MDX 


T24EN 


END ROUTINE 


81231960 
81231970 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



1368 71FF 

1369 708F 

136A 1 74FF 085C 

136C 70BB 



136D 42E5 

136E C2C1 

136F 1 4C18 13AB 

1371 42DF 

1372 0007 

1379 0010 

1383 FFFF 



1 -1 

T2408 

L LPCNT.-l 
T2407 



DECREMENT CYL TBL PTR 
DO ALL CYLINDERS 

TEST 20 PASSES 
NO, RETURN 



T2410 MDX 
MDX 

* 

MDX 
MDX 

* 

* GO TO NEXT ROUTINE IN SEQUENCE 

2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SWS 

T2501 GO TO NEXT RTN IN SEQ 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT 2.RT 4- . 



♦WORST CASE ACTUATOR. 
/FFFF 



1384 

1385 1 

1387 

1388 O 

1389 O. 
138A O 



0000 

C480 1384 

D002 

42E2 

0167 

0000 



T24EN BSI 

LD 

BZ 

BSI 
TTL24 PRNT 

PRNT 
DC 

* 

* UNIT CHECK ON SEEK/READ HA CHAIN 

*-* ENTRY 

I T24E1 
T24E5 
2 EROUT-TB 
• 0167 
*-* 



138B 1 7401 1384 
138D 1 4C80 1384 



L T24E1.1 
I T24E1 



138F 
1390 
1391 
1393 
1394 
1395 
1396 



O 0000 

6B0D 

1 C480 138F 
D002 

42E2 

O 0163 

O 0000 



T24E1 DC 

LD 

STO 

BSI 

DC 
T24E5 DC 
* 

MDX 

BSC 
* 

* WRONG CYLINDER AFTER DETENTING 

* 

T24E2 DC *-* 

STX 3 T24EA+1 SAVE XR3 

LD I T24E2 

STO T24E6 

BSI 2 EROUT-TB 

DC /0163 

T24E6 DC *-* 



1397 1 6700 12C9 

1399 1 4400 1298 

139B 1 7401 138F 

139D 6700 0000 

139F 1 4C80 138F 



LDX L3 T23 

BSI L T2318 

MDX L T24E2. + 1 

T24EA LDX L3 *-* 

BSC I T24E2 

* 

* TABLES AND CONSTANTS 

* 



SET UP POINTER 
PRNT 'AT.SK.WENT* 
INCREMENT RETURN 
RESTORE XR3 



13A1 





00C6 


13A2 





0056 


13 A3 





0051 


13A4 





004C 


13A5 





0046 


13A6 





0024 


13A7 





0012 


13A8 





0008 


13A9 





0009 


13AA 





0007 



**** CYLINDER TABLE **** 

* 
* 
* 

* 
* 



PART NO. 2279467 
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T24CY DC 198 

DC 86 

DC 81 

DC 76 

DC 70 

DC 36 

DC 18 

DC 11 

DC 9 

DC 7 

* 

* ROUTINE — 5— RANDOM SEEKS 

**************************** *******S3$**S^ % ^ p ^^^ 

* 



PROG ID 


Q812-A 


DATE 


14N0V69 


30JAN70 


1SSEP71 


PAGE 


24 


EC NO. 


431319 


431319A 


431328 



81231980 

81231990 

81232000 

81232010 

81232020 

81232030 

81232040 

81232050 

81232060 

81232070 

81232080 

81232090 

81232100 

81232110 

81232120 

81232130 

81232140 

81232150 

81232160 

81232170 

81232180 

81232190 

81232200 

81232210 

81232220 

81232230 

81232240 

81232250 

81232260 

81232270 

81232280 

81232290 

81232300 

81232310 

81232320 

81232330 

81232340 

81232350 

81232360 

81232370 

81232380 

81232390 

81232400 

81232410 

81232420 

81232430 

81232440 

81232450 

81232460 

81232470 

81232480 

81232490 

81232500 

81232510 

81232520 

81232530 

81232540 

81232550 

81232560 

81232S70 

81232580 

81232590 

81232600 

81232610 

81232620 

81232635* 

81232640 

81232650 
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0812-A 
24A 



2 

c 
c 
o 

G 
O 
O 
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o 
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DATE 
EC NO. 



13AB O 

13 AB 1 7401 08 IS 
13AD 1 4C18 13B2 

13AF 9297 

13B0 1 4C20 1454 

13B2 O C283 

13B3 100A 

13B4 1 4C10 13B8 

13B6 4203 

13B7 1 1422 

13B8 42E8 
13B9 1 6700 1448 
13BB 1 6C00 1448 
13BD C2AF 
13BE O D302 

13BF C2BC 
13C0 D2D6 

13C1 O 42EE 
13C2 1 144B 

13C3 1010 
13C4 O D2D6 



* 

* 
* 
* 

* 

* 
* 
* 
* 
* 

* 

***** 

* 

***** 

* 

***** 

* 

***** 

T2501 



THIS ROUTINE WILL PERFORM CONTINUOUS RANDOM 
SEEKS FOR APPROXIMATELY 500 CYLINDERS. AFTER 
DETENTING AT EACH RANDOM CYLINDER. THE HOME 
ADDRESS IS READ WITH A RANDOM HEAD TO CHECK 
ACCESS LOCATION. 

THE POWER RESIDUE METHOD IS USED TO GENERATE 
THE RANDOM NUMBERS UTILIZED. THE INITIAL 
STARTING NUMBER USED AS INPUT TO THE RANDOM 
NUMBER GENERATOR IS ALSO RANDOMIZED BY USING 
A PROGRAM COUNTER TO WAIT FOR THE FIRST BYTE 
TO TRANSFER INTO CORE DURING A RECALIBRATE, 
RHA CHAIN. THIS COUNT IS USED FOR THE START- 
ING NUMBER. 



********************************************** 

* 
********************************************** 

***************** ***************************** 

* 
************************* ********************* 

EQU 

MDX 

BZ 

S 

BNZ 



* 
T2502 



LD 
SLA 

BNN 
BSI 
DC 



L TRID.l 
T2502 
2 Kl-TB 
T2601 

2 TSWO-TB 
OTTLE 
T2503 



TEST ENTRY POINT 

BUMP RTN ID 

BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 



2 TLGMS-TB GO TO PRINT ROUTINE 



TTL25 



* 
T2S03 



BSI 2 GETDV-TB 

LDX L3 T25 

STX L T25RN 

LD 2 HOOFF-TB 

STO 3 T25HA-T25 



13C5 1 
13C7 O 
13C8 
13C9 F2AF 
13CA 4818 
13CB O 70F9 



7401 1448 

1000 

C302 



* 
T2504 



13CC 
13CD 
13CE 
13CF 
1300 
13D1 
13D2 
13D3 



1006 
1806 
EA97 
D300 
1020 
DA49 
C2A4 
D2DD 



13D4 CBOA 
13D5 1 DCOO 12DD 



T2505 

* 
T2506 



LD 
STO 

BSI 
DC 

SLA 
STO 

MDX 

NOP 

LD 

EOR 

SKP 

MDX 

SLA 

SRA 

OR 

STO 

SLA 

STD 

LD 

STO 

LDD 
STD 



2 H8000-TB 
2 SIOSW-TB 



2 SIO-TB 
T25RR 



16 

2 SIOSW-TB 



T25RN.1 



MESSAGE ADDRESS 

GET CHANNEL FOR RTN 
SET UP CNSTNT PNTR 
GET STARTING NUMBER 
RESET READ ADDRESS 



SET EARLY RETURN SW 

* 

EXEC CHNL PGRM 



RESET EARLY RET SW 

* 

INCREMENT STARTING 



3 T25HA-T25 * NUMBER 

2 HOOFF-TB ANY TRANSFER 



+- 
T2504 

6 
6 

2 Kl-TB 

3 T25RN-T25 
32 

2 HA-TB 
2 K500-TB 
2 LPCNT-TB 



YES 

NO .LOOP 



SHIFT STARTING NUMBER 



SET 'WENT T0« CYL=0 
SET LOOP CNTR = 500 



3 T25IN-T25 SET UP INITIAL SEEK ARG 
T23SA+1 *** 



14N0V69 
431319 



30JAN70 

431319A 



15SEP71 
431326 



81232660 

81232670 

81232680 

81232690 

81232700 

81232710 

81232 720 

81232730 

81232740 

81232750 

81232760 

81232 770 

81232780 

81232790 

81232800 

81232810 

81232820 

81232830 

81232840 

81232850 

81232860 

81232870 

81232 880 

81232890 

81232900 

81232910 

81232920 

81232930 

81232940 

81232950 

81232960 

81232970 

81232980 

81232990 

81233000 

81233010 

81233020 

81233030 

81233040 

81233050 

81233060 

81233070 

81233080 

81233090 

81233100 

81233110 

81233120 

81233130 

81233140 

81233150 

81233160 

81233170 

81233180 

81233190 

81233200 

81233210 

81233220 

81233230 

81233240 

81233250 

81233260 

81233270 

81233280 

81233290 

81233300 

81233310 

81233320 

81233330 
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14NOV69 

431319 



30JAN70 

431319A 
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■* 








81233340 


13D7 C300 




T2507 LD 


3 T25RN-T25 


GET NUMBER 


81233350 


13D8 A301 






M 


3 T25XX-T25 


MULT BY X-FACTOR 


81233360 


13D9 18D0 






XCH 




GET LO ORDER 


81233370 


13DA D300 






STO 


3 T25RN-T25 


SAVE NUMBER 


81233380 


13DB E2BE 






AND 


2 HFFOO-TB 


* 


81233390 


13DC 1808 






SRA 


8 


* 


81233400 


13DD 1 D400 


12DD 




STO 


L T23SA+1 


SET UP 'SEEK TO' CYL 


81233410 


13DF 1 D400 


12D6 




STO 


L T23CN 


SAVE FOR ALIGN CK 


81233420 


13E1 930A 






S 


3 T2SIN-T25 


CYL LT OR EQ TO 202 


81233430 


13E2 4810 






SKP 


- 


YES 


81233440 


13E3 70F3 




* 


MDX 


T2507 


NO 


81233450 
81233460 


13E4 C300 






LD 


3 T25RN-T25 


GET NEW NUMBER 


81233470 


13E5 180C 






SRA 


12 


* HD NUMBER 


81233480 


13E6 1 D400 


12DE 




STO 


L T23SA+2 




81233490 


13E8 930B 






S 


3 T25IN+1-T25 HD LT OR EQ TO 9 


81233500 


13E9 4810 






SKP 




YES 


81233510 


13EA 70EC 




* 


MDX 


T2507 


NO 


81233520 
81233530 


13EB C283 




T250 8 


LD 


2 TSWO-TB 


GET OPTION SWS 


81233540 


13EC 1009 






SLA 


OSALC 


TEST SEEK ALIGN CYLS 


81233550 


13ED 1 4C28 


13F2 


* 


BN 


T2509 


BRANCH IF ON 


81233560 
81233570 


13EF 1 4400 


12BC 




BSI 


L T2319 


GO CK FOR ALIGNMENT CYL 


81233580 


13F1 70E2 




* 


MDX 


T2506 


RETURN HERE IF YES 


81233S90 
81233600 


13F2 CA49 




T2509 


LDD 


2 HA-TB 


RETURN HERE IF NO 


81233610 


13F3 1088 






SLT 


8 


SAVE 'WENT TO 1 CYL 


81233620 


13F4 D2DB 






STO 


2 T23LC-TB 


* FOR 'WAS AT* CYL 


81233630 


13F5 C24B 






LD 


2 HA+2-TB 




81233640 


13F6 1808 






SRA 


8 


SAVE 'WENT TO' HD 


81233650 


13F7 D2DC 




* 


STO 


2 T23LH-TB 


* FOR 'WAS AT" HD 


81233660 
81233670 


13F8 C28D 






LD 


2 TERM-TB 


RESET READ AREA 


81233680 


13F9 D249 






STO 


2 HA-TB 


*** 


81233690 


13FA D24A 






STO 


2 HA+l-TB 


*** 


81233700 


13FB D24B 




* 


STO 


2 HA+2-TB 


*** 


81233710 
81233720 


13FC 42EE 




T2510 


BSI 


2 SIO-TB 


EXEC CHNL PGM 


81233730 


13FD 1 12DF 




* 


DC 


T23SK 




81233740 
81233750 


13FE 4209 






BSI 


2 TLPST-TB 


TEST LOOP SIO 


81233760 


13FF 1 13FC 




* 


DC 


T2510 


LOOP ADDRS 


81233770 
81233780 


1400 C236 






LD 


2 SCSXO+1-TB 


TEST FOR UNIT CK 


81233790 


1401 100E 






SLA 


UNCHK 


*** 


81233800 


1402 1 4C10 


140A 


* 


BNN 


T2511 


BRANCH IF OFF 


81233810 
81233820 


1404 1 4400 


12BC 




BSI 


L T2319 


GO CK FOR ALIGNMENT CYL 


81233830 


1406 702D 




* 


MDX 


T2514 


RETURN HERE IF YES 


81233840 
81233850 


1407 1 4400 


1384 




BSI 


L T24E1 


GO PRINT ERROR IF UNIT 


81233860 


1409 2511. 


- 


* 


DC 


/2501 


* CK AND NOT ALIGN. CYL 


81233870 
81233880 


140A CA49 




T2511 


LDD 


2 HA-TB 


TEST 'SEEK TO' AND 


81233890 


140B 1088 






SLT 


8 


* 'WENT TO' HD AND 


81233900 


140C 1. F400 


12DD 




EOR 


L T23SA+1 


* CYL 


81233910 


140E 4820 






SKP 


Z 


*** 


81233920 


140F 7006 






MDX 


T2512 


*** 


81233930 


1410 C24B 






LD 


2 HA+2-TB 


*** 


81233940 


1411 1808 






SRA 


8 


*** 


81233950 


1412 1 F400 


12DE 




EOR 


L T23SA+2 


*** 


81233960 


1414 1 4C18 


1430 


* 


BZ 


T2513 


BRANCH IF CORRECT 


81233970 
81233980 


1416 1 4400 


138F 


T2512 


BSI 


L T24E2 


60 PRINT ERROR 


81233990 


1418 2502 






DC 


/2S02 




812340OO 


1419 1 4400 


1298 




BSI 


L T2318 


GO PRINT •AT,SEEK,WENT« 


81234010 



15SEP71 
431328 
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DATE 
EC NO. 



141B 4206 
141C 1 13FC 



141D 42E5 

141E C2C1 

141F 1 4C18 1454 

1421 42DF 

1422 0007 

1429 0006 
142F FFFF 

1430 1 74FF 08SC 

1432 70A4 

1433 O 70E9 

1434 1 C400 12DD 

1436 O 1088 

1437 O D24A 

1438 1 C400 12DE 
143A O 1088 
143B D24B 
143C 70F3 



BSI 
DC 



2 TLPER-TB 
T2510 



TEST FOR LOOP ON ERROR 
LOOP ADDRS 



GO TO NEXT ROUTINE IN SEQUENCE 



2 FREDV-TB 
2 TRTNN-TB 

T2601 
2 CNTRL-TB 



. SECT 2,RT 5- 

. RANDOM SEEKS. 
/FFFF 



143D 
143F 
1440 
1442 
1444 
1445 
1447 



C400 085A 
D302 

C400 12DD 
D400 085A 
C302 

D400 12DD 
70A3 



* 

* 
* 
T25EN BSI 

LD 

BZ 

BSI 
TTL25 PRNT 

PRNT 

DC 
* 
T2513 MDX 

MDX 

MDX 
* 
T2514 LD 

SLT 

STO 

LD 

SLT 

STO 

MDX 
* 
T2515 LD 

STO 

LD 

STO 

LD 

STO 

MDX 
* 

* DATA AND CONSTANTS 

* 



FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SEQ 
GO TO CONTROL RTN 



L LPCNT.-l 
T2507 
T25EN 

L T23SA+1 
8 
2 HA+1-T8 
L T23SA+2 
8 
2 HA+2-TB 
T2513 



DECREMENT LOOP CNTR 

RETURN 

ELSE END ROUTINE 

MOVE 'SEEK TO" CYL INTO 

* 'WENT TO* CYL 

* 

MOVE 'SEEK TO« HO INTO 

* "WENT TO» HD 

* 



L T23LC SWAP 'WAS AT" AND 

3 T25HA-T25 * 'SEEK TO' CYL'S 

L T23SA+1 

L T23LC 

3 T25HA-T25 

L T23SA+1 
T2508 



1448 O 

1448 0000 

1449 0103 
144A 0000 



144B 0001 
144C 6013 
144D 1 144E 



144E 0002 
144F 201A 
1450 1 144A 



1452 0000 

1452 OOCB 

1453 000A 



T25 EOU 

T25RN DC 
T25XX DC 
T25HA DC 

* 
* 

T25RR DC 
DC 



* 

*-* 

259 

*-* 



STARTING NUMBER 

MULTIPLIER 

READ HA COKP SW 



* 
* 



* 



DC 



DC 
DC 
DC 



1 BYTE COUNT 

/60*256+RCAL FLAGS AM) OP CODE 
* ADD RESS 



2 BYTE COUNT 

/20*256+K>HA FLAGS AM) OP CODE 
T25HA ADD RESS 





/OOCB 

/000A 



INITIAL SEEK ARG - 
CYL=203 
MJ=10 



1454 42DF 



14N0V69 
431319 



30JAN70 
431319A 



BSS 
T25IN DC 
DC 

Hi 
* 

* * 

***************** ******************:;:****** * ******** 

* SECTION END 

* 

T2601 BSI 2 CNTRL-TB GO TO CONTiROL RTN 

******************** ******************************* 



15SEP71 
431328 
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81234020 

81234030 

81234040 

81234050 

81234060 

81234070 

81234080 

81234090 

81234100 

81234110 

81234120 

81234130 

81234140 

81234150 

81234160 

81234170 

81234180 

81234190 

81234200 

81234210 

81234220 

81234230 

81234240 

81234250 

81234260 

81234270 

81234280 

81234290 

81234300 

81234310 

81234320 

81234330 

81234340 

81234350 

81234360 

81234370 

81234380 

81234390 

81234400 

81234410 

81234420 

81234430 

81234440 

81234450 

81234460 

81234470 

81234480 

81234490 

81234500 

81234510 

81234520 

81234530 

81234540 

81234550 

81234560 

81234570 

81234580 

81234590 

81234600 

81234610 

81234620 

81234630 

81234640 

81234650 

81234660 

81234670 

81234680 

81234690 
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*•-*■ *• *■■*■ 


**■***■* 


**F^ 


V******** 


f ************** ****** ****** 


** 


81234700 










* 












81234710 










* 


SECTION 


PREFACE 






81234720 










* 












81234730 


1455 





0003 




T30PR 


DC 




/0003 


SECTION NUMBER 




81234740 


1456 





0004 




* 


DC 




4 






81234750 
81234760 


1457 





C2C1 




T30NT 


LD 


2 


TRTNN-TB 


SW FNC 1 BITS 12-15 




81234770 


1458 


1 


4C18 


145F 




BZ 




T31P1 


BR IF RUN ALL RTNS 




81234780 


145A 





90FB 






S 




T3 0PR+1 


TEST FOR VALID 




81234790 


145B 


1 


4C30 


0A4E 




BP 




TCNER 


BR IF INVALID RTN NUMBER 




81234800 


145D 





80F8 






A 




T3 0PR+1 


RESTORE RTN NUMBER 




81234810 


145E 





7000 






MDX 




T3101 


GO TO FIRST RTN 




81234820 










******************** ************* *** *************** 


81234830 










* 










* 


81234840 



********************** ***************************** 81234850 

* 81234860 

* 81234870 

* 81234880 

*************************************************** 81234890 

* 



THIS 

HEAD 



ROUTINE WILL 
FROM TO 9. 



FOLLOWED BY A READ RO 
A MAP (ARRAY). AFTER 
(ALL HEADS USED). THE 
AN ERROR OCCURRED AND 
LATE THE CAUSE OF THE 



CONSTRUCT A MAP 
THE RESULTS OF 



USING EACH 
A WRITE RO 



ARE CODED AND STORED IN 
THE MAP IS CONSTRUCTED 
ROUTINE DETERMINES IF 
IF SO ATTEMPTS TO ISO- 
ERROR. 



THE CHANNEL WILL SEND 100 BYTES OF RO DATA TO 
THE 284 1. BUT THE DATA LENGTH IN THE RO COUNT 
IS 3600 BYTES. CONSEQUENTLY, THE 2841 WILL 
WRITE AND READ BACK A FULL TRACK RECORD. 



RO DATA 
E5ES. 



PATTERNS USED ARE 0000 .FFFF . 1313. AND 



145F 

145F 1 7401 0815 



* ROUTINE 1 WRITE 

* 

********************************** ***************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

.* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

****************************************** ********* 

* * 

****************************************** ********* 

* 

****************************************** ********* 

♦ * 

******************************************** ******* 

T3101 EQU * TEST ENTRY POINT 

!C!X L TRID»1 BUMP RTN ID 



MAP CODES 

WX...NO RECORD FND ON WRITECHA NOT FND) 
WU... UNSAFE ON WRITE 

WS...SERIALIZER/DESERIALIZER CK ON WRITE 
WW. ..SOME OTHER SENSE BIT ON WRITE 
SD...SERIALIZER/DERSERIALIZER CK ON READ 
BC... BURST (DATA) CHECK ON READ 
NX... NO RECORD FOUOD ON READ 
SE...SOME OTHER SENSE BIT ON READ 
RN...READ DATA DOES NOT EQUAL WRITE DATA 
OK. ..HEAD FUNCTIONED CORRECTLY 



EQUIPMENT CHECKED 

WRITE DRIVER 
ERASE DRIVER 
HEADS 



DATA 
SOME 
2841 



TRANSFER 

BUS AND TAG LINES 

SER/DES 



PROG ID 


0SI2-A 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


26 i 


EC NO. 


431319 


431319A 


431328 



81234900 

81234910 

81234920 

81234930 

81234940 

81234950 

81234960 

81234970 

81234980 

81234990 

8123500O 

81235010 

81235020 

81235030 

81235040 

81235050 

81235060 < 

81235070 

81235080 

81235090 

81235100 

81235110 

81235120 

81235130 

81235140 

81235150 

81 2351 60 

81235170 

81235180 

81235190 

81235200 

81235210 

81235220 

81235230 

81235240 

81235250 

81235260 

81235270 

81235280 

81235290 

81235300 

81235310 

81235320 

81235330 

81235340 

81235350 

81235360 

81235370 
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G 

c 
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DATE 
EC NO. 



1461 
1463 
1464 


1 


1 


4C18 
9297 
4C20 


1466 
170A 


BZ 

S 

BNZ 

* 

T3102 LD 


T3102 

2 Kl-TB 

T3201 


1466 





C283 




2 TSWO- 



14 67 100 A 

1468 1 4C10 146C 

14 6A 4203 

146B 1 15AE 

146C 42E8 

146D 1 6700 1496 

146F 1 6F00 19B2 



1471 O 42EE 

1472 1 1631 

14 73 C236 

1474 100E 

1475 1 4PC10 147B 

1477 42E2 

1478 0127 

1479 3110 
147A 70F6 

147B CA49 

147C 1088 

147D 1 F400 164A 

147F 1 4C18 1493 



T3103 
T3104 

* 
* 

T3105 



BR IF TEST NUMBER ZERO 
DECREMENT BY ONE 
BR IF NOT THIS TEST 



GET OPTION SWS 
SLA OTTLE PRINT TITLES 

BNN T3103 BR IF NOT SET 

BSI 2 TLGMS-TB GO TO PRINT ROUTINE 

DC TTL31 MESSAGE ADDRESS 



BSI 2 GETDV-TB 

LDX L3 T3108 
STX L3 WTADR 



GET CHANNEL FOR RTN 



POSITION AND CHECK IF ACCESS IS AT CYL-198- 
CALL START I/O RTN 



BSI 
DC 



2 SIO-TB 
T31S5 



LD 

SLA 

BNN 

8SI 
DC 
DC 
MDX 



2 SCSXO+1-TB GET UNIT STATUS 

UNCHK CHECK FOR UNIT CHECK 

T3106 



2 EROUT-TB 
/0127 
• 3110 
T3105 



PRINT ERROR MESSAGE 
TAGS AND OPTIONS 
MSG NUMBER 



T3106 



CHECK THAT ACCESS IS DETENTED AT CYL -198- 



LDD 2 HA-TB 

SLT 8 

EOR L T31A1+1 
BZ T3107 



1481 





C249 




1482 





42F4 




1483 


1 


DCOO 


1698 


1485 





C24A 




I486 





42F4 




1487 


1 


DCOO 


169A 


1489 





C24B 




148A 





42F4 




148B 


1 


D400 


169C 


148D 





42E2 




148E 





0108 




148F 


1 


1692 




1490 





4206 




1491 


1 


1471 




1492 





7065 





LD 

BSt 

STD 

LD 

BSI 

STD 

LD 

BSI 

STO 

BSI 

DC 

DC 



HA-TB 

TCVBE-TB 

T31E5+6 

HA+1-T^ 

TCVBE-TB 

T31E5+8 

HA+2-TB 

TCVBE-TB 

T31E5+10 

EROUT-TB 

/0108 

T31E5 



BSI 2 TLPER-TB 

DC T3105 

MDX T3118 



GET HA READ 
SAVE CYL 
COMPARE W/SB 
BR IF OK 

ELSE PRNT HA READ 

** 

** 

PRINT ERROR MSG 

TAGS 

MSG ADDRESS 

TEST LOOP ERROR 
LOOP AODRS 
ELSE END RTN 











* 

* 
T3107 


GO DO THE WRITE 




1493 





42EE 




BSI 


2 


SIO-TB 


GO TO SIO RTN 


1494 


1 


163A 




£ 


DC 




T31WR 


CCW ADDRESS 


1495 





7004 






MDX 




T3109 












* 


TIMEOUT 


RETURN WITH UNIT OR 2841 HUNG 


1496 





42E2 




T3108 


BSI 


2 


EROUT-TB 




1497 





0106 






DC 




• 0106 




1498 





3112 






DC 




/3112 




1499 





70F9 




* 
T3109 


MDX 




T3107 




149A 


1 


6700 


14B6 


LDX 


L3 


T3U2 


SET TIMEOUT RETURN 


14 9C 


1 


6F00 


19B2 




STX 


L3 


WTADR 


** 


149E 





C29F 






LD 


2 


K10-TB 


SET LOOP COUNT 


149F 





D2DD 






STO 


2 


LPCNT-TB 


** 


14A0 


1 


6500 


1628 




LDX 


LI 


T31DA 


SET PATTERN POINTER 


14A2 





6900 






STX 


I 


T3111+I 





14N0V69 
431319 



30JAN70 
431319A 



15SEP71 

431328 
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81235380 

31235390 

81235400 

81235410 

81235420 

81235430 

81235440 

81235450 

81235460 

81235470 

81235480 

81235490 

81235500 

81235510 

81235520 

81235530 

81235540 

81235550 

81235560 

81235570 

81235S80 

81235590 

81235600 

81235610 

81235620 

81235630 

8123S640 

81235650 

81235660 

81235670 

81235680 

81235690 

81235700 

81235710 

81235720 

81235730 

81235740 

81235750 

81235760 

81235770 

81235780 

81235790 

81235800 

81235810 

81235820 

81235830 

81235840 

81235850 

81235860 

81235870 

81235880 

81235890 

81235900 

81235910 

81235920 

81235930 

8 1235940 

81235950 

81235960 

81235970 

81235980 

81235990 

81236000 

81236010 

81236020 

81236030 

81236040 

81236050 



PROG ID 
PAGE 



2279467 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
27 ! 

2841 DIAGNOSTIC - PHASE A 
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DATE 
EC NO. 



14A3 1 6700 167C 

14A5 O 1010 

14A6 1 D400 164E 

14A8 1 D400 169F 

14AA 6108 

14AB 1 D500 161F 

14AD 71FF 

14AE 70FC 

14AF C400 0000 

14B1 O 6132 

14B2 1 D500 16A1 

14B4 71FF 

14B5 70FC 

14B6 1 C400 161F 

14B8 O 6132 

14B9 1 D500 16D7 

14BB 7 IFF 

14BC 70FC 



14BD 42EE 

14BE 1 1637 

14BF C236 

14C0 100E 

14C1 1 4C28 14FA 



14C3 42EE 
14C4 1 1646 

14C5 C236 
14C6 O 100E 
14C7 1 4C28 1511 



14C9 
14CA 1 
14CC 1 
14CE 1 
14D0 
14D1 



6132 

C500 16A1 
F500 16D7 
4C20 1528 
7 IFF 
70F8 



14D2 1 C400 161E 
1404 D300 



14D5 O 7302 

14D6 1 7401 164E 

14D8 I C400 164E 

14DA 1 D400 169F 

14DC 929F 

14DD 1 4C28 1AB6 

14DF C283 
14E0 1008 
14E1 1 4C28 14AF 

14E3 1 C400 1620 
14E5 1 4C20 153E 

14E7 I_ 7401 14B0 
14E9 I C480 14B0 
14EB 1 F400 162C 



14N0V69 

431319 



T3110 



LDX 
SLA 
STO 
STO 
LDX 
STO 
MDX 
MDX 



L3 T31MP 

16 
L T31A2+2 
L T31W1+1 

1 8 
LI T31C0-1 
1 -1 
*-4 



* 
T3111 



* 
T3112 



* 
* 

* 



GENERATE WRITE RECORD O DATA 



CLEAR. A-REG 

SET HD NUMBER TO ZERO 

SET HD NO. IN RO COUNT 

CLEAR COUNTERS 

LOOP 



LD 

LDX 

STO 

MDX 

MDX 



L *-* 

1 50 
LI T31W2-1 

1 -1 
*-4 



RESET READ AREA 

LD 

LDX 

STO 

MDX 

MDX 



GET DATA 



SET IN TBL 



LOOP 



L T31C5 

1 50 
LI T31R2-1 

1 -1 

*-♦ 



SEEK HEAD XX / WRITE RECORD 



BSI 
DC 



2 SIO-TB 
T31WR-3 



CCW ADDRESS 



* 
* 

* 



CHECK FOR AN ERROR 

LD 2 SCSXO+1-TB GET UNIT STATUS 
SLA UNCHK TEST FOR UNIT CHK 

BN T3119 

READ RECORD O 



BSI 
DC 



2 SIO-TB 
T31RD 



T3113 



* 
T3114 



LD 2 SCSXO+1-TB 

SLA UNCHK 

BN T3124 

COMPARE RD/WR DATA 



LDX 

LD 

EOR 

BNZ 

MDX 

MDX 



LI 



1 50 
LI T31W2-1 
T31R2-I 
T3130 
-1 
T3114 



* 
T3115 



DATA GOOD 

LD L T310K 

STO 3 O 

INCR. POINTERS AND HD 



.OK. IN A-REG 



MDX 
MDX 

LD 

STO 

S 

BN 



3 2 



L T31A2+2.1 
L T31A2+2 
L T31W1+1 
2 K10-TB 
T31I2 
TEST FOR LOOP SIO 
LD 
SLA 
BN 



BUMP HD NUMBER 



2 TSWO-TB 

OLPST 

T3111 

CHECK FOR ANY ERRORS LAST PASS 
LD L T31C0 

BNZ T31DC 

BUMP PATTERN POINTER AND LOOP 
MDX L T3 111+1,1 

LD I T3U1 + 1 GET PATTERN 

EOR L T31TM TEST FOR END OF TABLE 



30JAN70 15SEP71 
431319A 431328 
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81236060 

81236070 

81236080 

81236090 

81236100 

81236110 

81236120 

81236130 

81236140 

81236150 

81236160 

81236170 

81236180 

81236190 

81236200 

81236210 

81236220 

81236230 

81236240 

81236250 

81236260 

81236270 

81236280 

81236290 

81236300 

81236310 

81236320 

81236330 

81236340 

81236350 

81236360 

81236370 

81236380 

81236390 

81236400 

81236410 

81236420 

81236430 

81236440 

81236450 

81236460 

81236470 

81236480 

81236490 

8123650O 

81236510 

81236520 

81236530 

81236540 

812365SO 

81236560 

81236570 

81236580 

81236590 

81236600 

81236610 

81236620 

81236630 

81236640 

81236650 

81236660 

81236670 

81236680 

81236690 

81236700 

81236710 

81236720 

81236730 
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DATE 
EC NO. 



14ED 1 4C20 14A3 

14EF 1 74FF 085C 
14F1 70AE 

14F2 C283 
14F3 100A 
14F4 1 4C10 14F8 

14F6 4203 
14F7 1 164F 

14F8 1 4CO0 15A9 



14FA 42EB 



BN2 

MDX 
MDX 

LD 

SLA 

BNN 

BSI 
DC 



T3110 

L LPCNT.-l 
T3110-3 

2 TSWO-TB 

OPRRS 

. T3U8 

2 TL6MS-TB 
T31WH 



BR IF NOT END 

COUNT LOOP 
LOOP IF NOT END 

CHECK PRINT RESULTS SW 

** 

BR IF NOT SET 

GO PRINT RESULTS 
MESSAGE ADDRESS 



T3118 BSC 



14FB 
14FC 
14FD 1 
14FF 
1500 
1501 



CA1D 

108C 

4C10 1502 

402B 

0001 

0002 



1502 1084 

1503 1 4C10 1508 

1505 4025 

1506 0001 

1507 0002 

1508 1082 

1509 1 4C10 150E 
150B 401F 

150C 0001 

150D 0005 

150E 401C 
150F 0001 

1510 0007 



1511 42EB 

1512 CA1D 

1513 1084 

1514 1 4C10 1519 

1516 4014 

1517 0001 

1518 0006 

1519 1088 
151A 1 4C10 151F 
1S1C 400E 
151D 0001 
151E 0003 

151F 1086 

1520 1 4C10 1525 

1522 4008 

1523 0001 

1524 0005 

1525 4005 

1526 0001 

1527 0007 



T3119 BSI 

LDD 

SLT 

BNN 

BSI 

PR NT 

DC 

* 

T3120 SLT 
BNN 
BSI 
PR NT 
DC 

T3121 SLT 

BNN 
BSI 
PRNT 
DC 



L T31EN EIO ROUTINE 

GET HERE IF UNIT CHECK ON WRITE CHAIN 
2 GETSN-TB GET SENSE INFO 



2 SNM3S-TB LOAD WORDS TO AQ 

FNORC TEST FOR NO RECORD FOUND 

T3120 BR IF NOT 

T31SM GO SET MAP 

•WX. MAP CHAR 

2 CNTR INDEX 

FUNSF-FNORC TEST FOR -UNSAFE- 

T3121 BR IF NOT 

T31SM 

•WU. MAP CHARS 

2 INDEX 

FSERD-FUNSF TEST FOR SERI ALIZER/DES. 

T3122 BR IF NOT 

T31SM 

•WS. MAP CHARS 

5 INDEX 



SOME OTHER SENSE BIT 



T31SM 
• WW. 

7 



2 GETSN-TB 
2 SNWDS-TB 

FBRST 

T3125 

T31SM 

.BC. 

6 



MAP CHARS 
COUNTER INDEX 



GET 2841 SENSE INFO 
LOAD TO AQ 

TEST BURST (DATA CHECK) 
BR IF NOT 

MAP CHARS 
INDEX 



14N0V69 
431319 



30JAN70 
431319A 



T3122 BSI 

PRNT 

DC 
* 
* 
T3124 BSI 

LDD 

SLT 

BNN 

BSI 

PRNT 

DC 

T3125 SLT 

BNN 
BSI 
PRNT 
DC 

T3126 SLT 

BNN 
BSI 
PRNT 
DC 

T3127 BSI 
PRNT 

DC 
* 

* GET HERE IF READ DATA DOES NOT AGREE W/WRI T£ 



15SEP71 
43*328 



FNORC-FBRST TEST NO RECORD FOUND 

T3126 BR IF NOT 

T31SM 

•NX. MAP CHARS 

3 INDEX 

FSERD-FNORC TEST SER/DES CHECK 



T3127 
T31SM 
• SO. 
5 

T31SM 

.SE. 

7 



BR IF NOT 



MAP CHARS 
INDEX 



MAP CHARS 
INDEX 



< « I 
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81236740 

81236750 

81236760 

81236770 

81236780 

81236790 

81236800 

81236810 

81236820 

81236830 

81236840 

81236850 

81236860 

81236870 

81236880 

81236890 

81236900 

81236910 

81236920 

81236930 

81236940 

81236950 

81236960 

81236970 

81236980 

81236990 

81237000 

81237010 

81237020 

81237030 

81237040 

81237050 

81237060 

81237070 

81237080 

81237090 

81237100 

81237110 

81237120 

81237130 

81237140 

81237150 

81237160 

81237170 

81237180 

81237190 

81237200 

81237210 

81237220 

81237230 

81237240 

81237250 

81237260 

81237270 

81237280 

81237290 

81237300 

81237310 

81237320 

81237330 

81237340 

81237350 

81237360 

81237370 

81237380 

81237390 

81237400 

81237410 
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DATE 

EC NO, 



1528 4002 

1529 0001 
152A 0004 



152B 
152C 
152E 
152F 
1531 
1533 
1535 
1536 
1538 
153A 
153B 
153D 



0000 

1 C480 152B 

D300 

1 7401 1620 
1 7401 152B 

C480 152B 

D001 

6500 0000 

C500 1620 

8297 



1 D500 1620 
7097 



153E 1 C400 1620 

1540 O 9297 

1541 1 4C20 1545 

1543 403D 

1544 3108 

1545 929E 

1546 1 4C18 1555 



1548 
154A 
154C 
154E 
154F 
1551 
1552 



C400 1623 
8400 1626 
D400 1627 
9298 

4C28 1553 
402F 
3109 



1553 402D 

1554 3110 

1555 1 C400 1621 

1557 929F 

1558 1 4C20 155C 
155A 4026 
155B 3102 

155C 1 C400 1626 

155E O 929F 

155F 1 4C20 1563 

1561 401F 

1562 3103 



1563 1 C400 1623 

1565 929F 

1566 1 4C20 1S6A 

1568 Q 4018 

1569 3104 



T3130 



* 
* 

T31SM 



BSI 

PRNT 

DC 



T31SM 

• RN. 
4 



T31SM BUMP TOTAL CNTR 

BUMP INDEXED CNTR 
MOVE MAP CHARS TO MAP 



DC 

LD 

STO 

MDX 

MDX 

LD 

STO 

LDX 

LD 

A 

STO 

MDX 



L 

L 
I 

LI 
LI 

2 
LI 



*-* 

T31SM 



T31C0.1 

T31SM.1 

T31SM 

*+l 

*-* 

T31C0 

Kl-TB 

T31C0 

T3115 



GET MAP CODE 

SET IN TABLE 

BUMP TOTAL COUNT BY ONE 

BUMP ADDR TO PNTR 

GET ERROR CNTR NUMBER 

SET FOR POINTING 

SET PNTR REG 

GET CNTR 

BUMP BY ONE 

RE-STORE 



* 

* 
T31DC 



DECODE ERROR COUNTERS 



* 
T3133 



* 
T3134 

T3135 



* 
T3136 



* 
T3137 



LD 

S 

BNZ 

BSI 

DC 

S 
B2 

LD 

A 

STO 

S 

BN 

BSI 

DC 

BSI 
DC 



L T31C0 

2 Kl-TB 

T3133 

T31PR 

•3108 

2 K9-TB 
T3135 

T31C0+3 

T31C0+6 

T31C0+7 

K2-TB 

T3134 

T31PR 

/3109 

T31PR 
• 3110 



L 
L 
L 



LD L T31C0+1 

S 2 K10-TB 

BNZ T3136 

BSI T31PR 

DC /3102 

LD L T3IC0+6 

S 2 K10-TB 

BNZ T3137 

BSI T31PR 

DC /3103 

LD L T31C0+3 

S 2 K10-TB 

BNZ T3138 

BSI T31PR 

DC /3104 



156A 


1 


C400 


1622 


* 
T3138 


LD 


L 


T31C0+2 


156C 





929F 






S 


2 


K10-TB 


156D 


1 


4C20 


1578 




BNZ 




T3140 


156F 





4011 






BSI 




T31PR 


1570 





3105 




* 
T3139 


DC. 




• 3105 


1571 


! 


C400 


1624 


LD 


L 


T31C0+4 



GET TOTAL ERRORS 
TEST FOR ONE ERROR 

BR IF NOT 
PRINT MAP- ONE BAD HEAD- 
ERROR NUMBER 

TEST FOR ALL HDS BAD 
BR IF YES 

GET NRF CNTR 

ADD CNT OF DATA CK 

STORE 

ARE THERE 2 OR MORE 

BR IF NOT 
GO PRINT MAP -CLKING PROB- 

ERROR NUMBER 

GO PRINT MAP-UNKNOWN PROB- 
ERROR NUMBER 

TEST FOR 10 UNSAFES 

BR IF NO 
GO PRINT MAP -SAFETY ERR- 
ERROR NUMBER 

WERE THERE 10 BURST CKS 
** 

BR IF NO 
GO PRINT MAP -SICK WRT 

ERROR NUMBER — 



WERE THER 10 NRF ON RD 

* 

BR IF NO 
GO PRINT MAP -NOT WRITING 
ERROR NUMBER 

WERE THER 10 NRFS ON WR 
** 

BR IF NO 
GO PRINT MAP -HA NOT FND- 

ERROR NUMBER 

WERE THER 10 NOT EQUAL DAT 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



81237420 

81237430 

81237440 

81237450 

81237460 

81237470 

81237480 

81237490 

81237500 

81237510 

81237520 

81237530 

81237540 

81237550 

81237560 

81237570 

81237580 

81237590 

81237600 

81237610 

81237620 

81237630 

81237640 

81237650 

81237660 

81237670 

81237680 

81237690 

81237700 

81237710 

81237720 

81237730 

81237740 

81237750 

81237760 

81237770 

81237780 

81237790 

81237800 

81237810 

81237820 

81237830 

81237840 

81237850 

81237860 

81237870 

81237880 

81237890 

81237900 

81237910 

81237920 

81237930 

81237940 

8123T950 

81237960 

81237970 

81237980 

81237990 

81238000 

81238010 

81238020 

81238030 

81238040 

81238050 

81238060 

81238070 

81238080 

81238090 
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DATE 

EC NO. 



1573 929F 

1574 1 4C20 1578 

1576 400A 

1577 3106 

1578 1 C400 1625 
157A 929F 
157B 1 4C20 157F 
157D 4003 
157E 3107 

157F 4001 

1580 3101 



0000 
C480 1581 



1581 

1582 1 

1584 D002 

1585 O 42E2 

1586 0140 

1587 0000 

1588 4203 

1589 1 164F 

158A 1 C400 1620 

158C 1 4C18 14F8 



* 
T3140 



* 
T3141 

* 
* 
* 
T31PR 



S 

BNZ 
BSI 
DC 

LD 

S 

BNZ 

BSI 

DC 

BSI 
DC 



2 K10-TB 
T3140 
T31PR 
/3106 

. T31C0+5 

2 K10-TB 

T3141 

T31PR 

/3107 

T31PR 
/3101 



** 

BR IF NO 
GO PRINT MAP 

ERROR NO. -DROPPING BITS 

WERE THER 10 S/D 
** 

BR IF NO 
GO PRINT MAP -SER/DES- 

ERROR NUMBER 



GO PRINT MAP 
ERROR NO. 



-SOME OTHER 
COMBO OF 10 



PRINT HEAD MAP AN3 ERROR NO. 



158E 
158F 
1591 
1593 
1594 
1595 
1596 
1598 
159A 
159C 
159D 
159F 



1010 

D400 164E 
6700 167C 



T3144 



* 
* 

* 

* 

* 

* 
T31SC 



DC 

LD 

STO 

BSI 

DC 

DC 

BSI 
DC 

LD 
BZ 



*-* 
I T31PR 
T3144 
2 EROUT-TB 
• 0140 
*-* 

2 TLGMS-TB 
T31WH 

- T31C0 
T3118 



ENTRY 



GO TO PRINT ER MSG 
TAGS AM) OPTIONS 
ERROR NUMBER-SET IN 

GO PRINT MAP 
MSG ADDRESS 

GET TOTAL ERRORS 
BR IF NONE 



SCAN HEAD MAP AND FOR EACH FAILING HEAD PRINT 
OUT THE HEAD NUMBER, WRITE DATA, AND CAW.CSW, 
SENSE FOR WRITE, AND THEN PRINT OUT READ DATA 
CAW.CSW, AND SENSE FOR READ. 

IF ALL 10 HEADS FAILED, THEN INFORMATION FOR 
HEAD 00 ONLY IS PRINTED OUT 



C29F 
D2DD 

C300 

1 F400 161E 
1 4C20 15B9 
1 7401 164E 
7302 

74FF 085C 
70F5 



15A0 42FA 

15A1 C283 

15A2 1008 

15A3 1 4C28 158E 

15A5 C283 

15A6 100C 

15A7 1 4C28 149A 



15A9 42ES 

15AA O C2C1 

15AB 1 4C18 170A 

15AD 42DF 

15AE 0007 



T3147 



T3148 



* 
T3149 



L 

L3 
2 

2 
3 
L 



SLA 

STO 

LDX 

LD 

STO 

LD 

EOR 

BNZ 

MDX L 

MDX 3 

MDX L 

MDX 

MAP HAS 

BSI 2 



16 

T31A2+2 

T31MP 

K10-TB 

LPCNT-TB 



T310K 

T3150 

T31A2+2.1 

2 

LPCNT.-l 

T3147 



• OK. 



GET MAP CODE 

COMPARE WITH 

BR IF NOT 

BUMP HEAD NUMBER BY ONE 

BUMP MAP POINTER 

DECREMENT LOOP COUNT 

LOOP 

BEEN SCANNED -STOP AND LET FE ANALYZE 
THALT-TB 



LD 

SLA 

BN 

LD 

SLA 

BN 



2 TSW0-T8 
OLPST 
T31SC 

2 TSWO-TB 
OLPER 
T3109 



* 
* 
* 

T31EN 



TTL31 



GO TO NEXT ROUTINE IN SEQUENCE 



BSI 
LD 
BZ 
BSI 

PRNT 



2 FREDV-TB FREE CHANNEL 

2 TRTNN-TB GET RTN SWS 

T3201 GO TO NEXT RTN IN SEQ 

2 CNTRL-TB GO TO CONTROL RTN 

. SECT 3.RT 1- . 



14N0V69 
431319 



30JAN70 15SEP71 
431319A 431328 



81238100 

81238110 

81238120 

81238130 

81238140 

81238150 

81238160 

81238170 

81238180 

81238190 

81238200 

81238210 

81238220 

81238230 

81238240 

81238250 

81238260 

81238270 

81238280 

81238290 

81238300 

81238310 

81238320 

81238330 

81238340 

81238350 

81238360 

81238370 

81238380 

81238390 

81238400 

81238410 

81238420 

81238430 

81238440 

81238450 

81238460 

81238470 

81238480 

81238490 

81238500 

81238510 

81238520 

81238530 

81238540 

81238550 

81238560 

81238570 

81238580 

81238590 

81238600 

81238610 

81238620 

81238630 

81238640 

81238650 

81238660 

81238670 

81238680 

81238690 

81238700 

81238710 

81238720 

81238730 

81238740 

81236750 

81238760 

81238770 



PROG ID 

PAGE 
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15B5 0003 
15B8 FFFF 

15B9 1 C400 164E 

15BB 1 D400 169F 

15BD O 42F4- 

15BE O 1090 

15BF D050 

15C0 COSE 

15C1 6132 

15C2 1 D500 16D7 

15C4 71FF 

15C5 O 70FC 

15C6 42EE 
15C7 1 1637 

15C8 1 C480 14B0 

15CA 42F4 

15CB D04A 

15CC 4203 

15CD 1 160E 

15CE 42E2 
15CF 0077 
1SD0 O FFFF 

15D1 O 42EE 
15D2 1 1646 

15D3 1 6500 15EE 
15D5 6905 



* 
T3150 



PRNT 
DC 

LD 

STO 

BSI 

SLT 

STO 

LD 

LDX 

STO 

MDX 

MDX 



.WRITE. 
/FFFF 



L 
L 



1506 
15D7 1 
15D9 
15DA 
15DC 1 
15DE O 
15DF 



61F1 

C500 16E3 

42F4 

DCOO 0000 

7402 15DB 

7101 

70F7 



* 

T3151 

T3152 



15E0 4203 
15E1 1 15EA 

15E2 42E2 
15E3 O 0077 
15E4 FFFF 

15E5 C03A 
15E6 929F 
15E7 1 4C20 159A 
15E9 70B6 
ISEA 0000 
15EA 0004 
15EE 001E 
160C OOFF 
160D FFFF 

160E 0009 

1617 FFOO 

1618 FFFF 



1619 42E2 



T31DT 



* 
T31HW 



* 

* 

* 
* 
T31T0 



BSI 
DC 

LD 

BSI 

STO 

BSI 

DC 

BSI 
DC 

DC 

BSI 
DC 

LDX 
STX 

LDX 

LD 

BSI 

STD 

MD X 

MDX 

MDX 

BSI 
DC 

BSI 

DC 

DC 

LD 

S 

BNZ 

MDX 

BSS 

PRNT 

BSS 

DC 

DC 



T31A2+2 

T31W1+1 
2 TCVBE-TB 

16 

T31HW+2 

T31C5 
1 50 
LI T31R2-1 

1 -1 
*-4 

2 SIO-TB 
T31WR-3 

I T3111+1 
2 TCVBE-TB 

T31HW+8 
2 TLGMS-TB 
T31HW 

2 EROUT-TB 
• 0077 
/FFFF 

2 SIO-TB 
T31RD 

LI T31DT+4 
1 T3152+1 



1 -15 

LI T31R1+15 

2 TCVBE-TB 
L *-* 

L T3152+1.2 
1 
T3151 



1 



2 TLGMS-TB 
T31DT 

2 EROUT-TB 
/0077 
/FFFF 

T31C0 

2 K10-TB 

T3148 

T3149 

■ 

• RD DATA. 

30 

/OOFF 

/FFFF 



GET HEAD NUMBER 
SET IN RO RECORD 
CONVERT TO PRINT CODE 
SAVE BITS 8-15 FOR PRINT 
*** 

SET I/O AREA TO «C5' 

100 BYTES 

*** 

LOOP FOR 100 BYTES 

*** 

DO THE WRITE 

SKHO ,SFM,SRCHA,TIC,WRRO 

GET WRITE DATA 
CONVERT TO DECIMAL 
SET IN MSG 
PRINT MSG 
MSG ADDRESS 

PRINT CAW.CSW.SNS 
TAGS AND OPTIONS 



GO TO SIO TO READ 
RDRO 

SET MSG AREA ADDRESS 
SET IN INSTRUCTION 

SET LOOP COUNT 

PRINT RO AND DATA 

CONVERT TO PRINT CODE 

SET IN MSG 

BUMP SINK BY TWO 

COUNT LOOPS 

LOOP 



PART NO. 2279467 
PAGE 29A 



PRNT . HO XX 

DC /FFOO 

DC /FFFF 



WR DATA XX. 



GET HERE IF TIMEOUT 
CAUSES—— 284! HAN 

NO CHANN 



OCCURS 

G UP 

EL OR DEVICE END 



BSI 



2 EROUT-TB 



0812-A 
29 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



81238780 

81238790 

81238800 

81238810 

81238820 

81238830 

81238840 

81238850 

81238860 

81238870 

81238880 

81238890 

81238900 

81238910 

81238920 

81238930 

81238940 

81238950 

81238960 

81238970 

81238980 

81238990 

81239000 

81239010 

81239020 

81239030 

81239040 

81239050 

81239060 

81239070 

81239080 

81239090 

81239100 

81239110 

81239120 

81239130 

81239140 

81239150 

81239160 

81239170 

81239180 

81239190 

81239200 

81239210 

81239220 

81239230 

81239240 

81239250 

81239260 

81239270 

81239280 

81239290 

81239300 

81239310 

81239320 

81239330 

81239340 

81239350 

81239360 

81239370 

81239380 

81239390 

81239400 

81239410 

81239420 

81239430 

81239440 

812394S0 



PROG ID 
PAGE 



0812-A 
2 9A 



6 

v_/ 

o 
c 
o 

c 

c 
c 



c 

c 
e 
c 



r 

v... 



C 
G 
O 

o 



c 

c 

c 
c 
c 
o 

o 

G 
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161A 
161B 
161C 
161E 
161F 
1620 
1628 
1629 
162A 
162B 
162C 
162D 



0100 

3000 

4C80 012E 

0001 

C5C5 

0008 

E5ES 

1313 

FFFF 

0000 

FEDC 

0004 



1631 0006 

1632 400B 

1633 1 1649 



1634 0005 

1635 001A 

1636 1 08C8 



1637 O 0006 

1638 401B 

1639 1 164C 



163A 0001 
163B 40 IF 
163C 1 18CD 



163D 0004 
163E 4039 
163F 1 169E 



1640 





0001 


1641 





0008 


1642 


1 


1630 


1643 





006C 


1644 





2015 


1645 


1 


169E 


1646 





006C 


1647 





2016 


1648 


1 


16D4 


1649 





0000 


164A 





00C6 


164B 





0000 


164C 





0000 


1640 





0000 


164E 





0000 


164F 




0008 


1657 





OOFF 


1658 




0008 


1660 




0010 


166A 




0009 


1673 





OOFF 


1674 




0008 


167C 




0010 


1686 




0009 



DC 
DC 
BSC 
T310K PRNT 
T31C5 DC 
T31C0 BSS 
T31DA DC 
DC 
DC 
DC 
T31TM DC 

BSS 
* 

T31S5 DC 
DC 



* 



DC 



DC 
DC 

DC 



DC 
DC 
DC 



T31WR DC 
DC 
DC 



* 
* 



DC 
DC 
DC 



DC 
DC 
DC 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



DC 
DC 
DC 

* 

* 

T31RO DC 
DC 
DC 

T31A1 DC 
DC 

DC 

* 

T31A2 DC 
DC 

OC 
T31WH PRNT 
DC 
PRNT 
PRNT 
PRNT 
OC 
PRNT 
T31MP PRNT 
PRNT 



15SEP71 

431328 



/0100 

/3000 

END 

.OK. 

/CSC5 

8 

/E5E5 

/1313 

/FFFF 

/OOOO 

/FEDC 

4 



ERROR NUMBER 

MAP CODE FOR NO ERROR 
PRESET I/O AREA 



END OF TABLE CONSTANT 



6 BYTE COUNT 

/40*256+SEEKB FLAGS AND OP CODE 
T31A1 ADDRESS 



5 BYTE COUNT 

0*256+RDHA FLAGS AND OP CODE 
HA ADDRESS 



6 BYTE COUNT 

/40*256+SKHD FLAGS AND OP CODE 
T31A2 ADDRESS 



1 BYTE COUNT 

/40*256+SFILM FLAGS AND OP CODE 
SFLM1 ADDRESS 



♦ BYTE COUNT 

/40*256+SRCHA FLAGS AND OP CODE 
T31W1 ADDRESS 



1 BYTE COUNT 

0*256+OPTIC FLAGS AND OP CODE 
*-6 ADDRESS 



108 BYTE COUNT 

/20*256+WRR0 FLAGS AND OP CODE 
T31W1 ADDRESS 



108 8YTE COUNT 

/20*256+RDR0 FLAGS AND OP CODE 
T31R1 ADDRESS 



/OOOO 
/00C6 
/OOOO 



CYL 198 
HD 00 



/OOOO 

/OOOO 

/OOOO 

. WRITE HEAD MAP-. 

/OOFF 

. HEAD NUMBER . 

.00 1 02 03 04 

.05 06 07 08 09. 

/OOFF 

. WR/RD.RO RSLT- • 

.XX XX XX XX XX 

.XX XX XX XX XX. 
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81239460 

81239470 

81239480 

81239490 

81239500 

81239510 

81239520 

81239530 

81239540 

81239550 

81239S60 

81239570 

81239580 

81239590 

81239600 

81239610 

81239620 

81239630 

81239640 

81239650 

81239660 

81239670 

81239680 

81239690 

81239700 

81239710 

81239720 

81239730 

81239740 

81239750 

81239760 

81239770 

81239780 

81239790 

81239800 

81239810 

81239820 

81239830 

81239840 

81239850 

81239860 

81239870 

81239880 

81239890 

81239900 

81239910 

81239920 

81239930 

81239940 

81239950 

81239960 

81239970 

81239980 

81239990 

81240000 

81240010 

81240020 

81240030 

81240040 

81240050 

81240060 

81240070 

81240080 

81240090 

81240100 

81240110 

81240120 

81240130 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



168F 





OOFF 


1690 





FFFF 


1692 




OOOO 


1692 




0011 


169D 





FFFF 


169E 





00C6 


169F 





OOOO 


16A0 





OOOO 


16A1 





0E18 


16A2 




0032 


16D4 




0036 


16D8 








170A 

170A 1 7401 0815 

170C 1 4C18 1711 

170E 9297 

170F 1 4C20 17DC 

1711 C283 

1712 100A 

1713 1 4C10 1717 

1715 4203 

1716 1 175A 



1717 
1718 
171A 
171C 
171D 
171E 
171F 
1720 
1721 
1722 
1724 
1725 
1726 
1727 
1728 
1729 



42E8 
6500 



1769 



60 00 19B2 

C29F 

D2DD 

C29F 

D05D 

1010 

D059 

6500 177E 



C851 
D900 
C051 
D1C2 

7103 

1 74FF 



177D 



DC 

DC 

BSS E 
T31E5 PRNT 

DC 
T31W1 DC 

DC 

DC 

DC 
T31W2 BSS 
T31R1 BSS 
T31R2 EQU 

* 

******************************************* .££.,. £.,.3 .,.£ 



/OOFF 

/FFFF 



. 3111 HA RD XXXXXXXXXX. 

/FFFF 

/00C6 

/OOOO 

/OOOO 

/0E18 

SO 

54 

T31R1+4 



ROUTINE — 2 



HAR AC ADVANCE 



* 

****** ********************************************* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

********************** ***************************** 

* , 
************************************************,** 
* 

**************************** *********************** 

* * 

********************* ****************************** 



THIS ROUTINE WILL CHECK THE AC CONDITIONS 
OF THE HEAD ADDRESS REGISTER. THIS AC 
CONDITION IS USED TO ADVANCE HAR TO THE 
NEXT HEAD. TEN READ -HOME- ADD RESS COM- 
MANDS ARE CHAINED WITH THE M/T BIT ON. THE 
CPU WILL THEN CHECK THE HOME ADDRESSES READ. 

EQUIPMENT CHECKED. 
HAR 
HAR CARD 



T3201 EQU 
MDX 
BZ 
S 
BNZ 

* 

T3202 LD 
SLA 
BNN 
BSI 
DC 

* 

T3203 BSI 



* TEST ENTRY POINT 

L TRID.l BUMP RTN ID 

T3202 BR IF TEST NUMBER ZERO 

2 Kl-TB DECREMENT BY ONE 

T3301 BR IF NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T3203 BR IF NOT SET 

2 TLGMS-T8 GO TO PRINT ROUTINE 



TTL32 



2 GETDV-TB 

LDX LI T3208 

STX LI WTADR 

LD 2 K10-TB 

STO 2 LPCNT-TB 

T3204 LD 2 K10-TB 

STO T32CT 

SLA 16 

STO T32SA+2 

LDX LI T32HA 

T320 5 LDD ■ T32 98 

STD 1 

LD T3299 

STO 1 2 

MDX I 3 

MDX L T32CT.-1 



MESSAGE ADDRESS 

GET CHANNEL FOR RTN 
SET UP TIMEOUT RETURN 

* 

SET UP LOOP COUNTER 

* 



SET READ HA ARG 
EQUAL TO 000099 FOR 

EACH HEAD 

* 

* 



PROG ID 


0812-A 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


30 


EC NO. 


431319 


431319A 


431328 



81240140 

81240150 

81240160 

81240170 

81240180 

81240190 

81240200 

81240210 

81240220 

81240230 

81240240 

81240250 

81240260 

81240270 

81240280 

81240290 

81240300 

81240310 

81240320 

81240330 

81240340 

81240350 

81240360 

81240370 

81240380 

81240390 

81240400 

81240410 

81240420 

81240430 

81240440 

81240450 

81240460 

81240470 

81240480 

81240490 

81240500 

81240510 

81240520 

81240530 

81240540 

81240550 

81240560 

81240570 

81240580 

81240590 

81240600 

81240610 

81240620 

81240630 

81240640 

81240650 

81240660 

81240670 

81240680 

81240690 

81240700 

81240710 

81240720 

81240730 

8124Q740 

81240750 

81240760 

81240770 

81240780 

81240790 

81240800 

81240810 



PROG ID 
PAGE 



0812-A 
30A 



( 



i 

C 

c 
c 
c 
c 
o 
o 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
c 
c 
c 
c 
c 
c 
c 
o 
o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2841 DIAGNOSTIC - PHASE A 



<(<(<<(< C ( ( ( ( ( ( ( ( ( 



i 



PART NO. 227946? 
PAGE 31 



GNOSTIC MAIN 
172B 70F8 


TENANCE 


I PROGR/ 


MDX 




T3205 


* 


81240820 


- 




* 










81240830 


172C 42EE 




T321C 


BSI 


2 


SIO-TB 


EXECUTE CHNL PGM 


81240840 


172D 1 179C 




* 


DC 




T32CC 




81240850 
81240860 


172E C236 






LD 


2 


SCSXO+l-TE 


TEST FOR UNIT CK 


81240870 


172F 1O0E 






SLA 




UNCHK 


* 


81240880 


1730 1 4C28 


1769 


* 


BN 




T3208 


BRANCH IF ON 


81240890 
81240900 


1732 1010 






SLA 




16 


CLEAR ERROR SWITCH 


81240910 


1733 D048 






STO 




T32ER 


* 


81240920 


1734 1 6500 


17BD 




LDX 


LI 


T32MP 


MAP POINTER 


81240930 


1736 1 6700 


177E 




LDX 


L3 


T32HA 


HA POINTER 


81240940 


1738 C29F 






LD 


2 


K10-TB 




81240950 


1739 D043 




* 


STO 




T32CT 




81240960 
81240970 


173A C302 




T3206 


LD 


3 


2 


GET "WENT* TO' HD 


81240980 


1738 1808 






SRA 




8 


TEST ONLY BITS 0-7 


81240990 


173C F03E 






EOR 




T32SA+2 


COMPARE WITH 'SEEK TO' HD 81241000 


173D 4820 






SKP 




Z 


SKIP IF CORRECT HEAD 


81241010 


173E 683D 




* 


STX 




T32ER 


SET ERROR SW 


81241020 
81241030 


173F C302 






LD 


3 


2 


GET 'WENT TO* HD 


81241040 


1740 1808 






SRA 




8 


TEST ONLY BITS 0-7 


81241050 


1741 42F7 






BSI 


2 


TCVHD-TB 


CONVERT TO DEC 


81241060 


1742 42F4 






BSI 


2 


TCVBE-TB 


CONVERT TO 1443 CODE 


81241070 


1743 18D0 






XCH 








81241080 


1744 D10A 




* 


STO 


1 


10 


PUT IN MAP 


81241090 
81241100 


1745 7102 






MDX 


3 


2 


INCREMENT POINTERS 


81241110 


1746 7303 






MDX 


3 


3 


* 


81241120 


1747 1 7401 


177B 




MDX 


L 


T32SA+2.1 




81241130 


1749 1 74FF 


177D 


* 


MDX 


L 


T32CT.-1 


LAST HEAD 


81241140 
81241150 


174B 70EE 




* 


MDX 




T3206 


NO. RETURN 


81241160 
81241170 


174C C02F 


a 




LD 




T32ER 


YES. TEST ERROR SW 


81241180 


1 74D 1 4C20 


176D 


* 


BNZ 




T3209 


BRANCH IF ON 


81241190 
81241200 


1 74F 1 74FF 


085C 




MDX 


L 


LPCNT.-l 


TEST FOR 10 LOOPS 


81241210 


1751 70CC 




* 


MDX 




T3204 


BRANCH IF NOT FINISHED 


81241220 
81241230 


1752 1010 




T3207 


SLA 




16 




81241240 


1753 1 D400 


19B2 


* 


STO 


L 


WTADR 




81241250 
81241260 






* 


GO TO NEXT ROUTINE 


IN SEQUENCE 


81241270 






* 










81241280 


1755 42E5 




T32EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81241290 


1756 C2C1 






LD 


2 


TRTNN-TB 


GET RTN SWS 


81241300 


1757 1 4C18 


17DC 




BZ 




T3301 


GO TO NEXT RTN IN SEQ 


81241310 


1759 42DF 






BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81241320 


175A 0007 




TTL32 


PR NT 




. SECT 3.RT 2- . 


81241330 






* 










81241340 


1761 0007 






PRNT 




• HAR AC ADVANCE. 


81241350 


1768 FFFF 






DC 




/FFFF 




81241360 


1769 42E2 




T3208 


BSI 


2 


EROUT-TB 


PRINT UNIT CK ERROR 


81241370 


176A 0127 






DC 




/0127 




81241380 


176B 3201 






DC 




/3201 




81241390 


176C 7003 




* 


MDX 




T3211 




81241400 
81241410 


176D 42E2 




T3209 


BSI 


2 


EROUT-TB 


PRINT HEAD MAP 


81241420 


176E 0108 






DC 




/0108 


* AND ERROR MESSAGE 


81241430 


176F 1 17BD 




* 


DC 




T32MP 




81241440 

81241450 


1770 C283 




T3211 


LD 


2 


TSWO-TB 


GET SW FNC 


81241460 


1771 100C 






SLA 




OLPER 


TEST FOR LOOP ON ERROR 


81241470 


1772 1 4C28 


172C 




BN 




T3210 


BR IF SET 


81241480 


1774 70D0 






MDX 




T3207 


ELSE END ROUTINE 


81241490 
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DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 

43 1 32 8 



PROG ID 
PAGE 



0812-A 
31 



1776 0000 

1776 0000 

1777 0000 

1778 O 6300 

1779 0000 
177A QOOO 
177B O 0000 

177C 0000 

177D O 0000 



177E 





0000 


177F 





0000 


1780 





0000 


1781 





0000 


1782 





0000 


1783 





0000 


1784 





0000 


1785 





0000 


1786 





0000 


1787 





0000 


1788 





0000 


1789 





0000 


178A 





0000 


178B 





0000 


178C 





0000 


178D 





0000 


178E 





0000 


178F 





0000 


1790 





0000 


1791 





0000 


1792 





0000 


1793 





0000 


1794 





0000 


1795 





0000 


1796 





0000 


1797 





oooo 


1798 





0000 


1799 





0000 


179A 





0000 


179B 





0000 


179C 





0006 


179D 





4007 


179E 


1 


1779 



179F O 0005 
17A0 401A 
17A1 1 177E 



17A2 0005 
17A3 409A 
17A4 1 1781 



17AS 0005 
17A6 409A 
17A7 1 1784 



17A8 0005 
17A9 409A 



BSS 

T3298 DC 
DC 

T3299 DC 

* 

T32SA DC 
DC 
DC 

* 

T32ER DC 

T32CT DC 

* 

T32HA DC 
DC 
DC 

T32H1 DC 
DC 
DC 

T32H2 DC 
DC 
DC 

T32H3 DC 
DC 
DC 

T32H4 DC 
DC 
DC 

T32H5 DC 
DC 
DC 

T32H6 DC 
DC 
DC 

T32H7 DC 
DC 
DC 

T32H8 DC 
DC 
DC 

T32H9 DC 
OC 



DC 



* 
T32CC 



* 
* 
* 



DC 
DC 
DC 



* 
■ * 



* 



DC 
DC 
DC 



DC 

DC 
DC 



DC 
DC 
DC 



DC 
DC 



SEEK ARG-HD OO.CYL 00 



ERROR SW 





/OOOO 
/OOOO 
/6300 


















o 

■ 













o 




o 
o 



o 
o 
o 





o 
o 



6 BYTE COUNT 

/40*256+SEEKC FLAGS AND OP CODE 
T32SA ADDRESS 



5 BYTE COUNT 

/40*256+RDHA FLAGS AND OP CODE 
T32HA ADDRESS 



5 BYTE COUNT 

/40*256+RDHMT FLAGS AND OP CODE 
T32H1 ADDRESS 



5 BYTE COUNT 

/40*256+RDHMT FLAGS AND OP CODE 
T32H2 ADDRESS 



5 BYTE COUNT 

/*0*256+RDHMT FLAGS AND OP CODE 
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DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



81241500 

81241510 

81241520 

81241530 

81241540 

81241550 

81241560 

81241570 

81241580 

81241590 

81241600 

81241610 

81241620 

81241630 

81241640 

81241650 

81241660 

81241670 

81241680 

81241690 

81241700 

81241710 

81241720 

81241730 

81241740 

81241750 

81241760 

81241770 

81241780 

81241790 

81241800 

81241810 

81241820 

81241830 

81241840 

81241850 

81241860 

81241870 

81241880 

81241890 

81241900 

81241910 

81241920 

81241930 

81241940 

81241950 

81241960 

81241970 

81241980 

81241990 

81242000 

81242010 

81242020 

81242030 

81242040 

81242050 

81242060 

812420 70 

81242080 

81242090 

81242100 

81242110 

81242120 

81242130 

81242140 

81242150 

81242160 

81242170 
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R 
c 

c 

o 
o 
o 
o 
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c 
o 
c 
c 
c 
c 
c 
c 
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o 
o 

o 

c 
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DATE 
EC NO. 



17AA 


1 


1787 


* 
* 


DC 




T32H3 ADDRESS 




81242180 
81242190 
81242200 


17AB 





0005 




DC 




5 BYTE COUNT 




81242210 


17 AC 





409A 




DC 




/40*256+RDHMT FLAGS AND 


OP CODE 


81242220 


17AD 


1 


178A 


* 
* 


DC 




T32H4 ADDRESS 




81242230 
81242240 
81242250 


17AE 





0005 




DC 




5 BYTE COUNT 




81242260 


17AF 





409A 




DC 




/40*256+RDHMT FLAGS AND 


OP CODE 


81242270 


17B0 


1 


1780 


* 
* 


DC 




T32H5 ADDRESS 




81242280 
81242290 
81242300 


17B1 





0005 




DC 




5 BYTE COUNT 




81242310 


17B2 





409A 




DC 




/40*2S6+RDHMT FLAGS AND 


OP CODE 


81242320 


17B3 


1 


1790 


* 


DC 




T32H6 ADDRESS 




81242330 
81242340 
81242350 


17B4 





0005 




DC 




5 BYTE COUNT 




81242360 


17B5 





409A 




DC 




/40*256+RDHMT FLAGS AND 


OP CODE 


81242370 


17B6 


1 


1793 


* 

* 


DC 




T32H7 ADDRESS 




81242380 
81242390 
81242400 


17B7 





0005 




DC 




5 BYTE COUNT 




81242410 


17B8 





409A 




DC 




/40*256+RDHMT FLAGS AND 


OP CODE 


81242420 


17B9 


1 


1796 


* 
* 


DC 




T32H8 ADDRESS 




81242430 
81242440 
81242450 


17BA 





0005 




DC 




5 BYTE COUNT 




81242460 


17BB 





009A 




DC 




0*256+RDHMT FLAGS AND OP 


CODE 


81242470 


17BC 


1 


1799 


* 
* 


DC 




T32H9 ADD RESS 




81242480 
81242490 
81242500 


17BD 




0017 


T32MP 


PR NT 




. 3202 HAR ADV MAP -XX 


X X XX XX a 


81242510 


17CE 




0012 




PRNT 




. XX XX XX XX XX XX. 


81242520 


17DA 





OOFF 




DC 




/OOFF 




81242530 


17DB 





FFFF 


* 

*'■■••■■. 
* 


DC 




/FFFF 




81242540 
81242550 
81242560 
81242570 








************* 


************************************** 


81242580 








* 










81242590 








* 


ROUTINE 


3 — END OF CYLINDER 




81242600 








* 










81242610 








************* 


************************************** 


81242620 








* 










81242630 








* 










81242640 








* 


THIS 


ROUTINE WILL CHECK THE END - 


OF-CYLINDER 


81242650 








* 


SIGNAL. 


THE PROGRAM WILL SELECT 


HEAD 9 OF 


81242660 








* 


CYLINDER 000 AND RHA TO VERIFY THAT THE COR- 


81242670 








* 


RECT 


CYLINDER AND HEAD WERE SELECTED. THEN, 


81242680 








* 


TWO CHAINED RHA COMMANDS. WITH M/T BIT ON FOR 


81242690 








* 


THE SECOND COMMAND. ARE EXECUTED 


. THIS 


81242700 








* 


SHOULD FORCE HAR TO ADVANCE FROM 


HEAD 9 TO 


81242710 








* 


HEAD 


10 


THUS TURNING ON END -OF-CYLINDER. 


81242720 








* 










81242730 








* 










81242740 








*************************************************** 


81242750 








* 








* 


81242760 








************* 


************************* 


************* 


81242770 








************************************************ *** 


81242780 








* 








* 


81242790 








*************************************************** 


81242800 


17DC 







T330 1 


ECU 




* TEST ENTRY POINT 


81242810 


17DC 


1 


7401 0815 




MDX 


L 


TRID.l BUMP RTN ID 




81242820 


17DE 


1 


4C18 17E3 




BZ 




T3302 BR .IF TEST NUMBER ZERO 


81242830 


17E0 





9297 




S 


2 


Kl-TB DECREMENT BY 


ONE 


81242840 


17E1 


s 


4C20 1850 




BNZ 




T3401 BR IF NOT THIS TEST 


81242850 



14N0V69 
431319 



30JAN70 
431319A 



i5SEP71 
431328 
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DATE 
EC NO. 



17E3 C283 

17E4 100A 

17E5 1 4C10 17E9 

17E7 4203 

17E8 1 1802 



* 
T3302 



17E9 





42E8 


T3303 BSI 


2 


GETDV-TB 


17EA 





C29F 


LD 


2 


K10-TB 


17EB 





D2DD 


STO 


2 


LPCNT-TB 


17EC 





10A0 


T3304 SLT 




32 


17ED 





DA49 


STD 


2 


HA-TB 


17EE 





D24B 


STO 

* 

BSI 


2 


HA+2-TB 


17EF 





42EE 


2 


SIO-TB 


17F0 


1 


1838 


DC 




T33CC 



LD 2 TSWO-TB GET OPTION SWS 

SLA OTTLE PRINT TITLES 

BNN T3303 BR IF NOT SET 

BSI 2 TLGMS-TB. GO TO PRINT ROUTINE 

DC TTL33 MESSAGE ADDRESS 



GET CHANNEL FOR RTN 
SET UP LOOP COUNTER 



17F1 C236 

17F2 100E 

17F3 1 4C10 1812 

17F5 O 42EB 

17F6 CA1D 

17F7 108A 

17F8 1 4C10 1828 

17FA 1 74FF 085C 

17FC O 70EF 



CLEAR AQ 

SET HA ARGUMENT EQUAL 

* TO ZERO'S 

EXEC CHNL PGM 



LD 2 SCSXO+1-TB TEST FOR UNIT CK 

SLA UNCHK * 

BNN T3306 BRANCH IF OFF 



BSI 2 GETSN-TB 

LDD 2 SNWDS-TB 
SLT FEOCY 

BNN T3308 



MDX 
MDX 



LPCNT.-l 
T3304 



UNIT CK SHOULD BE ON 

* DO SENSE I/O 

TEST FOR *END OF CYLINDER* 

BRANCH IF OFF 

TEST FOR Iff PASSES 
NO. RETURN 



17FD O 42E5 

17FE C2C1 

17FF 1 4C18 1850 

1801 42DF 

1802 0007 

1809 0008 

1811 FFFF 

1812 C24B 

1813 1808 

1814 F02E 

1815 1 4C20 1818 

1817 42E2 

1818 0306 

1819 3304 
181A 7018 

181 B C249 
181C 42F4 
18 ID D82C 

181E C24A 
181F 42F4 
182G D828 

1821 C24B 

1822 42F4 

1823 D02A 

1824 42E2 

1825 O 0108 

1826 1 1844 

1827 700B 



* 
* 
* 
* 
T33EN 



TTL33 

* 



GO TO NEXT ROUTINE IN SEQUENCE 



BSI 2 FREDV-TB 

LD 2 TRTNN-TB 

BZ T3401 

BSI 2 CNTRL-TB 

PRNT . SECT 3. 



FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SEQ 
GO TO CONTROL RTN 
RT 3- . 



* 
T3306 



* 
T3307 



PRNT 
DC 

LD 
SRA 
EOR 
BNZ 

BSI 
DC 
DC 
MDX 

LD 

BSI 

STD 

LD 

BSI 

STD 

LD 
BSI 

STO 

BSI 
DC 
DC 
MDX 



.END OF CYLINDER. 
/FFFF 



2 HA+2-TB 
8 

T33SA+2 
T3307 

2 EROUT-TB 
/0306 
/3304 
T3310 

2 HA-TB 
2 TCVBE-TB 
T33N9+6 

2 HA+l-TB 
2 TCVBE-TB 
T33N9+8 

2 HA+2-TB 
2 TCVBE-TB 

T33N94-10 

2 EROUT-TB 
/0108 
T33N9 
T3310 



GET 'WENT TO' HEAD 

COMPARE 'SEEK TO* HD 
BRANCH IF NOT HD 9 

PRINT 'NOT END OF CYL" 
ERROR 



GET HA 

* AND PUT INTO 

* ERROR MESSAGE 

GET CYL 



HEAD NUMBER 



PRINT 'HD 9 NOT SELECT* 

ERROR 



14N0V69 
431319 



30JAN70 15SEP71 
431319A 431328 
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81242860 
81242870 
81 242880 
81242890 
81242900 
81242910 
81242920 
81242930 
81242940 
81242950 
81242960 
81242970 
81242980 
81242990 
81243000 
81243010 
81243020 
81243030 
81243040 
81243050 
81243060 
81243070 
81243080 
81243090 
81243100 
81243110 
81243120 
81243130 
81243140 
81243150 
81243160 
81243170 
81243180 
81243190 
81243200 
81243210 
81243220 
81243230 
81243240 
81243250 
81243260 
81243270 
81243280 
81243290 
81243300 
81243310 
81243320 
81243330 
81243340 
81243350 
81243360 
81243370 
81243380 
81243390 
81243400 
81243410 
81243420 
81243430 
81243440 
81243450 
81243460 
81243470 
81243480 
81243490 
81243500 
81243510 
81243520 
81243530 
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c 
c 
o 

G 
O 

o 
c 
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G 

c 
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c 
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DATE 
EC NO. 



1828 





CA1D 


T3308 


LDD 


1829 





108C 


. 


SLT 


182A 


1 


4C10 1830 


* 


BNN 


182C 





42E2 




BSI 


182D 





0107 




DC 


182E 





3303 




DC 


182F 





7003 


* 


MDX 


1830 





42E2 


T3309 


BSI 


1831 





0107 




DC 


1832 





3302 


* 


DC 


1833 





C283 


T3310 


LD 


1834 





100C 




SLA 


1835 


1 


4C28 17EC 




BN 


1837 





70C5 


* 
* 


MDX 


1838 





0006 


T33CC 


DC 


1839 





4007 




DC 


183A 


1 


1841 


* 


DC 



SNWDS-TB 

FNORC 

T3309 



TB 



EROUT- 
/0107 
/3303 
T3310 

EROUT-TB 

/0107 

/3302 

TSWO-TB 
OLPER 
T33 04 
T33EN 



TEST FOR NRF 



BRANCH IF OFF 



PRINT 'NRF' ERROR 



PRINT 'SOME OTHER' ERROR 



GET SW FNC 
TEST FOR LOOP 
BR IF SET 
ELSE LOOP 



ON ERROR 



6 BYTE COUNT 

/40*256+SEEKC FLAGS AND 
T33SA ADDRESS 



OP CODE 



183B 0005 
183C 401A 
183D 1 08C8 



* 
* 



183E 





0005 


183F 





009A 


1840 


1 


1781 


1841 





0000 


1842 





0000 


1^43 





0009 


1844 




0000 


1844 




0011 


184F 





FFFF 



DC 
DC 
DC 



DC 
DC 
DC 



5 BYTE COUNT 

/40*256+RDHA FLAGS AND 
HA ADDRESS 



OP CODE 



5 BYTE COUNT 

0*256+RDHMT FLAGS AND OP CODE 



T32H1 



ADDRESS 



0000 

0000 

0009 

O 

.3301 

/FFFF 



HD 9.TRK 00 ARG 



SEEK 
* 
HA EQ XXXXXXXXXX. 



T33SA DC 

DC 

DC 

BSS 
T33N9 PRNT 

DC 
* 

* 
*************************************************** 

* ROUTINE — 4 RPM TEST 

* 

*************************************************** 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 

* 



THIS ROUTINE IS DESIGNED TO TEST FILE 
ROTATION SPEED. CALCULATIONS ARE BASED ON 
A WRITE TIME OF 800 NSEC/BIT AND ASSUMES 
THE VFO IS OPERATING WITHIN ITS SPECIFIED 
TOLERANCE. 

A TRACK OVERRUN CONDITION IS FORCED BY WRIT- 
ING A 4000 BYTE RECORD 128 TIMES AND TAKING 
AN AVERAGE OF THE RESIDUAL COUNTS. FROM 
THIS. THE ROUTINE CALCULATES THE NUMBER OF 
BYTES WRITTEN AND THROUGH PROPER CON- 
VERSION EXPRESSES THE RESULTS IN RPM. THIS 
RPM IS SUBJECTED TO A TOLERANCE TEST (MIN 
RPM ONLY) AND THE RESULTS PRINTED. NO CHECK 
IS MADE FOR A DRIVE BEING TOO FAST SINCE 
THIS CONDITION IS HIGHLY IMPROBABLE. 



14N0V69 
431319 



30JAN70 
431319A 



! 5SFP71 
431328 



81243540 

81243550 

81243560 

81243570 

81243580 

81243590 

81243600 

81243610 

81243620 

81243630 

81243640 

81243650 

81243660 

81243670 

81243680 

81243690 

81243700 

81243710 

81243720 

81243730 

81243740 

81243750 

81243760 

81243770 

81243780 

81243790 

81243800 

81243810 

81243820 

81243830 

81243840 

81243850 

81243860 

81243870 

81243880 

81243890 

81243900 

81243910 

81243920 

81243930 

81243940 

81243950 

81243960 

81243970 

81243980 

81243990 

81244000 

81244010 

81244020 

81244030 

81244040 

81244050 

81244060 

81244070 

81244080 

81244090 

81244100 

81244110 

81244120 

81244130 

81244140 

81244150 

81244160 

81244170 

81244180 

§1244190 

81244200 

81244210 
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33 



DATE 
EC NO. 



EQUIPMENT CHECKED. 
BELT SLIPPING 
BRAKE DRAG 
SPINDLE BEARINGS 



* 
* 
* 
* 
* 
* 
************************* ************************** 

* * 
*********************** **************************** 

*************************************************** 

* * 
*************************************************** 



1850 

1850 1 7401 0815 

1852 1 4C18 1857 

1854 9297 

1855 1 4C20 18EE 

1857 C283 

1858 100A 

1859 1 4C10 185D 
18SB O 4203 
185C 1 1894 



185D 





42E8 


185E 





1010 


185F 





D06C 


1860 





C2A3 


1861 





D2DD 


1862 





42EE 


1863 


1 


18B2 


1864 





C067 


1865 





8238 


1866 





D065 



1867 42EB 

1868 CA1D 

1869 O 1089 
186A 1 4C10 18A0 



186C 


1 


74FF 08 5C 


186E 





70F3 


186F 





C05C 


1870 





F280 


1871 





8297 


1872 





1807 


1873 





D058 


1874 





C056 


1875 





9056 


1876 





D055 


1877 





C850 


1878 





A853 


1879 





D052 


187A 





42F7 


187B 





42F4 


187C 





DOSA 


187D 





18D0 


187E 





D059 



T3401 EQU 
MDX 
BZ 
S 
BNZ 

* 

T3402 LD 
SLA 
BNN 
BSI 
DC 

*. 

T3403 BSI 

T3404 SLA 
STO 
LD 
STO 

T3405 BSI 
DC 

* - 

LD 

A 

STO 

* 

BSI 
LDD 
SLT 
BNN 

* 

MDX 
MDX 

* 

LD 

EOR 

A 

SRA 

STO 

LD 

S 

STO 

* 

LDD 

D 

STO 

BSI 

BSI 

STO 

XCH 

STO 



187F C04C 

1830 O 9049 

1881 1 4C28 18A4 

1883 C04A 



14N0V69 
431319 



30JAN70 
431319A 



LD 

S 

BN 

LO 



15SEP71 
431328 



* TEST ENTRY POINT 

L TRID.l BUMP RTN ID 

T3402 BR IF TEST NUMBER ZERO 

2 Kl-TB DECREMENT BY ONE 

T3501 BR IF NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T3403 BR IF NOT SET 

2 TL6MS-TB GO TO PRINT ROUTINE 



TTL34 

2 GETDV-TB 

16 

T34TC 
2 K128-TB 
2 LPCNT-TB 
2 SIO-TB 

T34SK 



MESSAGE ADDRESS 

GET CHANNEL FOR RTN 
CLEAR RESIDUAL 
* BYTE COUNTER 



EXECUTE CHNL PGM 

* 



T34TC CALCULATE TOTAL 
2 SCSX0+3-TB * 



T34TC 

2 GETSN-TB 
2 SNWDS-TB 

FTROV 

T3408 

L LPCNT.-l 
T3405 

T34TC 
2 TERM-TB 
2 Kl-TB 

7 

T34TC 

T34TT 

T34TC 

T34TC 

T34FC 

T34TC 

T34TC 
2 TCVKD-TS 
2 TCVBE-TB 

T34RV+3 

T34RV+4 



T34TC 

T34MN 
T3409 

T34WT 



GET SENSE BYTES 

* 
'TEST FOR TRACK OVERFLOW 
NO 

YES. TEST 128 PASSES 
LOOP IF NOT FINISHED 

CONVERT RESIDUAL BYTE 

* VALUE 
DIVIDE BY 128 

GET NUM BYTES WRITTEN 
SUBT AVERAGE OVERRUN 



CALCULATE RPM 

-* '.:■■■ 

* 

SET UP RPM MESSAGE 

* 



TEST ACTUAL VS MINIMUM 

* RPM 

BRANCH IF OUT OF TOLERANCE 

SET 'WITHIN TOLERANCE' 



81244220 

81244230 

81244240 

81244250 

81244260 

81244270 

81244280 

81244290 

81244300 

81244310 

81244320 

81244330 

81244340 

81244350 

81244360 

81244370 

81244380 

81244390 

81244400 

81244410 

81244420 

81244430 

81244440 

81244450 

81244460 

81244470 

81244480 

81244490 

81244 500 

81244510 

81244520 

81244530 

81244540 

81244550 

81244560 

81244570 

81244580 

81244596 

81244600 

81244610 

81244620 

81244630 

81244640 

81244650 

81244 660 

81244670 

81244680 

81244690 

81244700 

81244710 

81244720 

81244730 

81244740 

81244750 

81244760 

81244770 

81244 780 

81244790 

81244800 

81244810 

81244820 

81244830 

81244840 

81244850 

81244 860 

81244870 

81244880 

81244890 
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1884 D056 

1885 C049 

1886 D055 

1887 C048 

1888 D054 
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1889 C283 
188A 100 A 
188B 1 4C28 18AD 



188D 

188D 42EE 

188E 1 0891 



188F 42E5 

1890 C2C1 

1891 1 4C18 18EE 

1893 42DF 

1894 0007 

189B 0004 

189F FFFF 

18A0 42E2 

18A1 0127 

18A2 3401 

18A3 700B 

18A4 C02C 

18A5 D035 

18A6 C02B 

18A7 D034 

18A8 C02A 

18A9 D033 

18AA 42E2 

18AB 0140 

18AC 3402 

18AD 4203 

18AE 1 18D4 

18AF 4206 

18B0 1 185E 

1881 70DB 



18B2 0006 
18B3 4007 
18B4 1 18E4 



18B5 0004 
18B6 4039 
18B7 1 18E7 



18B8 0001 
18B9 0008 
18BA 1 18B5 



18BB 0001 
18BC 401F 





STO 




T34RV+7 








81244900 




LD 




T34WT+1 








81244910 




STO 




T34RV+8 








81244920 




LD 




T34WT+2 








81244930 




STO 




T34RV+9 








81244940 


* 














81244950 




LD 


2 


TSWO-TB 


TEST FOR 'PRNT 


RESULTS' 


81244960 




SLA 




OPRRS 


*** 






. 81244970 




BN 




T3410 


BR IF YES 






81244980 


* 














81244990 


* 














81245000 


T34EX 


EQU 




* 








81245010 




BSI 


2 


SIO-TB 


EXECUTE CHNL 


PGM 




81245020 




DC 




RECAL 








81245030 


* 














81245040 


* 














81245050 


* 


GO TO 


NEXT ROUTINE 


IN SEQUENCE 






81245060 


* 














81245070 


T34EN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 




81245080 




LD 


2 


TRTNN-TB 


GET RTN SWS 






81245090 




B2 




T3501 


GO TO NEXT 


RTN 


IN SEQ 


81245100 




BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


81245110 


TTL34 


PRNT 




. SECT 3.RT 4- . 






81245120 


* 


PRNT 
DC 




.RPM TEST. 
/FFFF 








81245130 
81245140 
81245150 


* 














81245160 


T3408 


BSI 


2 


EROUT-TB 


GO PRINT 'OVERRUN NOT ON' 


81245170 




DC 




• 0127 








81245180 




DC 




/3401 








81245190 




MDX 




T3411 








81245200 


* 














81245210 


T3409 


LD 




T34BL 


SET 'BELOW TOLERANCE' 


81245220 




STO 




T34RV+7 








81245230 




LD 




T34BL+1 








81245240 




STO 




T34RV+8 








81245250 




LD 




T34BL+2 








81245260 




STO 




T34RV+9 








81245270 


* 














81245280 




BSI 


2 


EROUT-TB 








81245290 




DC 




• 0140 








81245300 




DC 




•3402 








81245310 


* 














81245320 


T3410 


BSI 
DC 


2 


TLGMS-TB 
T34RV 








81245330 
81245340 


♦ 














81245350 


T3411 


BSI 


2 


TLPER-TB 


TEST LOOP ERROR 




81245360 




DC 




T3404 


LOOP ADDRS 






81245370 




MDX 




T34EX 


ELSE END RTN 






81245380 


* 






.« 








81245390 


* 














81245400 


T34SK 


DC 




6 


BYTE COUNT 






81245410 




DC 




/40*256+SEEKC FLAGS AND 


OP 


CODE 


81245420 




DC 




T34SA 


ADD RESS 






81245430 


* 














81245440 


* 














81245450 


T34SR 


DC 




4 


BYTE COUNT 






81245460 




DC 




/40*256+SRCHA FLAGS AND 


OP 


CODE 


81245470 




DC 




T34HA 


ADDRESS 






81245480 


* 
* 














81245490 
81245500 




DC 




1 


BYTE COUNT 






81245510 




DC 




0*256+0PTIC FLAGS AND OP CODE 


81245520 


* 


DC 




T34SR 


ADDRESS 






81245530 
81245540 


* 








, 






81245550 




DC 




1 


BYTE COUNT 






81245560 




DC 




/40*256+SFILM FLAGS AND 


OP 


CODE 


81245570 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



18BD 1 18CD 



18BE 0005 
18BF 4019 
18C0 1 18EB 



18C1 0008 
18C2 O 8015 
18C3 1 18E7 



18C4 O OFAO 
18C5 0000 
18C6 1 07FF 



18C8 




000Q 


18C8 





008F 


18C9 





00F2 


18CA 





0948 


18CB 





OFEC 


18CC 





0000 


18CD 





COOO 


18CE 




0000 


18CE 




0003 


18D1 




0003 


18D4 




0015 


18E3 





FFFF 



18E4 0000 

18E5 00C6 

18E6 0000 

18E7 00C6 

18E8 O 0000 

18E9 OOOO 

18EA 0F98 

18EB 0000 

18EC C600 

18ED 0000 



18EE 42DF 



* 
* 



* 
* 



* 

* 



DC 



DC 
DC 
DC 



DC 
DC 
DC 



DC 
DC 
DC 



SFLM1 



ADDRESS 



5 BYTE COUNT 

/40*256+WRHA FLAGS AND OP CODE 
T34WA ADDRESS 



8 BYTE COUNT 

FLDCH*256+WRR0 FLAGS AND OP CODE 
T34HA ADDRESS 



4000 BYTE COUNT 

0*256+0 FLAGS AND OP CODE 



TPID 



ADDRESS 





/008F 

/00F2 

23 76 

4076 



/COOO 



RPM FACTOR 

* 

MINIMUM RPM 

TEMPORARY STORAGE 
ALLOW ALL WRITES 



BSS 
T34FC DC 

DC 
T34MN DC 
T34TT DC 
T34TC DC 
SFLM1 DC 

BSS 
T34WT PRNT 
T34BL PRNT 
T34RV PRNT 

DC 

T34SA DC 

DC 

DC 
* 
T34HA DC 

DC 

DC 

DC 
* 
T34WA DC 

DC 

DC 
* 

********************** ********=»*** ^^^^^^c^^^v^^^c^^^ralc 

* * 
************************************** ************* 

* 

* SECTION END 

* 

T3501 BSI 2 CNTRL-TB GO TO CONTROL RTN 

*************************************************** 

* * 
*#********'***************************************** 
* 

* SECTION PREFACE 
* 

SECTION NUMBER 



•WITHIN. 




.BELOW 


. 




. RPM- 


XXXX IS XXXXXX TOLERANCE. 


/FFFF 






/OOOO 




SEEK - 


/00C6 




* CYL 198 


/OOOO 




* HD 00 


/00C6 




SEARCH HA FOR - 


/OOOO 




* CYL 198 


/OOOO 


t . 


: T*= HD 00 


/OF 98 




* 


/OOOO 






/C600 






/OOOO 
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18EF 





0004 




T40PR 


DC 




/0004 


18F0 





OOOO 




* 
T40NT 


DC 







18F1 





C2C0 




LD 


2 


TSCTN-TB 


18F2 


I 


4C18 


18FC 


* 


tiZ 




T40EN 


18F4 


Q 


C2C1 




LD 


7: 


TRTNN-TB 


18F5 


I 


4C13 


190E 




B2 




T4101 


18F7 





9 0F8 






S 




T40PR+1 


18F8 


1 


4C3 


0A4E 




SP 




TCNER 



8R IF RUN ALL RTNS 

TEST FOR VALID 

BR IF INVALID RTN NUMBER 



81245580 

81245590 

81245600 

81245610 

81245620 

81245630 

81245640 

81245650 

81245660 

81245670 

81245680 

81245690 

81245700 

81245710 

81245720 

81245730 

81245740 

81245750 

81245760 

81245770 

81245780 

81245790 

81245800 

81245810 

81245820 

81245830 

81245840 

81245850 

81245860 

81245870 

81245880 

81245890 

81245900 

81245910 

81245920 

81245930 

8124 5940 

81245950 

81245960 

81245970 

81245980 

81245990 

81246000 

81246010 

81246020 

8124603O 

81246040 

81246050 

81246060 

81246070 

81246080 

81246090 

81246100 

81246110 

81246120 

81246130 

81246140 

81246150 

81246160 

81246170 

81246180 

81246190 

81246200 

81246210 

81246220 

812462 30 

81246240 

81246250 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 15SEP71 
431319A 431328 



PRGG ID 
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DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


34 


EC NO. 


431319 


431319A 


431328 
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DATE 
EC NO. 



18FA 





80F5 




18FB 





7012 




18FC 





4203 




18FD 


1 


1903 




18FE 


1 


7401 


0857 


1900 





1000 




1901 





4C80 


012E 


1903 




0009 




190C 





FFOO 




190D 





FFFF 





T40PR+1 RESTORE RTN NUMBER 

T4101 GO TO FIRST RTN 

2 TLGMS-TB PRINT END OF TEST MSG 
T40ER 

L PSCNT.l BUMP PASS CNTR 

IN CASE OF SKIP 

I EM) GO TO MONITOR END 



190E O 42DF 



190F O 

190F 42F1 

1910 4480 0131 

1912 1 190F 

1913 1 0814 

1914 1 08F1 

1915 1 080C 

1916 C2B2 

1917 EA72 

1918 EAD4 

1919 D224 

191A EABO 
191 B O D228 



A 

MDX 
T40EN BSI 
DC 
MDX 
NOP 
BSC 

T40ER PRNT . ** END OF DFT **. 

DC /FFOO 

DC /FFFF 

************************************************* ** 

* * 
******** ******************************************* 
* 

*********************** **************************** 

* * 
**************************************** ****** * **** 

* 

* SECTION END 

* 

T4101 BSI 2 CNTRL-TB GO TO CONTROL RTN 

*************************************************** 

* * 
*************************************************** 



GTDVE EQU 

* 

GTDV1 BSI 
BSI 
DC 
DC 
DC 
DC 

* 

LD 
OR 
OR 
STO 



GET DEVICE ROUTINE 



191C 





D222 


191D 





D226 


191E 





C2B4 


191F 





EA72 


1920 





1808 


1921 





1008 


1922 





829B 


1923 





D234 


1924 





8298 


1925 





D22A 


1926 





8297 


1927 





D22C 


1928 





8297 


1929 





D22E 


192 A 





8297 


192B 





D230 


192C 





8297 


1920 





D232 


192E 





D271 



OR 
STO 

STO 

STO 

LD 

OR 

SRA 

SLA 

A 

STO 

A 

STO 

A 

STO 

A 

STO 

A 

STO 

A 

STO 

STO 



2 STMLS-TB 
I RECDV 
GTOV1 
TSCED 
TSCAC 
TERM 

2 H0400-TB 
2 TSCAC-TB 
2 DVADR-TB 
2 HIOXX+1-TB *** 

2 H0100-TB BUILD START I/O IOCC 

2 SIOXX+1-TB *** 

2 TIOXX+1-TB BUILD TEST I/O IOCC 

2 SENSE+1-TB SET FOR SENSE IOCC 



BUSY RETURN 

SEL CHN EDIT 

SEL CHN AREA CODE 

TERMINATOR 

BUILD HALT I/O IOCC 
OR IN AREA CODE 

*** 



2 H0700-TB 

2 TSCAC-TB 

8 

8 

2 K6-TB 

2 SCSN5+1-TB 

2 K2-TB 

2 SCSNO+l-TB *** 

2 Kl-TB 

2 SCSN1+1-TB 

2 Kl-TB 

2 SCSN2+1-TB 

2 Kl-TB 

2 SCSN3+1-TB 

2 Kl-TB 

2 SCSN4+1-TB 

2 SCISW-TB SET INT SW 



BUILD SENSE CHANNEL 
* STATUS IOCC'S 



= 06 

= 08 

= 09 

= OA 

= OB 

= OC 



192F 1 4C80 0867 



14NOV69 
431319 



30JAN70 
431319A 



BSC 1 GETDV RETURN 

*************************************************** 

* * 

*************************************************** 



15SEP71 
431328 
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81246260 

81246270 

81246280 

81246290 

81246300 

81246310 

81246320 

81246330 

81246340 

81246350 

81246360 

81246370 

81246380 

81246390 

81246400 

81246410 

81246420 

81246430 

81246440 

81246450 

81246460 

81246470 

81246480 

81246490 

81246500 

81246510 

81246520 

81246530 

81246540 

81246550 

81246560 

81246570 

81246580 

81246590 

81246600 

81246610 

81246620 

81246630 

81246640 

81246650 

81246660 

81246670 

81246680 

81246690 

81246700 

81246710 

81246720 

81246730 

81246740 

81246750 

81246760 

81246770 

81246780 

81246790 

81246800 

81246810 

81246820 

81246830 

81246840 

81246850 

81246860 

81246870 

81246680 

81246890 

81246900 

81246910 

81246920 

81246930 
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1931 4480 0132 

1933 1 0814 

1934 1 080C 

1935 1010 

1936 D271 

1937 1 4C80 0864 



*************************************************** 

* * 
*************************************************** 

* 

FRDVE BSI 1 RELDV RELEASE DEVICE 

DC TSCED SEL CHN EDIT 

DC TERM TERMINATOR 

* 

SLA 16 RESET- 

STO 2 SCISW-TB INTERRUPT SW 

BSC I FREDV RETURN 
*************************************************** 

* * 
*************************************************** 
* 

* CALL *************** 

* * BSI 2 SIO-TB * 

* * DC CCWADR * 

* ****************** 
* 
*************************************************** 

* * 
*************************************************** 



^ V 


1939 











1939 





6920 






193A 





6B21 






193B 


1 


6780 


086D 




1930 


1 


7401 


0860 




193F 





1000 






1940 





C300 






1941 





D227 






1942 





D2C5 






1943 





10A0 






1944 





DA35 






1945 





DA37 






1946 





D26F 


: 1 € 


1 


1947 
1948 






0A27 
0A29 


Iff ?A 


1949 





0229 





SIONT EQU * 

STX 1 SIOX1+1 

STX 3 SIOX1+3 

LDX 13 SIO 

MDX L SIO.l 
NOP 



J LD 
STO 
STO 

* 

SIO01 SLT 
STD 
STD 
STO 

XIO 

XIO 
STO 



3 O 

2 SIOXX-TB 
2 CAWSV-TB 

32 
2 SCSXO-TB 



ENTRY POINT 

SAVE REGS 

*** 

GET CALLING ADDRESS 

BUMP FOR RETURN 

GET CCW ADDRESS 

SET FOR XIO 

SAVE FOR POSSIBLE PRINTS 

CLEAR CSW 

** 



08 1 2-A 
35 



194A 7006 



194B O 4200 



* 
* 

* 
* 



2 SCSX0+2-TB ** 

2 WIOSW-TB CLEAR WAIT SW 

2 SIOXX-TB - DO THE START I/O 

2 SCSNO-TB GET CHANNEL STATUS 

2 SCSNO-TB SAVE FOR LATER EXAM 



MDX SI003 GO TEST FOR ERRORS 

LOOP ON TIO UNTIL DEVICE END 

2 TIO-TB GO DO A TIO 



194C 

194D 

194E 1 

1950 O 



C23E 

100B 

4C28 194B 

70F2 



1951 C229 

1952 1007 

1953 1 4C10 1961 

1955 C2D6 

1956 1 4C28 1959 

1958 4047 



SI 002 BSI 
* 

LD 

SLA 

BN 

MDX 
* 

51003 LD 
SLA 
BNN 

* CMS ACCEPTED 

51004 LD 2 SIOSW-TB 
BN SIOX1 



2 SCSX8+1-TB GET UNIT STATUS 

UNBZY TEST FOR BUSY 

SI002 BR IF STILL BUSY 

SIOOl GO DO THE SIO AGAIN 



BSI 



2 SCSNO-TB GET CHAN STATUS 
SCAB2 TEST FOR BUSY 
SI005 BRANCH IF NOT NEG 

GET SIO SW 
•BR IF SET 

WA1TT " GO WAIT FOR DE OR UNIT CHK 



1959 





65 00 


0000 


SI0X1 


LDX 


Li 


*-* 


RESTORE REGS 


195B 





6700 


0000 




LDX 


L3 


*-* 


*** 


195D 





1010 






SLA 




16 


RESET SIO SW 


195E 





D2D6 






STO 


2 


SIOSW-TB 


* 


195F 


1 


4C80 


08 6D 


* 

SIOOE 


BSC 


I 


SIO 


THEN EXIT 


1961 





C2D6 




LC 


2 


SIOSW-TB 


GET CNTRL SW 
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30JAN70 
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1SSEP71 
431328 



812469*0 

81246950 

81246960 

81246970 

81246980 

81246990 

81247000 

81247010 

81247020 

81247030 

81247040 

812470S0 

81247060 

81247070 

81 2470 80 

81247090 

81 2471 OO 

81247110 

81 2471 20 

81247130 

81 2471 40 

812471 SO 

812471 60 

81247170 

81 2471 80 

81247190 

81247200 

81247210 

81247220 

81247230 

81247240 

81247250 

81247260 

81247270 

81247280 

812472 90 

81247300 

81247310 

81247320 

81247330 

812473*0 

812473 SO 

81247360 

81247370 

812473SO 

81247390 

81247*00 

81247*10 

81247*20 

81247*30 

81247**0 

81247*50 

81247*60 

81247470 

81247*80 

81247490 

81247SOO 

81247510 

81247520 

81247530 

812475*0 

81247SSO 

81247560 

81247570 

81247S80 

81247590 

81247600 

81247610 
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DATE 
EC NO. 



1962 1001 

1963 1 4C28 1959 



1965 
1966 
1967 
1969 
196A 
196B 
196C 



CAC9 

DA5B 

4400 1DD8 

D25F 

1090 

D262 

C229 



196D 1 4C10 1977 



196F 
1970 
1971 
1972 
1973 
1974 
1975 
1976 

1977 
1978 
197A 
197B 
197C 
197D 
197E 
197F 
1980 
1981 
1982 

1983 
1984 
1985 
, 1987 
1988 
1989 
198A 
198C 
198E 
198F 
1990 
1991 

1993 
1994 
1995 
1996 
1997 
1998 
1999 



C2A8 
42F4 
109O 
D255 
42E2 
0108 
08D4 
7023 

1007 

4C10 1983 

C2A7 

8297 

42F4 

1090 

D255 

42E2 

010C 

080 4 

7017 



C229 

1001 

4C10 1955 

42EB 

CA1D 

109F 
1 4C10 1993 
1 6780 08A6 
C301 
F2A8 

1008 

1 4C18 1943 



C2A7 
42F4 
1090 
D255 
42E2 
010F 
08D4 



199 A C283 

199B 100S 

199C 1 4C28 194B 

199E 42FA 

199F 70AB 



19A0 0000 
19A1 O C28D 



14N0V69 
431319 



30JAN70 
431319A 



SLA 

BN 

LDD 

STD 

BSI 

STO 

SLT 

STO 

LD 

BNN 

* NOT 
LD 
BSI 
SLT 
STO 
BSI 
DC 
DC 
MDX 

* 

51006 SLA 
BNN 
LD 
A 

BSI 
SLT 
STO 
BSI 
DC 
DC 
MDX 

* 

51007 LD 
SLA 
BNN 
BSI 
LDD 
SLT 
BNN 
LDX 
LD 
EOR 
SLA 
BZ 

* 

51008 LD 
BSI 
SLT 
STO 
BSI 
DC 
DC 

* 

51009 LD 
SLA 
BN 

BSI 
MD X 

********** 
* 

********** 
* 

* WAIT 
* 

WAITT DC 
LD 



15SEP71 
431328 



1 
SI0X1 



TEST FOR EXIT EVEN IF ERR 
BR IF SET 



TYP2-TB «SIO • 

STSER+6-TB SET IN MSG 

TCVSR GET SECT/RTN NUMBERS 

STSER+10-TB 

16 

STSER+13-T8 SET IN MSG 

SCSNO-TB GET CHAN STATUS 

BR IF NOT OPER IS NOT SET 



SI006 
OPERATIONAL 
2 H0013-TB 
2 TCVBE-TB 

16 

STSER-TB 

EROUT-TB 

/0108 

STSER 

SI009 



2 
2 



SCABZ 

SI 007 

H0011-TB 

Kl-TB 

TCVBE-TB 

16 

STSER-TB 

EROUT-TB 

/010C 

STSER 

SI009 



2 SCSNO-TB 

SCUSP 

SI004 
2 GETSN-TB 

2 SNWDS-TB 
FSKIN 
SI008 

13 SIOXX 

3 1 

2 H0013-TB 
8 
SI001 

2 HOOU-TB 
2 TCVBE-TB 
16 

2 STSER-TB 
2 EROUT-TB 

/010F 

STSER 

2 TSWO-TB 
ORTRY 
SI002 



GET MSG NUMBER 
CONVERT TO PRNT CODE 
SAVE Q ONLY 
SET IN MSG 
PRINT ERROR MSG 
TAGS AND OPTIONS 
MSG ADDRESS 
LOOP 

TEST FOR ADAPTER BUSY 

BR IF NOT 

SET MSG NUMBER 

CONVERT 

Q ONLY 

SET IN MSG 

CALL ERROR PRINT RTN 

MESSAGE TAGS AND OPTIONS 

MSG ADDRESS 



GET CHAN STATUS 

UNIT STATUS PENDING 

BR IF NOT SET 

ELSE GET SENSE INFO 

GET SENSE WORDS 

TEST FOR SEEK INCOMPLETE 

BR IF NOT SET 

GET CCW ADDRESS 

GET FLAGS AND OP CODE 

TEST FOR RECALIBRATE 

RETRY IF SO 

SET ERR NUMBER 
CONVERT 
Q ONLY 
SET IN MSG 
CALL MSG RTN 
TAGS AND OPTIONS 
MSG ADDRESS 

GET SW FNC 

TEST FOR RETRY SIO 

BR IF YES 



2 THALT-TB GO WAIT FOR OPERATOR 
SI002 LOOP 

***************************************** 

* 
**************************** ************** 
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FOR DEVICE END FROM START I/O 

GET COUNTER FOR LOOP 



*-* 
2 TERM-TB 



81247620 

81247630 

81247640 

81247650 

81247660 

81247670 

81247680 

81247690 

81247700 

81247710 

81247720 

81247730 

81247740 

81247750 

81247760 

81247770 

81247780 

81247790 

81247800 

81247810 

81247820 

81247830 

81247840 

81247850 

81247860 

81247870 

81247880 

81247890 

81247900 

81247910 

81247920 

81247930 

81247940 

81247950 

81247960 

81247970 

81247980 

81247990 

81248000 

81248010 

81248020 

81248030 

81248040 

81248050 

81248060 

81248070 

81248080 

81248090 

81248100 

81248110 

81248120 

81248130 

81248140 

81248150 

81248160 

81248170 

81248180 

81248190 

81248200 

81248210 

81248220 

81248230 

81248240 

81248250 

81248260 

81248270 

81248280 

81248290 
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0812-A 
36 



DATE 
EC NO. 



19A2 O D2BF 

19A3 4200 

19A4 O C23E 

19A5 100B 

19A6 1 4C28 19AC 

19A8 1010 

19A9 D2DA 

19AA 1 4C80 19A0 

19AC 42F1 

19AD 1 74CE 083E 

19AF 70F3 

19B0 1 4C80 19B2 

19B2 0000 



STO 

* 

WAIT1 BSI 

* 

LD 

SLA 

BN 

SLA 

STO 

BSC 

* 

WAIT2 BSI 
MDX 
MDX 



2 CNTDN-TB 
2 TIO-TB 



SET FOR LOOP 

GO DO A TEST I/O 



2 SCSX8+1-TB GET UNIT STATUS 

UNBZY TEST FOR UNIT BUSY 

WAIT2 BR TO WAIT IF ON 

16 ELSE CLEAR TIO SW 

2 TIOSW-TB * 

[ WAITT EXIT IF NOT BUSY 



19B3 

19B3 O 1010 

19B4 D270 

19B5 D22B 

19B6 0A29 _ 

19B7 1007 

19B8 1 4C10 19CB 

19BA O 0A33 



2 STMLS-TB GO TO MONITOR 
L CNTDN.-50 COUNT TIME 
WAIT1 LOOP 
BSC I WTADR GO TO TIMEOUT ADDRESS 
WTADR DC *-* TIMEOUT ADDRESS 

****************** ******************************* ** 

* * 
******************************* ******************** 
* 

* 
* 
*********************** **************** * *********** 

* * 
*********************************** *** * ************ 

TIONT EQU * ENTRY FOR XFER VECTOR 

SLA 16 ' CLEAR- 
STO 2 WATSW-TB * 
STO 2 SCSN1-TB * LOOP COUNTER 

* WAIT FOR ADAPTER NOT BUSY 

TIO0 1 XIO 2 SCSNO-TB GET CHAN. STATUS WORD 

SLA SCABZ TEST FOR ADAPTER BUSY 

BNN TIO02 BR IF NOT 

XIO 2 SCSN5-TB ALLOW POLLING 



19BB 





42F1 


19BC 


1 


7432 08AA 


19BE 





70F7 


193F 





0A2B _ 


19C0 





0241 


19C1 





0A2F 


19C2 





D242 


19C3 





0A31 


19C4 





D243 


19C5 





0A33 


19C6 





D244 



19C7 42E2 
19C8 110E 
19C9 1 19DF 



19CA 

19CB 

19CC 1 

19CE O 

19CF 1 

19D1 

19D2 O 

1903 

1904 1 

19D6 1 

19D8 



70E8 

0A21 

6C00 0859 
0A33 

4400 099A 
7006 

C23E 
100A 
4C28 19B3 

4C80 087F 

42E2 



14N0V69 

431319 



30JAN70 
431319A 



BSI 
MD X 
MDX 
* 

XIO 
STO 
XIO 
STO 
XIO 
STO 
XIO 
STO 

BSI 
DC 

DC 
* 

M3X 
* 

TI002 XIO" 
* 

STX 

XIO 

* 

BSI 
MDX 

LD 

SLA 

BN 

* 

BSC 

* 

TI003 BSI 



15SEP71 
431328 



2 STMLS-TB 
L SCSN1 .50 
TI001 

2 SCSN1-TB 

2 SCSXC-TB 

2 SCSN3-TB 

2 SCSXC+1-TB 

2 SCSN4-TB 

2 SCSXC+2-TB 

2 SCSN5-TB 

2 SCSXC+3-TB 

2 EROUT-TB 
/110E 
TIOM1 

TIONT 

2 TIOXX-TB 

L TIOSW 
2 SCSN5-TB 



GO TO MONITOR 
COUNT LOOPS 
LOOP UNTIL NOT BUSY 

GET CHANNEL STATUS 

* AND SAVE FOR ERROR 

* MESSAGE 

* 
* 
* 

* 
* 



TAGS AND OPTIONS 
ERROR MSG ADDRESS 

LOOP TO TRY AGAIN 

EXECUTE TEST I/O 



SET TIO SW 
RELIEVE POLL 



L TINTW WAIT FOR INTERRUPT 

TI003 BR IF DID NOT OCCUR 

2 SCSX8+1-TB GET UNIT STATUS 

UNCUE TEST FOR CNTL UNIT END 

TIONT RETRY IF YES 



I TIO 

2 EROUT-TB 



EXIT 



81248300 

81248310 

81248320 

81248330 

81248340 

81248350 

81248360 

81248370 

81248380 

81248390 

81248400 

81248410 

81248420 

81248430 

81248440 

81248450 

81248460 

81248470 

81248480 

81248490 

81248500 

81248510 

81248520 

81248530 

81248540 

81248550 

81248560 

81248570 

81248580 

81248590 

81248600 

81248610 

81248620 

81248630 

81248640 

81248650 

81248660 

81248670 

81248680 

81248690 

81248700 

81248710 

81248720 

81248730 

81248740 

81248750 

81248760 

81248770 

81248780 

81248790 

81248800 

81248810 

81248820 

81248830 

81248840 

81248850 

81248860 

81248870 

81248880 

81248890 

81248900 

81248910 

81248920 

81248930 

81248940 

81248950 

81248960 

81248970 
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19D9 HOE 

19DA 1 19EB 

19DB 0A23 

19DC 4203 

19DD 1 19FC 

19DE 70D4 



19DF 




0011 


19EA 





FFFF 


19EB 




0016 


19FB 





FFFF 


19FC 




0015 


1A08 





FFOO 


1A0C 




0017 


1A1D 





FFFF 



1A1E 





6916 


1A1F 





6B17 


1A20 





CA41 


1A21 





DA4S 


1A22 





CA43 


1A23 





DA47 


1A24 





0A25 


1A25 





0A29 


1A26 





D229 


1A27 





1007 



1A28 1 4C10 1A3E 

1A2A 0A29 

1A2B 1007 

1A2C 1 4C28 1A2A 

1A2E 0A33 

1A2F 1000 

1A30 C242 

1A31 100E 

1A32 1 4C28 1A3E 

1A34 6500 0000 

1A36 6700 0000 

1A38 "CA45 

1A39 DA41 

1A3A CA47 

1A3B DA43 

1A3C 1 4C80 086A 

1A3E 1 4400 1DD8 

1A40 D25F 

1A41 O 1090 



DC /110E TAGS AND OPTIONS 

DC TI0M2 ERROR MSG ADDRESS 

ISSUE HALT I/O TO CLEAR CHANNEL 

XIO 2 HIOXX-TB 



BSI 


2 TLGMS-TB 


DC 


TIOMS 


MDX 


TIONT 



. 02 ADAPTER HUNG BUSY. 
/FFFF 

. 06 CHANNEL HUNG AFTER TEST I/O. 

/FFFF 

. A HALT I/O HAS BEEN ISSUED TO. 

/FFOO 

.TRY TO RESET THE CHANNEL CONDITION. 

/FFFF 



TI0M1 PRNT 
DC 

T10M2 PRNT 

DC 
TIOMS PRNT 

DC 

PRNT 

DC 

*************************************************** 

* * * 
*************************************************** 
* 
*************************************************** 

* * 
*************************************************** 
* 

* CALL **************** 

* * BSI L GETSN * 

* ******************* 

* 
*************************************************** 

* * 

*************************************************** 

GTSNS STX 1 GTSNX+1 SAVE REGS 

3 GTSNX+3 *** 

2 SCSXC-TB SAVE SNS CHAN STATUS 

2 SCSVS-TB ** 

2 SCSXC+2-TB ** 
2 SCSVS+2-TB 

2 SENSE-TB SENSE I/O 

2 SCSNO-TB GET CHAN STATUS 

2 SCSNO-TB SAVE 
SCABZ 
GTSN2 

* SIO ACCEPTED- WAIT FOR NOT BUSY 
GTSN1 XIO 2 SCSNO-TB GET CHAN STATUS 

SCABZ TEST FOR BUSY 

GTSN1 BR IF SO 



STX 
LDD 
STD 
LDD 
STD 
GTSNO XIO 
XIO 
STO 
SLA 
BNN 



SLA 
BN 



XIO 
NOP 



2 SCSN5-TB 



ALLOW POLLING 

TO ALLOW INTERRUPT 



LD 
SLA 
BN 
GTSNX LDX LI *-* 
LDX L3 *-* 



2 SCSXC+1-TB GET UNIT STATUS 
UNCHK 
GTSN2 

RESTORE REGS 

*** 



LDD 2 SCSVS-TB RESTORE SNS CHAN STATUS 

STD 2 SCSXC-TB ** 

LDD 2 SCSVS+2-TB ** 

STD 2 SCSXC+2-TB ** 



BSC I GETSN 



EXIT TO CALLER 



6TSN2 BSI L TCVSR GET SECTION / RTN NUMBERS 
STO 2 STSER+10-TB STORE IN MSG 
SLT 16 Q TO A 



PART NO. 2279467 
PAGE 37 



81248980 
81248990 
81249000 
81249010 
81249020 
81249030 
81249040 
81249050 
81249060 
81249070 
81249080 
81249090 
81249100 
81249110 
81249120 
81249130 
81249140 
81249150 
81249160 
81249170 
81249180 
81249190 
81249200 
81249210 
81249220 
81249230 
81249240 
81249250 
81249260 
81249270 
81249280 
81249290 
81249300 
81249310 
81249320 
81249330 
81249340 
81249350 
81249360 
81249370 
81249380 
81249390 
81249400 
81249410 
81249420 
81249430 
81249440 
81249450 
81249460 
81249470 
81249480 
81249490 
81249500 
81249510 
81249520 
81249530 
81249540 
81249550 
81249560 
81249570 
81249580 
81249590 
81249600 
81249610 
81249620 
81249630 
81249640 
81249650 
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1A42 





D262 


1A43 





CACB 


1 A44 





DA5B 


1A45 





C241 


1 A46 





1001 


1A47 


1 


4C10 1A50 


1A49 





C2B7 


1 A4A 





42F4 


1A4B 





D255 


1A4C 





42E2 


1A4D 





114E 


1 A4E 


1 


08D4 


1A4F 





70D4 



1A50 C229 

1A51 1007 

1A52 1 4C10 1A5C 

1A54 C2B0 



1A55 





82B7 


1A56 





42F4 


1A57 





D255 


1A58 





42E2 


1A59 





114C 


1A5A 


1 


08D4 


1 A5B 





70C8 


1A5C 





C2B1 


1A5D 





70F7 



STO 2 STSER+13-TB 

LDD 2 TYP3-TB ■ SNS • 

STD 2 STSER+6-TB SET IN MSG 

LD 2 SCSXC-TB GET CHAN STATSUS WORD 

SLA SCUSP TEST FOR UNIT STAT.PNDING 

BNN GTSN3 BR IF NOT 

UNIT STATUS PENDING 

LD 2 H2100-TB SET MSG NUMBER 

BSI 2 TCVBE-TB CONVERT TO EBC 

STO 2 STSER-TB SET IN MSG 

BSI 2 EROUT-TB PRINT EROR MSG 

DC /U4E TAGS AND OPTIONS 

DC STSER MESSAGE 

MDX GTSNO GO TRY AGAIN 

GET CHAN STATUS 

SCABZ TEST FOR ADAPTER BUSY 

GTSN5 BR IF NOT 

2 H0100-TB SET MSG NUMBER TO 22 

2 H2100-TB CREATE PROPER MSG NUMBER 

2 TCVBE-TB CONVERT 

2 STSER-TB SET IN MSG 

2 EROUT-TB CALL ERROR MSG RTN 

/114C TAGS AND OPTIONS 

STSER MSG ADDRESS 

GTSNO GO TRY AGAIN 



* NOT OPERATIONAL 

GTSN3 LD 2 SCSNO-TB 

SLA 

BNN 

LD 
* 
GTSN4 A 

BSI 

STO 

BSI 

DC 

DC 

MDX 
* 
GTSN5 LD 

MDX 



2 H0200-TB 
GTSN4 



1ASE O 

1A5E C2F1 

1A5F D02E 

1A60 692E 

1A61 6B2E 

1A62 1 6580 1A91 

1A64 C029 

1A65 1 D500 1A93 

1A67 C027 

1A68 1 D500 1A94 

1A6A C02S 

1A6B 1 D500 1A9S 

1A6D O 7103 

1 A6E O 6922 - 

1A6F C022 

1A70 D28C 

1A71 4C80 012D 



1A73 1 6600 087F 
1A75 C01D 
1A76 D2F1 



SET MSG NUMBER TO 23 
GO TO COMMON RTN 
*************************************************** 

* * 
*************************************************** 
* 

* SAVE INDEX REGISTERS AND GO TO MONITOR 
* 
*************************************************** 

* * 
*************************************************** 
STMLE EQU * 



LD 


2 


STMLS-TB 


GET 


CALLING ADDRS 


STO 




STMSA 


PUT 


IN TEMP SAVE AREA 


STX 


1 


STMSA+1 


PUT 


REGS IN SAVE AREA 


STX 


3 


STMSA+2 


** 




LDX 


11 


STMPT 


GET 


Q LOCATION 


LD 




STMSA 


GET 


I REG 


STO 


LI 


STMST 


PUT 


IN Q 


LD 




STMSA+1 


GET 


XR1 


STO 


LI 


STMST+1 


PUT 


IN 0. 


LD 




STMSA+2 


GET 


XR3 


STO 


LI 


STMST+2 


PUT 


IN 


MDX 


1 


+3 


BUMP Q POINTER 


STX 


1 


STMPT 


SAVE 


LD 




STMRT 


SET 


UP MONITOR RETURN 


STO 


2 


MLSC2-TB 


* 




BSC 


I 


START 


GO 


VISIT MONITOR 



RETURN FROM MONITOR HERE 



1A77 C01C 

1A78 D016 



* 

* 

* 

STMLX LDX L2 TB 

LD STMST 

STO 2 STMLS-TB 

* 

LD STMST+1 
STO STMSA+1 



SET UP TABLE PNTR 
GET ENTRY LOC 
PUT IN RETURN 

GET XR1 

PUT IN TEMP SAVE 
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81249660 

81249670 

81249680 

81249690 

81249700 

81249710 

81249720 

81249730 

81249740 

81249750 

81249760 

81249770 

81249780 

81249790 

81249800 

81249810 

81249820 

81249830 

81249840 

81249850 

81249860 

81249870 

81249880 

81249890 

81249900 

81249910 

81249920 

81249930 

81249940 

81249950 

81249960 

81249970 

81249980 

81249990 

81250000 

81250010 

81250020 

81250030 

81^50040 

81250050 

81250060 

81250070 

81250080 

81250090 

81250100 

81250110 

81250120 

81250130 

81250140 

81250150 

81250160 

81250170 

81250180 

81250190 

81250200 

81250210 

81250220- 

81250230 

81250240 

81250250 

81250260 

81250270 

81250280 

81250290 

81250300 

8 ,3250310 

81250320 

81250330 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 15SEP71 
431319A 431328 



PROG ID 


0812-A 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


37 


EC NO. 


431319 


431319A 


431328 
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1A79 CO IB |_D 

1A7A O D015 STO 



DATE 
EC NO. 



STMST+2 
STMSA+2 



GET XR2 

PUT IN TEMP SAVE 



1A7B 61F7 



LDX 



1A7C 


1 


C500 


1A9F 


1A7E 


1 


D500 


1A9C 


1A80 





7101 




1A81 





70FA 





1A82 1 74FD 1A91 

1A84 O 7006 

1A85 1 6580 1A8F 

1A87 1 6780 1A90 

1A89 1 4C80 0870 

IA8B C006 

1A8C O D28C 

1A8D 70F7 



1A8E O 0000 

1A8F 0000 

1A90 O 0000 

1A91 O 0000 

1A92 1 1A73 



1A93 O 0000 

1A94 O 0000 

1A95 0000 

1A96 0000 

1A97 O 0000 

1A98 0000 

1A99 0000 

1A9A 0000 

1A9B 0000 

1A9C O 0000 

1A9D O 0000 

1A9E O 0000 



MOVE ALL SAVED 

* PARAMETERS UP 3 

* PLACES IN Q 

* 

DECREMENT Q POINTER 
IF NOT 0. CONTINUE 

ELSE RESTORE PARAMETERS 

* 

RETURN 



STMLL LD LI STMST+12 

STO LI STMST+9 

MDX 1+1 

MDX STMLL 
* 

MDX L STMPT.-3 

MDX STMPS 
* 

STMSE LDX II STMSA+1 

LDX 13 STMSA+2 

BSC I STMLS 

* GET HERE IF ENTRYS NEED SERVICING 
STMPS LD STMRT SET UP RETURN TO 

STO 2 MLSC2-TB * STMLS ROUTINE 

MDX STMSE EXIT 
* 

* TEMPORARY SAVE AREA 
* 

STMSA DC *-* 

DC' *-* 

DC *-* 
* 

STMPT DC 

STMRT DC STMLX 

* QUEUED SAVE AREA 

* 



Q POINTER 
RE-ENTRY LOCATION 



STMST 


DC 


*-* 


I 1 




DC 


*-* 


XR1 1 




DC 


*-* 


XR3 1 


* 








9 


DC 


*-* 


I 2 




DC 


*-* 


XR1 2 


3£ 


DC 


*-* 


XR3 2 




DC 


*-* 






DC 


*-* 






DC 


*-# 




* 










DC 


*-* 






DC 


*-* 






DC 


*-* 





14N0V69 
431319 



30JAN70 
431319A 



********************************** St**************** 

* * 
********* ****************************************** 

* * 

* TERLP IS CALLED BY A **BSI 2 TLPER-TB** * 

* TO TEST THE LOOP ERROR OPTION AND * 

* - BR TO THE LOOP ADD R IF BIT 12 IS SET * 

* * 
*************************************************** 

* * 
*************************************************** 
* 

GET OPTION SWS 
TEST LOOP ON ERROR 
YES 

NO. BUMP RETURN 
CONTINUE 

GET LOOP ADDRESS 



1 SSEP7i 
431328 



1A9F 





C283 




TERLP 


LD 


2 


TSWO-TB 


1 AAO 





100C 






SLA 




OLPER 


1AA1 


1 


4C28 


1AA7 


* 


8N 




TER01 


1AA3 


1 


7401 


0885 


MDX 


L 


TLPER.l 


1AA5 


1 


4C80 


0885 


* 
TER01 


BSC 


I 


TLPER 


1AA7 


1 


C480 


0B85 


LD 


I 


TLPER 



81250340 
81250350 
81250360 
81250370 
81250380 
81250390 
81250400 
81250410 
81250420 
81250430 
81250440 
81250450 
81250460 
81250470 
81250480 
81250490 
81250500 
81250510 
81250520 
81250530 
81250540 
81250550 
81250560 
81250570 
81250580 
81250590 
81250600 
81250610 
81250620 
81250630 
81250640 
81250650 
81250660 
81250670 
81250680 
81250690 
81250700 
81250710 
81250720 
81250730 
81250740 
81250750 
81250760 
81250770 
81250780 
81250790 
81250800 
81250810 
81250820 
81250830 
81250840 
81250850 
81250860 
81250870 
81250880 
81250890 
81250900 
81250910 
81250920 
81250930 
81250940 
81250950 
81250960 
81250970 
81250980 
81250990 
81251000 
81251010 
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0812-A 
38 



1AA9 D001 

1AAA 4C00 0000 



PUT IN RETURN 
CONTINUE 



STO TER02+1 
TER02 BSC L *-* 
* 

*************************************************** 

* * 
*************************************************** 

* * 

* TSTLP IS CALLED BY A **BSI 2 TLPST-TB** * 

* TO TEST THE LOOP START I/O OPTION * 

* AND BR TO THE LOOP ADO R IF BIT * 

* 8 IS SET * 
* 
*************************************************** 

* * 
*************************************************** 

* 



1AAC C283 

1AAD 1008 

1AAE 1 4C28 1AB4 

1AB0 1 7401 0888 

1AB2 1 4C80 0888 

1AB4 1 C480 0888 

1AB6 O D001 

1AB7 4C00 0000 

1AB9 1 74FD 0888 

I ABB 1 C400 0888 

1A6D D001 

1ABE 4C00 0000 



TSTLP 


LD 


2 


TSWO-TB 


GET OPTION SWS 




SLA 




OLPST 


TEST LOOP SIO 


* 


BN 




TST01 


YES 


MDX 


L 


TLPST.l 


NO. BUMP RETURN 


* 
TST01 


BSC 


I 


TLPST 


CONTINUE 


LD 


I 


TLPST 


GET LOOP ADDRESS 




STO 




TST02+1 


PUT IN RETURN 


TST02 

* 

TST03 


BSC 


L 


*-* 


CONTINUE 


MDX 


L 


TLPST. -3 


GO BACK 




LD 


L 


TLPST 






STO 




TST04+1 




TST04 


BSC 


L 


*-* 





1AC0 C2FD 

1AC1 D2FA 

1AC2 7004 

1AC3 

1AC3 C283 

1AC4 100E 

1AC5 1 4C10 1AD6 



*************************************************** 

* * 
*************************************************** 

* HALT ROUTINE 

* SETS BIT 15 IN TSWO ON AND LOOPS 

* THRU MONITOR UNTIL BIT IS CLEARED. 
* 
*************************************************** 

* * 
*************************************************** 

* ENTER HERE FOR 'WAIT FOR OPERATOR ACTION* 
THLTX LD 2 THLT-TB GET ENTRY VECTOR 

STO 2 THALT-TB PUT IN RETURN 
MDX THLT6 GO TO LOOP 

* ENTER HERE FOR 'WAIT ON ERROR' 
THLTE EQU * 



1AC7 





C2FA 


1AC8 





42F4 


1AC9 





D01F 


1ACA 





1090 


1ACB 





D01E 


1ACC 





4203 


1ACD 


1 


IAD 8 


1ACE 





C297 


1ACF 





EA83 


1AD0 





D283 





LD 


2 


TSWO-TB 


GET OPTION SWS 




SLA 




OHALT 


TEST FOR HALT ON ERR 


* 
THLTG 


BNN 




THLTR 


BR IF NO 


LD 


2 


THALT-TB 


GET CALLING ADDRESS 




BSI 


2 


TCVBE-TB 


CONVERT TO PRNT CODE 




STO 




THLT2 


SET IN MSG 




SLT 




16 


Q TO A 




STO 




THLT2+1 


SET IN MSG 




BSI 


2 


fLGMS-TB 


GO PRINT MSG 


* 


DC 




THLTM 


MESSAGE ADDRESS 


LD 


2 


Kl-TB 


SET BIT 15 




OR 


2 


TSWO-TB 


* 




STO 


2 


TSWO-TB 


* 



1AD1 42F1 
1AD2 C283 



DATE 
EC NO. 



14N0V&9 
431319 



30JAN70 
431319A 



* 

* LOOP THRU MONITOR UNTIL READY 
* 

THLTL BSI 2 STMLS-TB GO TO M0N1TRR 

* RETURN HERE 

LD 2 TSWO-TB GET SWITCH WORD 



15SEP71 
431328 
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81251020 
81251030 
81251040 
81251050 
81251060 
81251070 
81251080 
81251090 
81251100 
81251110 
81251120 
81251130 
81251140 
81251150 
81251160 
81251170 
81251180 
81251190 
81251200 
81251210 
81251220 
81251230 
81251240 
81251250 
81251260 
81251270 
81251280 
81251290 
81251300 
81251310 
81251320 
81251330 
81251340 
81251350 
81251360 
81251370 
81251380 
81251390 
81251400 
81251410 
81251420 
81251430 
81251440 
81251450 
81251460 
81251470 
81251480 
81251490 
81251500 
81251510 
81251520 
81251530 
81251540 
81251550 
81251560 
81251570 
81251580 
81251590 
81251600 
81251610 
81251620 
81251630 
81251640 
81251650 
81251660 
81251670 
81251680 
81251690 



I 
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1AD3 1 4C04 1AD1 



1AD5 42F1 

1AD6 1 4C80 0879 



0000 





0001 





0002 





0003 





0006 





0007 





0009 





OOOA 





OOOB 





OOOC 





OOOD 





OOOE 





00 OF 






1B22 




0000 




1B22 




0006 




1B28 




003C 




1B64 









1B64 





C2D9 




1B65 


1 


4C20 


1B77 


1B67 


1 


6000 


1C34 


1B69 


1 


6FO0 


1C36 


1B6B 


1 


C480 


0861 


1B6D 





100A 




1B6E 


1 


4C10 


1B77 


1B70 





C2E2 




1B71 





D2D9 




IB72 





42EB 




1B73 





C2D9 




1B74 





D2E2 




1B75 





1010 




1B76 





02D9 





BOD 



THLTL 



BSI 2 STMLS-TB 

THLTR BSC I THALT 



BR IF STILL ON 



GO TO MONITOR 
RETURN TO CALLER 



1AD8 




0017 


THLTM 


PRNT 


1AE9 




0002 


THLT2 


PR NT 


1AEB 





OOFF 




DC 


1AEC 




0014 




PRNT 


1AFA 





OOFF 




DC 


1AFB 




0011 




PRNT 


1B06 





OOFF 




DC 


1B07 




0012 




PRNT 


1B13 





OOFF 




DC 


1B14 




0012 




PRNT 


1820 





FFFF 




DC 



. ***HALT — 2311 DIAGNOSTIC AT ADRS . 

• • 

/OOFF 

. TO CLEAR HALT SET SWITCHES-. 

/OOFF 

. S/P OOPP PPPP. P=PID. 

/OOFF 

. DES XXXX XXXX XXXX XXXO. 

/OOFF 

. PRESS CONSOLE INTERUPT. 

/FFFF 



*************************************************** 

* * 
*************************************************** 
* 

* CALL ************************** 

* * BSI 2 EROUT-TB * 

* . * DC /0127 CNTRL TAGS * 

* * DC /ABCD ERR NUMBER * 

* • * <SECT,RT,ER) * 

* ***************************** 

* 
*************************************************** 

* * 
*************************************************** 
* 

* EQUATES FOR EROUT TAGS 
* 

CSW=SCSXO 
CSW=SCSX4 
CSW=SCSX8 
CSW=SCSXC 
EXIT TO ERADR 
PRINT A BLANK LINE 
BYPASS HALT LOOP 
GET SENSE BYTES 
BYPASS LINE 1 
PRINT ERROR MSG 
PRINT CAW 

* CSW 

* SNS 
*************************************************** 

* * 
*************************************************** 

ERMSG BSS E 

PRNT . **ER-XXXX . 

PRINT BSS E 60 PRINT BUFFER 

ERTNE EQU * ENTRY POINT 

LD 2 STKSW-TB GET RE-ENTRY SWITCH 
BR IF SET 
SAVE REGS 
** 

GET FLAGS 
GET SENSE BYTES 

BR IF NO 
GET RETURN ADD RS 
SET SW 

GET SENSE BYTES 
GET SAVED ADDRESS 
SET FOR RETURN 
CLEAR SWITCH 



OECXO 


EQU 





0ECX4 


EQU 


1 


OECX8 


EQU 


2 


OECXC 


EQU 


3 


OEXIT 


EQU 


6 


OEPBL 


EQU 


7 


OEBYP 


EQU 


9 


OEGSN 


EQU 


10 


0EL1B 


EQU 


1 1 


OEERR 


EQU 


12 


OECAW 


EQU 


13 


OECSW 


EQU 


14 


OESNS 


EQU 


15 



BNZ 




ERTN2 


STX 


LI 


ERT17+1 


STX 


L3 


ERT17+3 


LD 


I 


EROUT 


SLA 




OEGSN 


BNN 




ERTN2 


LD 


2 


EROUT-TB 


STO 


2 


STKSW-TB 


BSI 


2 


GETSN-TB 


LD 


2 


STKSW-TB 


STO 


2 


EROUT-TB 


SLA 




16 


STO 


2 


STKSW-TB 
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81251700 

81251710 

81251720 

81251730 

81251740 

81251750 

81251760 

81251770 

81251780 

81251790 

81251800 

81251810 

81251820 

81251830 

81251840 

81251850 

81251860 

81251870 

81251880 

81251890 

81251900 

81251910 

81251920 

81251930 

81251940 

81251950 

81251960 

81251970 

81251980 

81251990 

81252000 

81252010 

81252020 

81252030 

81252040 

81252050 

81252060 

81252070 

81252080 

81252090 

81252100 

81252110 

81252120 

81252130 

81252140 

81252150 

81252160 

81252170 

81252180 

81252190 

81252200 

81252210 

81252220 

81252230 

81252240 

81252250 

81252260 

81252270 

81252280 

81252290 

81252300 

81252310 

81252320 

81252330 

81252340 

81252350 

81252360 

81252370 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



1SSEP71 
431328 



PROG ID 
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0812-A 
39 



DATE 

EC NO. 











* 










81252380 


1B77 


1 


6780 


0861 


ERTN2 


LDX 


13 


EROUT 


SET REG 


81252390 


1B79 





C300 






LD 


3 





GET OPTIONS/FLAGS 


81252400 


1B7A 





1007 






SLA 




OEPBL 


PRINT BLANK LINE FIRST 


81252410 


1B7B 


1 


4C10 


1B7F 




BNN 




ERTN3 


BR IF NOT 


81252420 


1B7D 





4203 






BSI 


2 


TLGMS-TB 


PRINT BLANK LINE 


81252430 


1B7E 


1 


080C 




* 


DC 




TERM 


/FFFF 


81252440 
81252450 


1B7F 





C300 




ERTN3 


LD 


3 





GET TAGS 


81252460 


1B8 





100B 






SLA 




OEL1B 


BYPASS LINE 1 PRINT 


81252470 


1881 


1 


4C28 


1BB7 




BN 




ERT10 


BR IF YES 


81252480 


1B83 





1001 






SLA 




0EERR-0EL1B ERROR MSG 


81252490 


1B84 


1 


4C10 


1B97 


* 


BNN 




ERTN6 


BR IF NOT 


81252500 
81252510 


1B86 





6100 






LDX 


1 





SET COUNT TO ZERO 


81252520 


1B87 





C301 






LD 


3 


1 


GET MSG ADDRESS 


81252530 


1B88 





D001 






STO 




ERTN4+1 


SET FOR LOAD INSTRUCTION 


81252540 


1B89 





C500 


0000 


ERTN4 


LD 


LI 


*-* 


GET WORD TO MOVE 


81252550 


1B8B 





F28D 






EOR 


2 


TERM-TB 


IS IT END OF MSG 


81252560 


1B8C 


1 


4C18 


1B93 




B2 




ERTN5 


BR YES 


81252570 


1B8E 





F28D 






EOR 


2 


TERM-TB 


RESTORE DATA WORD 


81252580 


1B8F 


1 


D500 


1B2S 




STO 


LI 


ERMSG+3 


STORE IN TABLE 


81252590 


1B91 





7101 






MDX 


1 


1 


COUNT 


81252600 


1B92 





70F6 




* 


MDX 




ERTN4 


LOOP 


81252610 
81252620 


1B93 


1 


7500 


1B25 


ERTN5 


MDX 


LI 


ERMSG+3 


POINT TO NEXT WORD 


81252630 


1B95 





1000 






NOP 








81252640 


1B96 





7009 




* 


MDX 




ERTN7 




81252650 
81252660 


1B97 





C301 




ERTN6 


LD 


3 


1 


GET MSG NUMBER 


81252670 


1B98 





42F4 






BSI 


2 


TCVBE-TB 


CONVERT TO 43 CODE 


81252680 


1B99 





D08B 






STO 




ERMSG+3 


STORE 


81252690 


1B9A 





18D0 






XCH 






SWAP A-Q 


81252700 


1B9B 





D08A 






STO 




ERMSG+4 




81252710 


1B9C 





1010 






SLA 




16 


SET IN TWO BLANKS 


81252720 


1B9D 





D089 






STO 




ERMSG+5 


** 


81252730 


1B9E 


1 


6500 


1B28 


* 


LDX 


LI 


PRINT 


SET POINTER 


81252740 
81252750 


18A0 





02D4- 


'- - c 


ERTN7 


LD 


2 


D VAD R-TB k " 


GE^T DEVICE ADDRESS 


81252760 


1BA1 





42F4 






BSI 


2 


TCVBE-TB 


CONVERT TO 43 CODE 


81252770 


1BA2 





1090 






SLT 




16 


LOW ORDER TWO BYTES ONLY 


81252780 


1BA3 





D268 






STO 


2 


UNADR+3-TB 


STORE FOR PRINT 


81252790 


1BA4 





C2E2 






LD 


2 


EROUT-TB 


GET CALLING ADDRESS 


81252800 


18A5 





9297 






S 


2 


Kl-TB 


POINT TO CALLING INSTRUCTN 


81252810 


1BA6 





42F4 






BSI 


2 


TCVBE-TB 


CONVERT TO HEX 


81252820 


1BA7 





D26C 






STO 


2 


UNADR+7-TB 




81252830 


1BA8 





1090 






SLT 




16 




81252840 


18A9 





D26D 






STO 


2 


UNADR+8-TB 




81252850 


1BAA 





6904 






STX 


1 


ERTN8+3 


SAVE REG IN INSTRUCTION 


81252860 


1BAB 





6100 




* 


LDX 


1 





SET COUNT 


81252870 
81252880 


1BAC 


1 


C500 


08E4 


ERTN8 


LD 


LI 


UNADR 


GET WORD TO MOVE 


81252890 


1BAE 





D500 


0000 




STO 


LI 


*-* 


STORE IN NEW LOC'N 


81252900 


1BB0 





F28D 






EOR 


2 


TERM-TB 


TEST FOR END OF MSG 


81252910 


1BB1 


1 


4C16 


1BB5 




BZ 




ERTN9 


'BR IF" YES 


81252920 


1BB3 





7101 






MDX 


1 


1 


BUMP COUNT 


81252930 


1BB4 





70F7 




* 


MDX 




ERTN8 


LOOP 


81252940 
81252950 


1BB5 





4203 




ERTN9 


BSI 


2 


TLGMS-TB 


GO PRINT MSG 


81252960 


1BB6 


1 


1B22 






DC 




ERMSG 


ADDRESS OF MESSAGE 


81252970 










* 


— CAW 


ADD RESS 


OF CCW CHAIN 


81252980 


1BB7 





C300 




ERT10 


LD 


3 





GET TAGS 


81252990 


1BB8 





100D 






SLA 




OECAW 


TEST FOR CAW, CSW. SNS 


81253000 


1BB9 


1 


4C18 


1C2C 




BZ 




ERT15 


BR IF NONE 


81253010 


1BBB 


1 


6500 


1B28 




LDX 


LI 


PRINT 


SET POINTER TO AREA 


81253020 


1BBD 


1 


4C10 


1BC9 




BNN 




ERT11 


BR IF NO CAW 


81253030 


1BBF 





10A0 


' - ■ 




SLT : - 




32 




81253040 


1BC0 





D900 






STD 


1 







81253050 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 
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\ ( i ( ( i i C ( ( 



< < t. ( ( ( 



I 



1BC1 


7102 


MDX 


1 


2 








81253060 


1BC2 


CACD 


LDD 


2 


PCAW-TB 


GET HEADER 




81253070 


1BC3 


D900 


STD 


1 







STORE IN AREA 




81253080 


1BC4 


C2C5 


LD 


2 


gAWSV- 


TB 


GET CCW ADDRESS FOR SIO 


81253090 


.1BC5 


42F4 


BSI 


2 


TCVBE- 


TB 


CONVERT TO EBC 




81253100 


1BC6 


D902 


STD 


1 


2 




STORE IN AREA 




81253110 


1BC7 


7104 


MDX 


1 


4 




BUMP POINTER 




81253120 


1BC8 


1000 


NOP 












81253130 






* — csw 


— 


CHANNEL 


DSW WORDS 




81253140 


1BC9 


C300 


ERT11 LD 


3 







GET TAGS 




81253150 


1BCA 


100E 


SLA 




OECSW 




TEST FOR CSW TO BE 


PRINTED 


81253160 


1BCB 


1 4C10 1BFB 


BNN 




ERT12 




BR IF NOT 




81253170 


1BCD 


C300 


LD 


3 







GET OPTION WORD 




81253180 


1BCE 


1 6700 08B4 


LDX 


L3 


SCSXO 




POINT TO CSW SAVE 


AREA 


81253190 


1BD0 


180C 


SRA 




12 




SAVE BITS 0-3 




81253200 


1BD1 


100C 


SLA 




12 




*** 




81253210 


1BD2 


4830 


SKP 




Z- 








81253220 


1BD3 


7304 


MDX 


3 


4 




BUMP TO NEXT SAVE 


AREA 


81253230 


1BD4 


1001 


SLA 




1 




TEST NEXT BIT 




81253240 


1BDS 


4830 


SKP 




2- 








81253250 


1BD6 


7304 


MDX 


3 


4 




BUMP TO NEXT SAVE 


AREA 


81253260 


1BD7 


1001 


SLA 




1 




TEST NEXT BIT 




81253270 


1BD8 


4830 


SKP 




2- 








81253280 


1BD9 


7304 


MDX 


3 


4 




BUMP TO NEXT SAVE 


AREA 


81253290 


1BDA 


1001 


SLA 




1 




TEST NEXT BIT 




81253300 


1BDB 


4830 


SKP 




z- 








81253310 


1BDC 


7304 


MDX 


3 


4 




BUMP TO NEXT SAVE 


AREA 


81253320 


1BDD 


CACF 


LDD 


2 


PCSW-TB 


GET 'CSW • 




81253330 


1BDE 


D902 


STD 


1 


2 




SET IN MSG 




81253340 


1BDF 


C300 


LD 


3 







GET CHANNEL STATUS 


WORD 


81253350 


1BE0 


42F4 


BSI 


2 


TCVBE- 


TB 


CONVERT 




81253360 


1BE1 


D904 


STD 


1 


4 




STORE 




81253370 


1BE2 


C301 


LD 


3 


1 




GET UNIT STATUS WORD 


81253380 


1BE3 


42F4 


BSI 


2 


TCVBE- 


•TB 


CONVERT 




81253390 


1BE4 


D107 


STO 


1 


7 




STORE 




81253400 


1BE5 


1090 


SLT 




16 








81253410 


1BE6 


D108 


STO 


1 


8 




STORE 




81253420 


1BE7 


C302 


LD 


3 


2 




GET CSW ADDRESS WORD 


81253430 


1BE8 


42F4 


BSI 


2 


TCVBE-TB 


CONVERT 




81253440 


1BE9 


D90A 


STD 


1 


10 




STORE 




81253450 


1BEA 


C303 


LD 


3 


3 




GET BYTE COUNT 




81253460 


1BEB 


42F4 


BSI 


2 


TCVBE- 


•TB 


CONVERT 




81253470 


1BEC 


D10D 


STO 


1 


13 




STORE 




81253480 


1BED 


1090 


SLT 




16 




Q TO A 




81253490 


1BEE 


D10E 


STO 


1 


14 




STORE 




81253500 


1BEF 


C2D3 


LD 


2 


SPACE- 


-TB 


GET SPACES 




81253510 


1BF0 


D100 


STO 


1 







** 




81253520 


1BF1 


D101 


STO 


1 


1 




** 




81253530 


1BF2 


D106 


STO 


1 


6 




SET IN BETWEEN 




81253540 


1BF3 


D109 


STO 


1 


9 




SET IN BETWEEN 




81253550 


1BF4 


D10C 


STO 


1 


12 




SET IN BETWEEN 




81253560 


1BF5 


D10F 


STO 


1 


15 








81253570 


1BF6 


Dill 


STO 


1 


17 




CLEAR NEXT SLOT TOO 


81253580 


1BF7 


710F 
1000 


MDX 
-NOP 


1 


15 




BUMP POINTER 




81253590 


1BF8 




81253600 


1BF9 


1 6780 0861 


LDX 


13 


EROUT 




RESTORE REG 




81253610 






* SNS 




GET 


2311 


SENSE INFORMATION 




81253620 


1BFB 


C300 


ERT12 LD 


3 







GET TAGS 


„ 


81253630 


1BFC 


100F 


SLA- 




OESNS 




TEST FOR SNS INFO 




81253640 


1BFD 


1 4C10 1C25 


BNN 




ERT14 




BR IF NO 




81253650 


1BFF 


CADI 


LDD 


2 


PSNS-TB 


GET HEADER WORDS 




81253660 


ICOO 


D100 


STO 


I 







STORE 




81253670 


1C01 


1090 


SLT 




16 








81253680 


1C02 


D101 


STO 


1 


1 




STORE 




81253690 


1C03 


7103 


MDX 


1 


3 




BUMP POINTER 




81253700 


1C04 


1000 


NOP 












81253710 


1C05 


C29D 


LD 


2 


K8-TB 








81253720 


1C06 


D0A8 


STO 




ERTN8+3 


SAVE TEMPORARILY 




81253730 
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1C07 CA1D 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



0812-A 
40 



1C08 
1C09 
1C0A 
1C0B 
1C0C 
1C0D 
1C0E 
1C0F 
1C10 
1C11 
1C12 
1C13 
1C14 
1C15 
1C16 
1C17 
1C18 
1C19 
1C1A 
1C1B 
1C1D 
1C1E 
1C1F 
1C20 
1C21 
1C22 
1C24 



1C25 
1C26 
1C27 
1C28 1 
1C29 
1C2A 1 



18DC 

DAC7 

108C 

1010 

1081 

1003 

1081 

1003 

1081 

1003 

1081 
42F4 
D100 

1090 
D101 
7102 

1000 

C095 

8297 

4C04 1C21 

C2D3 

D100 

7101 

1000 

CAC7 

74FF 1BAF 

70E3 

C28D 
D100 
4203 
1B28 
C2D9 
4C20 1C39 



1C2C C300 
1C2D 1009" ' 
1C2E 1 4C28 1C31 
1C30 42FA 

1C31 C300 

1C32 1006 

1C33 O 6500 0000 

1C35 6700 0000 

1C37 1 4CA8 1C3D 

1C39 1 7402 0861 
1C3B 1 4C80 0861 
1C3D 0000 



1C3E 

1C3E C2D5 

1C3F 1 4C18 1C43 

1C41 42F1 

1C42 70FB 



LDD 

* 

ERT13 RTE 
STD 
SLT 
SLA 
SLT 
SLA 
SLT 
SLA 
SLT 
SLA 
SLT 
BSI 
STO 
SLT 
STO 
MDX 
NOP 
LD 
A 

BOD 
LD 
STO 
MDX 
NOP 
LDD 
MDX 
MDX 



2 SNWDS-TB 

28 
2 ERTSV-T8 

12 

16 

1 

3 

1 

3 

1 

3 

1 
2 TCVBE-TB 
1 

16 
1 1 

1 2 

ERTN8+3 

2 Kl-TB 
*+4 

2 SPACE-TB 
1 
1 1 



GET SENSE INFO 

MOVE AROUND 
SAVE FOR LOOP 



CONVERT TO HEX 

STORE IN TBLE 

Q TO A 

STORE 

BUMP POINTER 

FETCH COUNTER 

ADD ONE 

BRANCH IF ODD 

FETCH SPACE CHARACTERS 

PLACE IN PRINT LINE 

ADVANCE PRINT LINE POINTER 



2 ERTSV-TB GET SENSE INFO BACK 

L ERTN8+3.-1 COUNT 



ERT13 



ERT14 LD 

STO 

BSI 

DC 

LD 

BNZ 
* 
ERT15 LD 

SLA 

BN 

BSI 
* 
ERT16 LD 

SLA 
ERT17 LDX LI *-* 

LDX L3 *-* 

BN I ERADR 

* 
ERT18 MDX L EROUT. 2 

BSC I EROUT 
ERADR DC *-* 



2 TERM-TB 

1 

2 TLGMS-TB 
PRINT 

2 STKSW-TB 
ERT18 

3 O 
OEBYP 
ERT16 

2 THALT-TB 

3 
OEXIT 



LOOP UNTIL FINISHED 

SET /FFFF AT END 
** 
PRINT MESSAGE 

GET SWITCH 
EXIT IF SET 

GET TAGS 

BR IF NOT HALT 
WAIT FOR OPERATOR 

GET TAGS 

TEST FOR OTHER EXIT 

RELOAD REGS 

*** 

BR IF YES 



DAT6 

EC NO. 



X4N0V69 
431319 



30JAN70 
431319A 



BUMP RETURN BY TWO 
EXIT 

RETURN ADDRESS PUT HERE 
*************************************************** 

* * 

******************** ******************************* 
*************************************************** 

* * 
*************************************************** 
* 

* 
*************************************************** 

* * 
********************* ****************************** 

TLGME EQU * ENTRY POINT 

LD 2 LGBSY-TB GET LOG BUSY SW 

BZ TLGNB BR IF NOT BUSY 

BSI 2 STMLS-TB GO VISIT MONITOR 

B TLGME ELSE LOOP 

* 



15SEP71 
431326 



81253740 

81253750 

81253760 

81253770 

81253780 

81253790 

81253800 

81253810 

81253820 

81253830 

81253840 

81253850 

81253860 

81253870 

81253880 

81253890 

81253900 

81253910 

81253920 

81253930 

81253940 

81253950 

81253960 

81253970 

81253980 

81253990 

81254000 

81254010 

81254020 

81254030 

81254040 

81254050 

81254060 

81254070 

81254080 

81254090 

81254100 

81254110 

81254120 

81254130 

81254140 

81254150 

81254160 

81254170 

81254180 

81254190 

81254200 

81254210 

81254220 

81254230 

81254240 

81254250 

81254260 

81254270 

81254280 

81254290 

81254300 

81254310 

81254320 

81254330 

81254340 

81254350 

81254360 

8125437C 

81254380 

81254390 

81254400 

81254410 



PROG ID 
PAGE 



0812-A 
40A 



( 



( A ( ( (I ( ((((<((( 



c 
c 
c 
c 
c 
c 
c 
o 

-n 

G 

i 

V. 

c 
c 
c 
c 
c 
c 
o 
o 
c 
c 
c 
c 
c 
o 
o 
o 
o 
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1C43 





C203 




TLGNB 


LD 


2 


TLGMS-TB 


GET CALLING ADDRS 


81254420 


1C44 





D2D5 






STO 


2 


LGBSY-TB 


SET LOG BUSY SW 


812S4430 


1C45 


1 


D400 


ID 32 




STO 


L 


LEXIT+1 


SET RETURN ADDRS 


81254440 


1C47 


1 


6FO0 


1D2C 




STX 


L3 


TLGX3+1 


SAVE REG 


81254450 


1C49 


1 


6000 


1D2E 




STX 


LI 


TLGX3+3 


SAVE REG 


81254460 


1C4B 





C283 






LD 


2 


TSWO-TB 


GET OPTION SWS 


81254470 


1C4C 





100D 






SLA 




OBYPR 




81254480 


1C4D 


1 


4C28 


1D29 


* 


BN 




TLGEN 


BR IF BYPASS PRNTOUT 


81254490 
81254500 


1C4F 





C294 






LD 


2 


TLGED-TB 


GET EDIT FOR PRINTER 


81254510 


1C50 


1 


4C10 


1C53 




BNN 




TLG01 


BR IF NOT SELECTED 


81254 520 










***** 


********************************************** 


81254530 


1C52 





70FF 






MDX 




*-l 


TRAP STOP 


812 54540 










*************************************************** 


81254550 










* 


RELEASE 


SC IN CASE SHARED CHANNEL 


81254560 


1C53 





C295 




TLG01 


LD 


2 


TSCED-TB 


GET DDEF 


81254570 


1C54 


1 


4C10 


1C62 


* 


BNN 




TLG02 


BR IF NOT SEL 


81254580 
81254 590 


1C56 





1010 






SLA 




16 


CLEAR CHANNEL FREED SW 


81254600 


1C57 


1 


D400 


1D33 




STO 


L 


FRESW 


* 


81254610 


1C59 





C2A0 






LD 


2 


K20-TB 


SET COUNTER FOR DELAY 


81254620 


1C5A 





D22B 






STO 


2 


SCSN1-TB 


** 


81254630 


1C5B 





42FI 






BSI 


2 


STMLS-TB 


GO TO MONITOR 


81254640 


1C5C 


1 


.74FF 


08AA 




MDX 


L 


SCSN1 ,-1 


DECR. COUNTER 


81254650 


1C5E 





70FC 




* 


MDX 




*-4 


LOOP UNTIL FINISHED 


81254660 
81254670 


1C5F 





42E5 






BSI 


2 


FREDV-TB 


FREE SEL CHNL 


81254680 


1C60 


1 


6C00 


ID 33 




STX 


L 


FRESW 


SET SC FREED SW 


81254690 


1C62 





4480 


0131 


TLG02 


BSI 


1 


REGDV 


REQUEST DEVICE 


81254700 


1C64 


1 


1C7B 






DC 




TLG03 


BUSY RETURN 


81254710 


1C65 


1 


0813 






DC 




TLGED 


EDIT FOR PRINTED 


81254720 


1C66 


1 


1CEF 






DC 




TLGDA 


AREA CODE GIVEN BACK 


81254730 


1C67 


1 


080C 




* 


DC 




TERM 


TERMINATOR 


81254740 
81254750 


1C68 





C2DE 






LD 


2 


T4 5SW-TB 


GET 43/53 SW 


81254760 


1C69 


1 


4C04 


1C70 


* 


BOD 




TL640 


BR IF 1443 


81254770 
81254780 


1C6B 





C2B0 






LD 


2 


H0100-TB 


ELSE BUILD WRITE IOCC 


81254790 


1C6C 


1 


ECOO 


1CEF 




OR 


L 


TLGDA 


* 


81254800 


1C6E 





D24E 






STO 


2 


TLGWR+1-TB * 


81254810 


1C6F 





7004 




* 


MDX 




TLGCM 


* GO TO COMMON RTN 


81254820 
81254830 


1C70 





C2B3 




TLG40 


LD 


2 


H0500-TB 


CREATE WR IOCC 


81254840 


1C71 


1 


ECOO 


1CEF 




OR 


L 


TLGDA 


OR IN AREA CODE 


81254850 


1C73 





D24E 






STO 


2 


TLGWR+1-TB 


81254860 


1C74 





C2B4 




TLGCM 


LD 


2 


H0700-TB 


CREATE SENSE IOCC 


81254870 


1C75 


1 


ECOO 


1CEF 




OR 


L 


TLGDA 


OR IN AREA CODE 


81254880 


1C77 





D2S0 






STO 


2 


TLGSN+1-TB 


81254890 


1C78 





EA97 






OR 


2 


Kl-TB 


SET RESET BIT 


81254900 


1C79 





D254 






STO 


2 


TLGSR+1-TB *** 


81254910 


1C7A 





7002 




* 


MDX 




TLG04 


GO TO PRINT 


81254920 
81254930 


1C7B 





42F1 




TLG03 


BSI 


2 


STMLS-TB 


GO TO MONITOR 


812 54940 


1C7C 





70E5 




* 


MDX 




TLG02 


LOOP TO TRY AGAIN 


81254950 
81254960 


1C7D 


1 


6580 


1D32 


TLG04 


LDX 


11 


LEXIT+1 


GET CALLING RTN ADDR 


81254970 


1C7F 





C100 






LD 


1 





GET MSG ADDRESS 


81254980 


1C80 





D001 






STO 




* + l 


SET FOR LOAD INDEX 


81254990 


1C81 





6500 


0000 




LDX 


LI 


*-* 


LOAD REG 


81255000 


1C83 


1 


6D00 


1D36 




STX 


LI 


TLGCH+2 


SAVE IN 'GET CHAR* RTN 


81255010 


1C85 


1 


6780 


08CC 




LDX 


13 


TLGWR 


GET WRD COUNT ADDRESS 


81255020 


1C87 





6B16 




* 


STX 


3 


TLGBP+1 


SET FOR BUMPING 


81255030 
81255040 


1C88 





C100 






LD 


1 





GET FIRST DATA WORD 


81255050 


1C89 





F28D 






EOR 


2 


TERM-TB 


COMPARE WITH /FFFF 


81255060 


1C8A 


1 


4C18 


1C90 


* 


B2 




TLG05 


BR IF YES 


81255070 
81255080 


1C8C 





C280 






LD 


2 


TPID-TB 


GET PID 


81255090 



( ( ( ( ( ( ( < ( ( ( < 
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1C8D E2BB 

1C8E 42F4 

1C8F DB02 



1C90 
1C91 
1C92 
1C93 
1C94 
1C95 
1C96 

1C97 
1C99 
1C9A 
1C9B 
1C9C 
1C9D 
1C9F 
1CA1 
1CA2 
1CA3 
1CA4 
1CA5 
1CA6 
1CA7 
1CA8 



1010 
D252 
D253 
D05A 
C299 
D300 
7301 



1 4400 1D34 
700F 

1008 

EA4F 

0303 

7401 0000 

4400 1D34 

7007 

1888 

C303 

1808 

1088 

D303 

7301 

70EE 



1CA9 C2DE 

1CAA 1 4C04 1CD6 

1CAC C253 

1CAD 1 4C18 1CB1 

1CAF C2BE 

1CB0 D303 

1CB1 O C2AF 

1CB2 EB03 

1CB3 D303 

1CB4 1 6500 ID 53 

1CB6 6936 

1CB7 O 1010 

1CB8 D252 



1CB9 C032 

1CBA 1 D400 ID 52 

1CBC 7023 



1CBD 1 6530 ICED 
1CBF C252 , 
1CC0 1 4C18 1CC9 



1CC2 





1010 


1CC3 





D252 


1CC4 





C100 


1CC5 





1008 


1CC6 





7101 


ICC 7 





6925 


1CC8 





7 005 



AND 2 H7FFF-TB 

BSI 2 TCVBE-TB 

STD 3 2 



DROP SELECT BIT 
CONVERT TO 1443 CODE 
SET IN MSG 



* 
TLG05 



* 
TLG06 



TLGBP 



SLA 

STO 

STO 

STO 

LD 

STO 

MDX 

BSI 

MDX 

SLA 

OR 

STO 

MDX 

BSI 

MDX 

SRT 

LD 

SRA . 

SLT 

STO 

MDX 

MDX 



L 
L 



16 CLEAR - 

TLGSW-TB * 1ST/2ND CHAR SW 

TLGSW+1-TB * 

TLGIS * INTERRUPT SW 

K3-TB * 

O 

1 BUMP TO PT TO BUFFER 

TLGCH GET A CHARACTER 

TLG07 COME HERE FOR HEX FF 

8 PUT IN HIGH ORDER BYTE 

TLGSP-TB SET LOW ORDER TO SP 

3 STORE IN BUFFER 

*-*«l- BUMP WORD COUNT 

TLGCH GET ANOTHER CHARACTER 

TLG07 IF CHARACTER IS HEX FF 

8 CHARACTER TO Q 

3 GET LAST CHARACTER 

8 BYTE TO LOW POSITION 

8 COMBINED BYTES IN A 

3 STORE IN BUFFER 

1 BUMP SINK 

TLG06 LOOP UNTIL HEX FF 



* 
* 
* 
* 
TLG07 



TEST FOR 1443. IF YES GO TO XIO 
IF 1053 DO A CARRIAGE RETURN 

LD 2 T45SW-TB GET 43/53 SW 

BOD TLG42 BR IF 1443 

PUT TERMINATOR IN MESSAGE 

LD 2 TLGSW+1-TB GET 1ST/2ND CHAR SW 

B2 TLG08 BR IF 2ND CHAR 

LD 2 HFFOO-TB ELSE GET TERMINATOR 

STO 3 3 PUT IN MESSAGE 



* 








TLG08 LD 


2 


HOOFF-TB 


GET TERMINATOR 


OR 


3 


3 


PUT IN MESSAGE 


STO 


3 


3 


* 



* 
* 
* 



LDX LI TLGBA+1 SET UP BUFFER POINTER 

STX 1 TLGSV SAVE 

SLA 16 CLEAR- 

STO 2 TLGSW-TB * SECOND CHAR SW 

START LINE WITH A **CARRIAGE RETURN** 



LD TLGCR 
STO L TLGBA 
MDX - TLG43 



GET CR CHARACTER 
PUT IN OUTPUT AREA 
GO PRINT 



* 

* 

TLGPR 


COME 


HERE FROM INTERRUPT ROUTINE IF 


LDX 


11 


TLGSV 


RESTORE POINTER 




LD 


2 


TLGSW-TB 


GET 2ND CHAR SW 


# 


BZ 




TLG09 


BR IF (CHAR 1) 




SLA 




16 


ELSE RESET SW 




STO 


2 


TLGSW-TB 


* 




LD 


1 





GET CHARACTERS 




SLA 




8 


SAVE 2ND CHAR 




MDX 


1 


1 


BUMP POINTER 




STX 


1 


TLGSV 


SAVE POINTER 




MDX 




TLG10 


GO TO COMMON RTN 



GET HERE IF PRINTING CHARACTER 1 



C ( ( 
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DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 


0812-A 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


41 


EC NO. 


431319 


431319A 


431328 



81255100 

81255110 

81255120 

81255130 

81255140 

81255150 

81255160 

81255170 

81255180 

81255190 

81255200 

81255210 

81255220 

81255230 

81255240 

81255250 

81255260 

81255270 

81255280 

81255290 

81255300 

81255310 

81255320 

81255330 

81255340 

81255350 

81255360 

81255370 

81255380 

81255390 

81255400 

81255410 

81255420 

81255430 

81255440 

81255450 

81255460 

81255470 

81255480 

81255490 

81255500 

81255510 

81255520 

81255530 

81255540 

81255550 

81255560 

81255570 

81255580 

81255590 

81255600 

81255610 

81255620 

81255630 

81255640 

81255650 

81255660 

81255670 

81255680 

81255690 

81255700 

81255710 

81255720 

81255730 

81255740 

81255750 

81255760 

81255770 



PROG ID 
PAGE 



0812-A 
41A 



< (d ( CJ < ( ( ( < ( ( ( i ( ( ( ( 
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1CC9 C100 

1CCA 1808 

1CCB 1008 

1CCC 1 6C00 08D1 

1CCE 92BE 

1CCF 1 4C18 1D12 

1CD1 82BE 

1CD2 1808 

1CD3 1 4400 1DF7 

1CD5 D07C 



GET CHARACTERS 



1CE8 1 74FF 08D0 
1CEA 70F9 

1CEB 70FF 



1CF7 70FF 



TLG09 LD 1 

SRA 8 

SLA 8 

STX L TLGSW SET 2ND CHAR SW 

* GET HERE IF PRINTING CHARACTER 2 
TLG10 S 2 HFFOO-TB TEST FOR END OF LINE 

B2 TLGX2 BR IF YES 
* 

A 2 HFFOO-TB ELSE RESTORE CHAR 

SRA 8 RIGHT JUSTIFY CHAR 

BSI L TCV45 CONVERT TO 1816 CODE 

STO TLGBA PUT IN OUTPUT AREA 

* 

****************** ********************************* 

* * 
******** ******************************************* 

* 

* DO XIO WRITE-" 

* PRINT A LINE (1443) 

* PRINT A CHARACTER (1053) 

* 

************** *********************** * ************* 

* * 

*********************** **** ** ** ***** * ** ************ 



SENSE DSW 

SAVE 

GET 43/53 SW 

SKIP IF 53 

SHIFT 31 FOR 43 

SHIFT 21 FOR 53 
BR IF READY 

ELSE GO TO MONITOR 
LOOP UNTIL READY 



SET INT SW 

GET /FFFF 

SET LOOP COUNT 

GO TO MONITOR 
TEST FOR INT 
BR IF IT HAPPENED 
MDX L TLGCT.-l DECR COUNT 
MDX TLG11 LOOP 
************************************** ************* 
MDX *-l TRAP STOP 

*************************************************** 

******************** ***************** ************** 

♦ * 

*************************************************** 



CARRIAGE*RETURN 
SAVE BUFFER POINTER 
INT SW 

AREA CODE PUT HERE BY MON 
INTERRUPT ENTRY POINT 
SAVE X2 
SET X2 

GET INT SWITCH 
SKIP IF NONZERO 
*************************************** ************ 

MDX *-l TRAP STOP 

*************************************************** 



1CD6 





0A4F 




TLG42 


XIO 


2 


TLGSN-TB 


1CD7 





18D0 






RTE 




16 


1CD8 





C2DE 






LD 


2 


T45SW-TB 


1CD9 





4804 






SKP 




E 


1CDA 





108A 






SLT 




10 


1CDB 





1095 






SLT 




21 


1CDC 


1 


4C10 


1CE0 




BNN 




TLG43 


1CDE 





42F1 






BSI 


2 


STMLS-TB 


1CDF 





70F6 




* 
TLG43 

* 


MDX 




TLG42 


1CE0 





0A4D 




XIO 


2 


TLGWR-TB 


1CE1 





680C 




STX 




TLGIS 


1CE2 





C28D 






LD 


2 


TERM-TB 


1CE3 





D251 




* 
TLG11 


STO 


2 


TLGCT-TB 


1CE4 





42F1 




BSI 


2 


STMLS-TB 


1CE5 





C008 






LD 




TLGIS 


1CE6 


1 


4C18 


1D0E 




BZ 




TLGXR 











* 
* 
TLGCR 


PRINT INTERRUPT 


1CEC 





8100 




DC 




/8100 


ICED 





0000 


, 


TLGSV 


DC 




*-* 


1CEE 





0000 




TLGIS 


DC 







1CEF 





0000 




TLGDA 


DC 




*-* 


1CF0 





0000 




TLGIN 


DC 




*-* 


1CF1 


1 


6E00 


1D0B 




STX 


L2 


TLG13&3 


1CF3 


1 


6600 


087F 


. 


LDX 


L2 


TB 


1CF5 





C0F8 






LD 




TLGIS 


1CF6 





4818 






SKP 




+- 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



81255780 

81255790 

81255800 

81255810 

8.12 55820 

81255830 

81255840 

81255850 

81255860 

81255870 

81255880 

8125S890 

81255900 

81255910 

81255920 

81255930 

81255940 

81255950 

81255960 

81255970 

81255980 

81255990 

81256000 

81256010 

81256020 

81256030 

81256040 

81256050 

81256060 

81256070 

81256080 

81256090 

81256100 

81256110 

81256120 

81256130 

81256140 

81256150 

81256160 

81256170 

81256180 

81256190 

81256200 

81256210 

81256220 

81256230 

81256240 

81256250 

81256260 

81256270 

81256280 

81256290 

81256300 

81256310 

81256320 

81256330 

81256340 

81256350 

81256360 

81256370 

81256380 

81256390 

81256400 

81256410 

81256420 

81256430 

81256440 

81256450 
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1CF8 1 OCOO 08D2 

1CFA 1 4C28 1D00 

1CFC O 1002 

1CFD 1 4C28 ID 08 

1CFF O 70FF 

1D00 O 18D0 

1D01 C2DE 

1D02 F297 

1D03 1 4C20 1D08 

1D05 1092 

1D06 1 4C10 1D0A 

1D08 1010 

1D09 D0E4 

1D0A 6600 0000 

1D0C 1 4C80 1CF0 



1D0E C043 
1D0F 1808 
1D10 1 4C20 1CBD 



1D12 
1D14 
1D16 
1D17 
1D18 
1D19 
1£1A 
1D1B 
1D1C 
1D1D 
1D1E 



6780 08CC 

6FO0 1C9E 

C299 

D30 

7301 

10A0 

DB01 

D252 

4017 

7002 

4C00 1C9A 



1D20 4480 0132 

1D22 1 0813 

1D23 1 OSOC 

1D24 COOE 

1D25 4820 

1D26 42E8 



1D27 





1010 




1D28 





DOOA 




1D29 


1 


7401 


10 32 


1D2B 





6700 


0000 


1D2D 





6500 


0000 


1D2F 





1010 




1D30 





D2D5 




1D31 





4C00 


0000 



ID33 0000 



1D34 O 0000 

1D35 6500 0000 



XIO L TLGSR 
BN TLG12 



SENSE RESET D SW 

BR IF XFER COMPLETE (1443 
* * OR SVC RESPONSE (1053) 

SLA 2 TEST FOR PRINT COMPLETE 

BN TLG13 BR IF YES 
******************************************** ******* 

MDX *-l TRAP STOP 

*************************************************** 
TLG12 RTE 16 SAVE D SW 

LD 2 T45SW-TB GET 43/53 SW 
TEST FOR 1443 

BR IF 1053 
GET DSW (PRINT COMPLETE) 



CLEAR INT SWITCH 
RESET X2 
EXIT INT RTN 



*************************************************** 

* * 
*************************************************** 

* 

* MONITOR COMES HERE FROM INT RTN 

* 

GET WORD CNT 

TEST FOR 1053 CHAR 
BR IF 1053 





EOR 


2 


Kl-TB 




BN2 




TLG13 




SLT 




18 




BNN 




TLG13+2 


* 








TLG13 


SLA 




16 




STO 




TLGIS 




LDX 


L2 


*-* 




BSC 


I 


TLGIN 



TLGBA 

8 

TLGPR 



TLGXR LD 

SRA 

BNZ 
* 
TLGX2 LDX 13 TLGWR 

STX L3 TLGBP+1 

LD 2 K3-TB 

STO 3 

MDX 3 1 



SLT 
STD 
STO 
BSI 
MDX 
BSC 



32 
3 1 

2 TLGSW-TB 
TLGCH 
TLG15 
L TLG06+3 



TLG15 BSI I RELDV 



DC 

DC 

LD 

BSC 

BSI 

SLA 
STO 



TLGED 

TERM 

FRESW 

Z 



GET BUFFER ADDRESS 
SET PTR TO WORD COUNT 
SET WRO CNT=3 
*** 

BUMP POINTER 

SET PID=BLANKS IN MESSAGE 
* 

RESET 1ST/2ND CHAR SW 
GET A CHARACTER 
HERE IF HEX /OOFF 
ELSE LOOP 

GO RELEASE DVC 
ADDRS OF EDIT WRD 

GET CHNL RELS SW 
SKIP IF NOT SET 



2 GETDV-TB ELSE GET CHNL 



16 
FRESW 



RESET- 

* CHNL RELS SW 



TLGEN MDX L LEXIT+1,1 BUMP RETURN BY 1 

TLGX3 LDX L3 *-* RESTORE REG 

LDX LI *-* RESTORE REG 

SLA 16 RESET LOG BUSY SW 

STO 2 LGBSY-TB * 

LEXIT BSC L *-* EXIT PRINT RTN 

* 

FRESW DC O CHNL RELEASES SW 

*************************************************** 

* * 
*************************************************** 

* 

* FETCH ONE CHARACTER FROM SOURCE MESSAGE 



0812-A 
42 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 

431319A 



TLGCH DC *-* 
LDX LI *-* 



15SEP71 
431328 



ENTRY POINT 
SET UP POINTER 



81256460 

81256470 

81256480 

81256490 

81256500 

81256510 

81256520 

81256530 

81256540 

81256550 

81256560 

81256570 

81256580 

81256590 

81256600 

81256610 

81256620 

81256630 

81256640 

81256650 

81256660 

81256670 

81256680 

81256690 

81256700 

81256710 

81256720 

81256730 

81256740 

81256750 

81256760 

81256770 

81256780 

81256790 

81256800 

81256810 

81256820 

81256830 

81256840 

81256850 

81256860 

81256870 

81256880 

81256890 

81256900 

81256910 

81256920 

81256930 

81256940 

81256950 

81256960 

81256970 

81256980 

81256990 

81257000 

81257010 

81257020 

81257030 

81257040 

81257050 

81257060 

81257070 

81257080 

81257090 

81257100 

81257110 

81257120 

812S7130 
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c 

c 

G 

o 
c 
o 
c 

c 

c 
c 
c 
c 

G 
C 



o 
o 

c 

c 
c 
c 
o 
o 
o 
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DATE 
EC NO. 



1D37 





C253 




1D38 


1 


4C20 


1D3F 


1D3A 


1 


6C00 


08D2 


1D3C 





C100 




1D3D 





1808 




1D3E 





7007 




1D3F 





1010 




1D40 





D253 




1D41 





CI 00 




1D42 





1008 




1D43 





1808 




1D44 





7101 




1D45 





69F0 




1D46 


1 


4C20 


1D49 


1D48 





C24F 




1D49 





F2AF 




1D4A 


1 


4C98 


1D34 


1D4C 





F2AF 




1D4D 


1 


7401 


1D34 


1D4F 


1 


4C80 


1D34 


1D52 




0000 




1D52 





0000 




1D53 




0003 




1D56 




0032 





LD 2 TLGSW+1-TB GET 1/2 CHAR SW 

BNZ TLG16 BR IF SET 

STX L TLGSW+1 SET 1/2 CHAR SW 

LD 10 GET TWO CHARACTERS 

SRA 8 KEEP HIGH ORDER ONE 

MDX TLG17 GO TO CMN RTN 



1 







8 




8 


1 


1 


1 


TLGCH+2 




TLG18 


2 


TLGSP-TB 



TLG16 SLA 

ST0 

LD 

SLA 

SRA 

MDX 

STX 
* 
TLG17 BNZ 

LD 
TLG18 E0R 

BZ 

EOR 

MDX 

BSC 
* 

BSS 
TLGBA DC *-* WORD COUNT FOR PRNT LINE 

PRNT . XXXX. P1D GOES HERE 

BSS 50 LENGTH OF BUFFER 

** A A ******************************** A ******** A A**** 

* * 
** *A *********** **** ********** ********************** 
*************************************************** 

* * 
********************* ********************* * * ******* 

* 

* CONVERT HEX WORD TO 1443 CODE 
* 

********************** ************************** *^a 
A * 

********************* * *AA* A* A A ************** A A***** 



16 CLEAR 1ST/2ND CHAR SWITCH 

2 TLGSW+1-TB *** 

GET TWO CHARACTERS 
KEEP LOW ORDER ONE 
AAA* 

BUMP SOURCE POINTER 
SAVE 

SET TO SPACE IF ZERO 
AAA 

2 HO0FF-TB TEST FOR HEX FF 
I TLGCH EXIT IF HEX FF 

2 H00FF-TB RE-INVERT IT 
L TLGCH. 1 BUMP RETURN ADDRESS 

I TLGCH EXIT THIS RTN 

E 

A-A 

. XXXX. 



1D88 



1D88 
1D89 
1D8A 
1D8B 



18D0 
400E 
1008 
D2C3 



1D8C 400B 



1D8D 
1D8E 



1D8F 
1D90 
1D91 
1092 
1D93 
1D94 
1D95 
1D96 



EAC3 
D2C3 



4008 
1008 
D2C4 
4005 
EAC4 
1890 
C2C3 
4C80 0873 



1D98 0000 

1D99 1010 

1D9A 1084 

1D9B 1 4C20 1DA0 

1D9D C2A6 

1D9E 1 4C80 1D98 

1DA0 929E 

1DA1 4830 



14N0V69 
431319 



30JAN70 

431319A 



TCVBN EQU 

* 

RTE 

BSI 

SLA 

ST0 

BSI 

OR 

STO 

* 

* 

BSI 

SLA 

STO 

BSI 

OR 

SRT 

LD ■ 

BSC 

A 

TCV01 DC 
SLA 
SLT 
BNZ 
LD 
BSC 

A 

TCV02 S 

SKP 



15SEP71 

431328 



16 

TCV01 

8 
2 TCVS1-TB 

TCV01 
2 TCVS1-TB 
2 TCVS1-TB 



TCV01 

8 
2 TCVS2-TB 

TCV01 
2 TCVS2-TB 

16 
2 TCVS1-TB 
I TCVBE 

A-A 
16 
4 

TCV02 
2 HO00A-TB 
I TCV01 



2 K9-TB 
Z- 



ENTRY POINT 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



ENTRY 



BR IF NOT ZERO 

0=/0A 
EXIT 

SUBTRACT 9 



81257140 
81257150 
81257160 
81257170 
81257180 
81257190 
81257200 
81257210 
81257220 
81257230 
81257240 
81257250 
81257260 
81257270 
81257280 
81257290 
81257300 
81257310 
81257320 
81257330 
81257340 
81257350 
81257360 
81257370 
81257380 
81257390 
81257400 
81257410 
81257420 
81257430 
81257440 
81257450 
81257460 
81257470 
81257480 
81257490 
81257500 
81257510 
81257520 
81257530 
81257540 
81257550 
81257560 
81257570 
81257580 
812S7590 
81257600 
81257610 
81257620 
81257630 
81257640 
81257650 
81257660 
81257670 
81257680 
81257690 
81257700 
81257710 
81257720 
81257730 
81257740 
81257750 
81257760 
81257770 
81257780 
81257790 
81257800 
81257810 
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0812-A 
43 



DATE 
EC NO. 



1DA2 82AA 
1DA3 829E 

1DA4 1 4C80 1D98 



A 
A 



2 H0027-TB 
2 K9-TB 



BSC I TCV01 



ADD BACK A CONSTANT 



EXIT 



1DAB 1 74FF 08AA 
1DAD 70FA 



******************** A* ***************************** 

* * 
******** * A A***** ******** A A*A A A**** ******** ********* 

* WAIT FOR 1/0 INTERRUPT 
**************************** * A ************ ********* 

* * 
***** A******* ***************** a A* *************** A** 
A 

ENTRY POINT 

SET TIMEOUT COUNTER 

A 



FETCH WAIT SWITCH 
BRANCH IF SET 

DEC WAIT COUNTER 
LOOP BACK AND WAIT 



1DA6 









TINTS 


EQU 




* 


1DA6 





C28D 






LD 


2 


TERM-TB 


1DA7 





D22B 




A 
TINS2 


STO 


2 


SCSN1-TB 


1DA8 





C26F 




LD 


2 


WIOSW-TB 


1DA9 


1 


4C20 


1DB7 




BNZ 




TINS3 



A 
* 

* 



1DAE 





0A2B 




1DAF 





D241 




1DB0 





0A2F 




1DB1 





D242 




1DB2 





0A31 




1DB3 





D243 




1DB4 





0A33 




1DB5 





D244 




1DB6 





7006 




1DB7 


1 


7401 


088B 


1DB9 





1010 




1DBA 





D26F 




1DBB 


1 


4C80 


088B 


1DBD 


1 


C480 


088B 


1DBF 





D003 




1DC0 





1010 




1DC1 





D26F 




1DC2 





4C00 


0000 



MDX L SCSN1.-1 
MDX TINS2 

COME HERE IF TIMEOUT 

XIO 2 SCSN1-TB 

STO 2 SCSXC-TB 

XIO 2 SCSN3-TB 

STO 2 SCSXC+1-TB 

XIO 2 SCSN4-TB 

STO 2 SCSXC+2-TB 

XIO 2 SCSN5-TB 

STO 2 SCSXC+3-TB 

MDX TINS4 



GET SELECTOR CHANNEL AND 
UN It STATUS. 

* 
* 
* 
* 
A 
* 
GO TO ERROR RETURN 



L WAITS. +1 
16 
2 WIOSW-TB 

I WAITS 

I WAITS 

*+3 
16 
2 WIOSW-TB 
L *-* 



BUMP RETURN 
RESET WAIT I/O SW 

* 

RETURN TO USER 

SET-UP ERROR RETURN 

* 

RESET-WAIT SW 

RETURN TO USER 



14N0V69 30JAN70 

431319 431319A 



T I NS3 MD X 
SLA 
STO 

A 

BSC 
* 
TINS4 LD 

STO 

SLA 

STO 

BSC 
A 
********* ********* * A A* ****** A* ********* ************ 

* A 
***********A A A A* **************************** * ****** 
A 

* CONVERT HEX TO DECIMAL. A REG TO A REG 

A 

A A** CALL - BSI 2 TCVHD-TB *** 

** A A** A A*****A**A* A**** ******************** ******** 

* * 
************************ *********** ************ AAA* 
A 

EXIT IF NEG 

MOST SIGNIFICANT DIGIT 
POSITION D IGIT 

CLEAR A REG 

NEXT SIGNIFICANT DIGIT 
POSITION DIGIT 



15SEP71 
431328 



1DC4 


1 


4CA8 


0876 


THEXD 


BN 


I 


TCVHD 


1DC6 





1890 






SRT 




16 


1DC7 





AAA5 






D 


2 


K1000-TB 


1DC8 





100C 






SLA 




12 


1DC9 





DOOD 






STO 




THEXS 


1DCA 





1004 




A 


SLA 




4 


IDCB 





AAA1 




D 


2 


K100-TB 


IDCC 





1008 






SLA 




8 


1DCD 





E809 






OR 




THEXS 



81257820 

81257830 

81257840 

81257850 

81257860 

81257870 

81257880 

81257890 

81257900 

81257910 

81257920 

81257930 

81257940 

81257950 

81257960 

81257970 

81257980 

81257990 

81258000 

81258010 

81258020 

81258030 

81258040 

81258050 

81258060 

81258070 

81258080 

81258090 

81258100 

81258110 

81258120 

81258130 

81258140 

81258150 

81258160 

81258170 

81258180 

81258190 

81258200 

81258210 

81258220 

81258230 

81258240 

81258250 

81258260 

81258270 

81258280 

81258290 

81258300 

81258310 

81258320 

81258330 

81258340 

81258350 

81258360 

81258370 

81258380 

81258390 

81258400 

81258410 

81258420 

81258430 

81258440 

81258450 

81258460 

812584 70 

81258480 

81258490 
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c 
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o 
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o 
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r 



c 
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c 
c 
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1DCE 





D008 


1DCF 





1008 


1DD0 





AA9F 


1DD1 





108C 


1DD2 





180C 


1DD3 





1084 


1DD4 





E802 


1DD5 


1 


4C80 0876 



1DD7 0000 



STO 


THEXS 


SLA 


8 


D 


2 K10-TB 


SLT 


12 


SRA 


12 


SLT 


4 


OR 


THEXS 


BSC 


I TCVhO 


DC 






CLEAR A REG 

NEXT SIGNIFICANT DIGIT 
COMBINE LAST TWO DIGITS 
*** 
*** 



TEMP STORAGE 



1DD8 





0000 




1DD9 





6B0A 




1DDA 


1 


6780 


0815 


1DDC 


1 


C700 


1DE7 


1DDE 





1890 




1DDF 


1 


678 


0800 


1DE1 


1 


C700 


1DE6 


1DE3 





6700 


0000 


1DE5 


1 


4C80 


1DD8 



THEXS DC 

**************************** *********************** 

* * 

******************** ****************** ** *********** 

******************************************* ******** 

* * 

******************************************* ******** 

* 

* CALL BSI L TCVSR 

* GET AQ = SPACE/SECT/SPACE/RTN 

* 

****************************************** ********* 

* * 
**************************** *********************** 

TCVSR DC *-* 

SAVE REG 

GET ROUTINE NUMBER 

GT PRINTABLE CODE 

A TO 

GET SECT NUMBER 

GET PRINTABLE CODE 

RESTORE REG 

EXIT 



1DE7 



0016 



STX 3 TCVS2+1 

LDX 13 TRID 

LD L3 DIGIT 

SRT 16 

LDX 13 TSID 

LD L3 DIGIT-1 

TCVSZ LDX L3 *-* 

BSC I TCVSR 
* 

DIGIT PRNT .0123456789ABCDEF. 

***************************************** ******* *** 

* * 

************************************** ***********„.* 

* 

* CONVERT 1443 CODE TO 1816/1053 CODE 

* 

****************************************** ********* 

* * 
*************************************************** 



SAVE 1443 CHAR 
SET UP POINTER 

CLEAR AQ 

PICK UP NEXT ENTRY IN TBL 

DELETE TR CHAR 
TEST CHAR 

CHAR COMPARES^ 

RESTORE Q REG=0 
SET UP TO TEST 
* FOR TERMINATOR 
GO TO END ROUTINE 



1DF7 





0000 




TCV45 


DC 




*-* 


1DF8 





6B45 






STX 


3 


TCVSV+1 


1DF9 





D043 






STO 




TCVSV 


1DFA 


1 


6700 


1E10 




LDX 


L3 


TCVTB 


1DFC 





10A0 






SLT 




32 


1DFD 





C300 




TCV03 


LD 


3 





1DFE 





18C8 






RTE 




8 


1DFF 





F03D 






EOR 




TCVSV 


1E00 


1 


4C18 


1E09 


* 


BZ 




TCV04 


1E02 





1088 




SLT 




8 


1E03 





E2AF 






AND 


2 


HOOFF-T 


1E04 





F2AF 






EOR 


2 


HOOFF-T 


1E05 


1 


4C18 


1E0B 


* 


BZ 




TCVEN 


1E07 





7301 




MDX 


3 


1 


1E08 





70F4 




* 
TCV04 


MDX 




TCV03 


1E09 





18D0 




XCH 






1E0A 





4818 




* 
TCVEN 


SKP 




+- 


1E0B 





C030 




LD 




TCVSP 



LDX L3 TCVSV+1 



INC POINTER 
RETURN TO LOOP 

RESTORE TR CHAR 
EXIT 

SET UP SPACE 
RESTORE XR3 



DATE 
EC NO. 



14NOV69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PART NO. 
PAGE 



81258500 

81258510 

81258520 

81258530 

81258540 

81258550 

81258560 

81258570 

81258580 

81258590 

81258600 

81258610 

81258620 

81258630 

81258640 

81258650 

81258660 

81258670 

81258680 

81258690 

81258700 

81258710 

81258720 

81258730 

81258740 

81258750 

81258760 

81258770 

81258780 

81258790 

81258800 

81258810 

81258820 

81258830 

81258840 

81258850 

81258860 

81258870 

81258880 

81258890 

81258900 

81258910 

81258920 

81258930 

81258940 

81258950 

81258960 

81258970 

81258980 

81258990 

81259000 

81259010 

81259020 

81259030 

81259040 

81259050 

8 1259060 

81259070 

81259080 

81259090 

81259100 

81259110 

81259120 

el 259130 

81259140 

81259150 

81259160 

81259170 
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1E0E 1 


4C80 1DF7 
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T2508 


13EB 


1447 




















T2509 


13F2 


13ED 




















T2510 


13FC 


13FF 


141C 


















T2511 


140 A 


1402 




















T2512 


1416 


140F 




















T2513 


1430 


1414 


143C 


















T2514 


1434 


1406 




















T2515 


143D 






















T2601 


1454 


13B0 


141F 


















T30NT 


1457 


0A5A 




















T30PR 


1455 


145A 


145D 


















T31A1 


1649 


147D 


1633 


















T31A2 


164C 


14A6 


14D6 


14D8 


158F 


159A 


15B9 


1639 








T31C0 


1620 


14AB 
1571 


14E3 
1578 


152F 
158A 


1538 
15E5 


153B 


153E 


1548 


154A 


154C 


1555 155C 1563 156A 


T31C5 


161F 


14B6 


15C0 


















T31DA 


1628 


14A0 




















T31DC 


153E 


14E5 


















— 


T31DT 


15EA 


15D3 


15E1 


















T31EN 


15A9 


14F8 




















T31E5 


1692 


1483 


1487 


148B 


148F 












* 


T31HW 


160E 


15BF 


15CB 


15CD 
















T31MP 


167C 


14A3 


1591 


















T310K 


161E 


14D2 


1596 


















T31PR 


1581 


1543 


1551 


1553 


155A 


1561 


1568 


156F 


1576 


157D 


157F 1582 


T31RD 


1646 


14C4 


15D2 


















T31R1 


1604 


1507 


1648 


















T31R2 


16D8 


14B9 


14CC 


15C2 
















T31SC 


158E 


15A3 




















T31SM 


152B 


14FF 


1505 


150B 


150E 


1516 


151C 


1522 


1525 


1528 


152C 1531 1533 


T31S5 


1631 


1472 




















T31TM 


162C 


14EB 




















T31T0 


1619 






















T31WH 


164F 


14F7 


1589 


















T31WR 


163A 


1494 


14BE 


15C7 
















T31W1 


169E 


14A8 


14DA 


15BB 


163F 


1645 












T31W2 


16A2 


14B2 


14CA 


















T3101 


145F 


1458 


14SE 


















T3102 


1466 


1461 




















T3103 


146C 


1468 




















T3104 


1460 






















T3105 


1471 


147A 


1491 


















T3106 


147B 


1475 




















T3107 


1493 


147F 


1499 


















T3108 


1496 


146D 




















T3109 


149A 


1495 


15A7 


















T3110 


14A3 


14EO 


14F1 


















T3111 


14AF 


14A2 


14E1 


14E7 


14E9 


15C8 












T3112 


14B6 


149A 


14DD 


















T3113 


14C5 






















T3U4 


14CA 


14D1 




















T3115 


14D5 


153D 
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T3118 


14F8 
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14F4 158C 


T3119 


14FA 


14C1 




T3120 


1502 


14FD 




T3121 


1508 


1503 




T3122 


150E 


1509 




T3124 


1511 


14C7 




T3125 


1519 


1514 




T3126 


151F 


151A 




T3127 


1525 


1520 




T3130 


1528 


14CE 




T3133 


1545 


1541 




T3134 


1553 


154F 




T313S 


1555 


1546 




T3136 


155C 


1558 




T3137 


1563 


155F 




T3138 


156A 


1566 




T3139 


1571 






T3140 


1578 


1560 


1574 


T3141 


157F 


1S7B 




T3144 


1587 


1584 




T3147 


1595 


159F 




T3148 


159A 


15E7 




T3149 


15A0 


15E9 




T3150 


15B9 


1598 




T3151 


15D7 


15DF 




T3152 


15DA 


15D5 


15DC 


T32CC 


179C 


172D 




T32CT 


177D 


171F 


1729 1739 1749 


T32EN 


1755 






T32ER 


177C 


1733 


173E 174C 


T32HA 


177E 


OCCA 


ODBD 1722 1736 


T32H1 


1781 


17A4 


1840 


T32H2 


1784 


17A7 




T32H3 


1787 


17AA 




T32H4 


178A 


17AD 




T32H5 


1780 


17B0 




T32H6 


1790 


1783 




T32H7 


1793 


17B6 




T32H8 


1796 


17B9 




T32H9 


1799 


17BC 




T32MP 


17BD 


1734 


176F 


T32SA 


1779 


1721 


173C 1747 179E 


T3201 


170A 


1464 


15AB 


T3202 


1711 


170C 




T3203 


1717 


1713 




T3204 


171E 


1751 




T3205 


1724 


172B 




T3206 


173A 


174B 




T3207 


1752 


1774 




T3208 


1769 


1718 


1730 


T3209 


176D 


174D 




T3210 


172C 


1772 




T3211 


1770 


176C 




T3298 


1776 


1724 




T3299 


1778 


1726 




T33CC 


1838 


17F0 




T33EN 


17FD 


1837 




T33N9 


1844 


181D 


1820 1823 1826 


T33SA 


1841 


1814 


183A 


T3301 


17DC 


170F 


1757 


T3302 


17E3 


17DE 




T3303 


17E9 


17E5 




T3304 


17EC 
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T34BL 

T34EN 

T34EX 

T34FC 

T34HA 

T34MN 

T34RV 

T34SA 

T34SK 

T34SR 

T34TC 

T34TT 

T34WA 

T34WT 

T3401 

T3402 

T3403 

T3404 

T3405 

T3408 

T3409 

T3410 

T3411 

T3501 

T40EN 

T40ER 

T40NT 

T40PR 

T4101 

T45SW 

UNADR 

UNATN 

UNBZY 

UNCHE 

UNCHK 

UNCUE 

UNDVE 

UNEXC 

UNSMD 

WAITS 

WAITT 

WAIT1 

WAIT2 

WATSW 

WIOSW 

WRCKD 

WRDAT 

WRHA 

WRKD 

WRRO 

WTADR 

ZEPA 

ZEPA1 

ZEPA2 

ZIPA 

ZLPA 

ZLPA1 

ZLPA2 

END OF 
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^ 






81200020 








*************************************************** 8 j 2000 30 








* 




* 81200040 








**************** *********************************** 812000 50 








* 






81200060 








* 


1800 MONITOR INTERFACE 


81200070 








* 






81200080 








**************** *********************************** 8 i200090 








* 

c 




* 81200100 








********* ****************************************** 81200110 


012C 







BEGIN EQU 


300 




81200120 


0120 







START EQU 


BEGIN+1 




81200130 


012E 







END EQU 


START+1 




81200140 


012F 







LOG EQU 


END + 1 




81200150 


0130 







ERROR EQU 


LOG+1 




81200160 


0131 







REQOV EQU 


ERROR+1 




81200170 


0132 







RELDV EQU 


REQDV+1 




81200180 


0133 







CRCK EQU 


RELDV+1 




81200190 


0134 







MATO EQU 

* 


CRCK+1 




81 200200 
81200210 


07FF 






ORG 

* 


*+/07FF 


ORIGIN OF PGM 


81200220 
81200230 








* 


MONITOR INTERFACE TABLES 


81200240 








* 






81200250 


07FF 





1200 


TPID DC 


/1200 




81200260 


0800 





0001 


TSID DC 


1 


SECTION ID 


81200270 


0801 





0000 


TSAD DC 





SECTION PREFACE ADDRESS 


81 200280 








* EQUATES FOR TSWO SWITCH OPTIONS 


81200290 


0008 







OLPST EQU 


8 


LOOP SIO.TIO 


81200300 


0009 







OSALC EQU 


9 


SEEK ALIGNMENT CYLINDER 


81200310 


OOOA 







OPRRS EQU 


10 


PRINT RESULTS 


81200320 


OOOA 







OTTLE EQU 


10 


PRINT RTN TITLES 


81200330 


OOOB 







ORTRY EQU 


11 


RETRY SIO 


81200340 


OOOC 







OLPER EQU 


12 


LOOP ERROR 


81200350 


OOOD 







OBYPR EQU 


13 


BYPASS ALL PRINTOUTS 


81200360 


OOOE 







OHALT EQU 


14 


HALT ON ERROR 


81200370 


OOOF 








OCHLT EQU 

* 


15 


CLEAR ERROR HALT 


81200380 
81200390 


0802 





0000 


TSWO DC 





SELECT OPTIONS 


81200400 


0803 





0000 


TSW1 DC 





SELECT SECT AND RTN 


81200410 


0804 





FFOO 


TSW2 DC 


/FFOO 


UNIT ADDRESS 


81200420 


0805 





0000 


TSW3 DC 







81200430 


0806 


1 


09B9 


IPA DC 


ZIPA 


INIT PRGM ADDRESS 


81200440 


0807 


1 


09CF 


LPA DC 


2LPA 


LOOP PRGM ADDRS 


81200450 


0808 


1 


09EC 


EPA DC 


2EPA 


END PRG ADDRS 


81200460 


08 09 







MLSCF EQU 


* 


MONITOR CONTROL FIELD 


81200470 


0809 





0000 


MLSCO DC 





ENTRY ZERO 


81200480 


080A 





0000 


MLSC1 DC 





ONE 


81200490 


080B 





0000 


MLSC2 DC 





TWO 


81200500 


08 OC 





FFFF 


TERM DC 


/FFFF 




81200510 


0800 


1 


1522 


DC 


PEND 


LAST ADDRS 


81200520 


080E 





0000 


DC 





WORDS FOR MONITOR USE 


81200530 


08 OF 





0000 


DC 

Sc 





* 


81200540 


0810 





0000 





* 


81200550 


0811 





0000 


DC 





* 


81200560 


0812 





0000 


DC 





* 


81200570 


0813 





0000 


TLGED DC 





LOG ED IT 


81200580 


0814 





0000 


TSCED DC 





SEL CHANNEL EDIT 


81200590 


0815 





0000 


TRID DC 





ROUTINE ID 


81200600 








*************************************************** 


81200610 








* 




* 


81200620 








*************************************************** 


81200630 








* 






81 200640 








* TABLE 


OF CONSTANTS 




81200650 








* 






81200660 








*************************************************** 


81200670 








* 




* 


81200680 








********************** ***************************** 


81200690 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

2 64 1 DIAGNOSTIC - PHASE 8 

■SCO DIAGNOSTIC MAINTENANCE PROGRAM 



PART NO. 2279468 



PAGE 



1 A 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



081 2-B 
1 





^ 








81200700 


087F 


TB EQU 


TPID+128 


SO TBL CAN REACH PST TBL 


81200710 


0816 0001 


Kl DC 


1 


CONSTANT ONE 




81200 720 


0817 0002 


K2 DC 


2 


CONSTANT 




81200730 


0818 0003 


K3 DC 


3 


CONSTANT 




81200740 


0819 0004 


K4 DC 


4 






81200750 


081A 0006 


K6 DC 


6 


CONSTANT 




81200760 


081B 0007 


K7 DC 


7 


CONSTANT 




81200770 


081C .0,000,8. ,,„ 


K8 DC 


8 


CONSTANT 


- - _ „ ,. 


81200780 


0810 0009 


K9 DC 


9 






81200790 


081E OOOA 


K10 DC 


10 






81200800 


081F 0014 


K20 DC 


20 






81200810 


0820 0064 


K100 OC 


100 






81200820 


0821 007F 


K127 DC 


127 


CONSTANT 




81200830 


0822 0080. 


K128 DC 


128 






81200840 


0823 01F4 


K500 DC 


500 






81200850 


0824 03E8 


K1000 DC 


1000 






81200860 


0825 OOOA 


HOOOA DC 


/OOOA 


CONSTANT 




81200870 


0826 0011 


H0011 DC 


/0011 






8120088O 


0827 0013 


H0013 DC 


/0013 


CONSTANT 




81200890 


0828 0020 


H0020 DC 


/0020 






81200900 


0829 0027 


H0027 DC 


/0027 


CONSTANT 




81200910 


082A 0080 


H0080 DC 


/0080 






81200920 


082B OOOC 


HOOOC DC 


/OOOC 






81200930 


082C 0,_pO.A4._,, 


H00A4 DC 


/00A4 


■ ■ , -,-.--• E :' : -•■ 




81200940 


0820 00C6 


H00C6 DC 


/00C6 






81200950 


082E 00C8 


H00C8 DC 


/00C8 






81200960 


082F OOFF 


HOOFF DC 


/OOFF 


LINE TERMINATOR 


81200970 


0830 0100 


H0100 DC 


/0100 


CONSTANT 




81200980 


0831 0200 


H0200 DC 


/0200 


CONSTANT 




81200990 


0832 0400 


H0400 DC 


/0400 


CONSTANT 




81201000 


0833 0500 


HOSOO DC 


/0500 


CONSTANT FOR 


WRITE IOCC 


81201010 


0834 0700 


H0700 DC 


/0700 


CONSTANT FOR 


SENSE DSW IOC 


8 120 1020 


0835 OAOO 


HOAOO DC 


/OAOO 






81201030 


0836 2000 


H2000 DC 


/2000 






81201040 


0837 2100 


H2100 DC 


/2100 






81201050 


0838 0^3000 


H3000 DC . 


/3000 






81201060 


0839 0*4o66 


H4000 DC 


/4000 


" CONSTANT 




81201070 


083A 5000 


H5000 OC 


/5000 


CONSTANT 




81201080 


083B 7FFF 


H7FFF DC 


/7FFF 






81201090 


083C 8000 


H8000 DC 


/8000 






81201100 


083D FOOO 


HFOOO DC 


/FOOO 






81201110 


083E FFOO 


HFFOO DC 


/FFOO 






81201120 


083F 0000 


CNTDN DC 









81201130 


0840 0000 


TSCTN DC 


*-* 


SECTION NUMBER 


81201140 


0841 0000 


TRTNN DC 


*-* 


ROUTINE NUMBER 


81201150 


0842 0000 


TCNSW DC 





ERROR SWITCH 


FOR RTNS 


81201160 


0843 0000 


TCVS1 DC 









81201170 


0844 0000 


TCVS2 DC 









81201180 


0845 0000 


CAWSV DC 


*-* 


CCW ADDRESS SAVE AREA 


81201190 


0846 0002 


ERTSV BSS E 


2 


SENSE INFO SAVE 


81201200 


0848 0002 


TYP2 PRNT 


.SIO.. 






81201210 


084A 0002 


TYP3 PRNT 


.SNS.. 






81201220 


084C 0002 


PC AW PRNT 


.CAW . 


- -■ ■ ■ ■ -. 


_ _. . - - 


81201230 


084E 0002 


PCSW PRNT 


• CSW . 






81201240 


0850 0002 


PSNS PRNT 


. SNS. 






81201250 


0852 0001 


SPACE PRNT 


. . 


SPACES IN 43 


CODE 


81201260 


0853 0000 


DVADR DC 


*-* 


DEVICE ADDRESS TO BE TESTED81 20 1270 


0854 0000 


LGBSY OC 


*-* 


LOG ROUTINE BUSY SWITCH 


81201280 


0855 0000 


SIOSW DC 


*-* 


FOR SIO RTN 




81201290 


0856 0000 


PASSW DC 


*-* 


USED TO TEST 


FOR ERROR 


81201300 


0857 0001 


PSCNT DC 


1 


PASS COUNTER 




81201310 


0858 0000 


STKSW DC 





SWITCH FOR RE 


-ENTRANCE 


81201320 


0859 0000 


TIOSW DC 





TEST IO SW 




81201330 


085A 0000 


T23LC DC 


*— * 


LAST CYLINDER 




81201340 


085B 0000 


T23LH DC 


*-* 


LAST' HEAD 




8120 1350 


085C OQOO 


LPCNT DC 


*-* 


LOOP CNTR 




81201360 


065D 0000 


LPCT1 DC 


*-* 


LOOP CNTR 




81201370 
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085E 0000 



085F 0000 

0860 1 4C00 0A2F 

0862 0000 

0863 1 4C00 122A 



0865 0000 

0866 1 4C00 

0868 0000 

0869 1 4C00 

086B O 0000 

086C 1 4C00 

086E O 0000 

086F 1 4C00 

0871 0000 

0872 1 4C00 



0FE4 



0FC2 



10E4 



OFEC 



1124 



0874 O 0000 

0875 1 4C00 144E 

0877 O 0000 

0878 1 4C00 148A 

087A 0000 

087B 1 4C00 1189 

087D 0000 

08 7E 1 4C00 1186 



0880 0000 

0881 1 4C00 

0883 0000 

0884 1 4C0O 



1079 



1304 



0886 O 0000 

0687 I 4C00 1165 



0889 0000 
088A 1 4C00 



1172 



088C 0000 
088D 1 4C00 146C 



DATE 
EC NO. 



0080 O 

004 
0020 
0008 O 



14NOV69 
431319 



T45SW DC 

* 

CNTRL DC 
BSC 

EROUT DC 

BSC 
* — 

FREDV DC 

BSC 
* 
GETDV DC 

BSC 
* 
GETSN DC 

BSC 
* 
SIO DC 

BSC 
* 
STMLS DC 

BSC 
* 
TCVBE DC 

BSC 



0= NOT CALLED 
1=1443 
2=1053/1816 

*-* CONTROL ROUTINE 

TCNTE GO TO ROUTINE 

*-* ERROR PRINTOUT ROUTINE 

ERTNE GO TO RTN 

*-* RELEASE CHANNEL ROUTINE 

FRDVE GO TO ROUTINE 

*-* CHANNEL ROUTINE 

GTDVE GO TO ROUTINE 

*-* GET DEVICE SENSE INFO 

GTSNS GO TO ROUTINE 

*-* START I/O ROUTINE 

SIONT GO TO RTN 

*-* SET MLSCF ROUTINE 

STMLE GO TO RTN 

*_* . ~. CONVERT HEX TO 1443 — 

TCVBN GO TO RTN 



CONVERT HEX TO DEC 
GO TO RTN 

HALT ON ERROR 
GO TO RTN 

WAIT FOR OPERATOR ACTION 
GO TO RTN 

TEST I/O 
GO TO RTN 

PRINT RTN 
GO TO RTN 

TEST LOOP ON ERROR 
GO TO RTN 

TEST LOOP START I/O 
GO TO RTN 

WAIT I/O RTN 
GO TO RTN 
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TCVHD DC *-* 

BSC L THEXQ 
* 
THALT DC *-* 

BSC L THLTE 
* 
THLT DC *-* 

BSC L THLTX 

TIO DC *-* 

BSC L TIONT 

TLGMS DC *-* 

BSC L TLGME 
* 
TLPER DC *-* 

BSC L TERLP 
* 
TLPST DC *-* 

BSC L TSTLP 
* ■ . 
WAITS DC *-* 

BSC L TINTS 
* 

************************************************* ** 



30JAN70 
431319A 



********************* ****************************** 
* 

* EQUATES AND CONSTANTS FOR CCW"S 

* 

*************** ************************************ 

* * 
*************************************************** 

* .- 

* FLAGS 
* 

FLDCH EQU /80 DATA CHAINING 

FLCCH C EQU /40 ■•■- COMMAND CHAINING 

FLSLI EQU /20 SUPPRESS INCORRECT LNG 

FLSKP EQU /08 SKIP BIT 



15SEP7S 
431328 



81201380 

81201390 

81201400 

81201410 

81201420 

81201430 

81201440 

81201450 

81201460 

81201470 

81201480 

81201490 

81201500 

81201510 

81201520 

81201530 

81201540 

81201550 

81201560 

81201570 

81201580 

81201590 

81201600 

81201610 

81201620 

81201630 

81201640 

81201650 

81201660 

81201670 

81201680 

81201690 

81201700 

81201710 

81201720 

81201730 

81201740 

81201750 

81201760 

81201770 

81201780 

81201790 

81201800 

81201610 

81201820 

81201830 

81201840 

81201850 

81201860 

81201870 

81201880 

81201890 

81201900 

81201910 

81201920 

81201930 

81201940 

81201950 

81201960 

81201970 

81201980 

81201990 

81202000 

81202010 

81202020 

81202030 

81202040 

81202050 
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0010 



0000 





0001 





0002 





0003 





0005 





0006 





0004 





0007 





00 11 





0008 





0008 





0013 





0012 





001A 





00 IE 





0029 





OOOE 





OOOD 





0016 





009A 





00 IB 





0039 





0049 





0051 





0069 





0071 





0031 





001F 





001D 





0019 





0015 






0000 





0001 





0002 





0003 





0004 





0005 





0006 





0007 





0008 






0008 





0009 





OOOA 





OOOB 





OOOC 





OOOD 





OOOE 






K T :.' .', ; f , KC. 



FLPCI 
* 
* 
* 

OPTIO EQU 
OPWR EQU 
OPRD EQU 
OPNOP EQU 
WRDAT EQU 
RDDAT EQU 
OPSNS EQU 
SEEKC EQU 
ERASE EQU 
OPTIC EQU 
SEEKS EQU 
RCAL EQU 
RDCNT EQU 
RDHA EQU 
RDCKD EQU 
SRCKE EQU 
RDKD EQU 
WRKD EQU 
RDRO EQU 
RDHMT EQU 
SKHD EQU 
SRCHA- EQU 
SRCKH EQU 
SIDHI EQU 
SKHE EQU 
SIDHE EQU 
SRCID EQU 
SFILM EQU 
WRCKD EQU 
WRHA EQU 
WRRO EQU 



EQU /10 
OP CODES 



/OO 

/Ol 

/02 

/03 

/OS 

/06 

/04 

/07 

/ll 

/08 

/OB 

/13 

/12 

/1A 

/IE 

/29 

/OE 

/OD 

/16 

/9A 

/IB 

• 39 

/49 

/51 

/69 

/71 

/31 

/IF 

/ID 

/19 

/15 



PGM CONTROLLED INTERRUPT 



TEST I/O 
WRITE OP CODE 
READ OP CODE 
NO-OP 
WRITE DATA 

READ DATA " r " 

SENSE I/O 
SEEK CYLINDER 
ERASE RECORD 
TRANSFER IN CHANNEL 
SEEK BIN 
RECALIBRATE 
RD COUNT 

READ HOME ADDRESS 
RD COUNT KEY DATA 
SEARCH KEY EQUAL 
RD KEY DATA 
WR KEY DATA 
READ RECORD ZERO 
READ HA MULTI TRACK 
SEEK HEAD 
"•'SeARCH HA - - -t-.-L.rtR cut.; 
SEARCH KEY HI 
SEARCH ID HI 
SEARCH KEY HI/EQ 
SEARCH ID HI/EQ 
SEARCH ID 
SET FILE MASK 
WRT CNT, KEY, DATA 
WRITE HA 
WRITE RECORD O 



*************************************** *** * * ******* 

* -- :■ .,<:-:-: * _. * 
****************************** ********************* 
* 

* EQUATES FOR CHANNEL STATUS D SW • S 



UNIT NOT OPERATIONAL 
UNIT STATUS PENDING 
PGM CNTRL INT. 
PGM CHECK 
DATA CHECK 

INTERFACE CNTRL CHECK 
INCORRECT LENGTH INDICATOR 
ADAPTER BUSY 
UNIT OPERATIONAL 



SCUNO EQU 

SCUSP EQU 1 

SCPCI EQU 2 

SCPCK EQU 3 

SCDCK EQU 4 

SCICC EQU 5 

SCILG EQU 6 

SCABZ EQU 7 

SCUOP EQU 8 

* 

********************** ***************************** 

* .......... * 

********* ****************************************** 
***************************************** ** ******** 

* . * 
******************************* ******************** 
* 

UNIT STATUS D SW 

UNIT STATUS-ATTENTION 
STATUS MOD IFIER 
CONTROL UNIT END 
UNIT BUSY 
'•-'- CHANNEL END •' " -: " 
DEVICE END 
UNIT CHECK 



* 


EQUATES 


FO 


* 






UNATN 


EQU 


8 


UNSMD 


EQU 


9 


UNCUE 


EQU 


SO 


UNBZY 


EQU 


11 


UNCHE 


EQU 


12 


UNDVE 


EQU 


13 


UMCHK 


EQU 


14 



PROG ID 


081 2-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


2 ; 


EC NO. 


431319 


431319A 


431328 



81202060 

81202070 

81202080 

81202090 

81202100 

81202110 

81202120 

81202130 

81202140 

81202150 

81202160 

81202170 

81202180 

81202190 

81202200 

81202210 

81202220 

81202230 

81202240 

81202250 

81202260 

81202270 

81202280 

81202290 

81202300 

81202310 

81202320 

81202330 

81202340 

81202350 

81202360 

81202370 

81202380 

81202390 

81202400 

81202410 

8120242O 

8120243O 

81202440 

81202450 

81202460 

81202470 

81202480 

81202490 

81202500 

81202510 

81202520 

81202530 

81202540 

81202550 

81202560 

81202570 

81202580 

81202590 

81202600 

81202610 

81202620 

81202630 

81202640 

81202650 

81202660 

81202670 

81202680 

81202690 

81202700 

81202T10 

81202720 

81202730 



PROG 10 
PAGE 



081 2-B 
2A 



( ((<<<<<<<(<(<<<<<(<<((<<<<<<(<( it < 



3 






r 

C 
O 
O 



O 



o 
o 



o 
o 
o 
o 
o 
c 
o 
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OOOF O 



DATE 
EC NO. 



0004 







0005 







0007 







0009 







OOOA 







OOOC 







0010 







0012 







0015 







0018 







0019 







001A 







001D 







001F 







088F 





0001 


0890 





2003 


0891 


1 


0892 



0892 O 0001 

0893 O 2013 

0894 1 0895 



0895 0001 

0896 2000 

0897 1 0898 

0898 0000 



0899 





0006 


089A 





0004 


089B 


1 


089C 


089C 




0004 


089C 







08 9D 







089E 







089F 







08AO 


1 


0895 


08 A 1 





0000 


08A2 





0000 


08A3 





0000 


08A4 


1 


0899 


08A5 





0000 


08A6 





0000 


08A7 





0000 


08A8 





0000 


08A9 





0000 


08AA 





0000 


08AB 





0000 


08AC 





0000 


08AD 





0000 


08AE 





0000 


08AF 





0000 


08BO 





0000 


08B1 





0000 


0882 





0000 


08B3 





0000 



14N0V69 
431319 



UNEXC 


EOU 


*********** 


* 




*********** 


* 




* 


EOUAT 


* 




FBRST 


EOU 


FOVRN 


EOU 


FSKCK 


EQU 


FTROV 


EOU 


FEOCY 


EQU 


FNORC 


EQU 


FUNSF 


EQU 


FSERD 


EQU 


FUNSL 


EOU 


FDRDY 


EOU 


FONLN 


EOU 


FUNSI 


EOU 


FECYL 


EOU 


FSKIN 


EOU 


* 




* 




NOPCC 


DC 




DC 




DC 


* 




* 




RECAL 


DC 




DC 




DC 


* 




* 




TSCCW 


DC 




DC 




DC 


* 




TSWDS 


DC 


* 




SNCCW 


DC 




DC 




DC 


* 




SNVtDS 


8SS 


SNWDO 


EQU 


SNWD1 


EQU 


SNWD2 


EQU 


SNWD3 


EQU 


TIOXX 


OC 




DC 


HIOXX 


DC 




DC 


SENSE 


DC 




DC 


SIOXX 


DC 




DC 


SCSNO 


DC 




DC 


SCSN1 


DC 




DC 


SCSN2 


DC 




DC 


SCSN3 


DC 




DC 


SCSN4 


DC 




C DC 


SCSNS 


DC 




DC 



15 UNIT EXCEPTION 

**************************************** 

* 
**************************************** 

ES FOR 2311 SENSE BYTES 



30JAN70 
431319A 



15SEP71 
4313S8 



4 

5 

7 

9 

10 

12 

16 

18 

21 

24 

25 

26 

29 

31 



(BURST) DATA CK 
CHANNEL/2841 OVERRUN 
SEEK CK 

END OF CYLINDER 
NO RECORD FOUND 

SERDES CHECK 

DRIVE READY 

UNSAFE 

END OF CYLINDER 

SEEK INCOMPLETE 



1 BYTE COUNT 

/20*256+0PN0P FLAGS AND OP CODE 
* ADDRESS 



1 BYTE COUNT 

/20*256+RCAL FLAGS AND OP CODE 
* ADDRESS 



1 BYTE COUNT 

/20*256+0PTI0 FLAGS AND OP CODE 
TSWDS ADDRESS 



6 BYTE COUNT 

0*256+OPSNS FLAGS AND OP CODE 
SNWDS ADDRESS 



4 

SNWDS 

SNWDS+1 

SNWDS+2 

SNWDS+3 

TSCCW 

*-* 

*-# 

*-* 

SNCCW 

*-* 

*— * 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-# 

*-* 

*-* 



SENSE BYTES 



TIO CCW 

TO BE FILLS) IN 



SENSE IO W/SUPPRESS POLL 
TO BE "FILLED" IN 
TO BE FILLED WITH CCW ADDR 
TO BE FILLED IN 

= 08 

= 09 

= OA 

= OB 

= OC 

= 06 
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81 20 2 74 

81202750 

81202760 

81202770 

81202780 

81202790 

81202800 

81202810 

81202820 

81202830 

81202840 

81202850 

81202860 

81202870 

81202880 

81202890 

81202900 

81202910 

81202920 

81202930 

81202940 

81202950 

81202960 

81202970 

81202980 

81202990 

81203000 

81203010 

81203020 

81203030 

81203040 

81203050 

81203060 

81203070 

81203080 

81203090 

81203100 

81203110 

81203120 

81203130 

81203140 

81203150 

81203160 

81203170 

81203180 

81203190 

81203200 

81203210 

8120 3220 

81203230 

81203240 

81203250 

81203260 

81203270 

81203280 

81203290 

81203300 

81203310 

81203320 

81203330 

81203340 

81203350 

81203360 

81203370 

81203380 

81203390 

82203400 

81203410 
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081 2-S 
3 



08B4 
08B6 
08BC 
08C0 
08C4 
08C8 
08CC 
08CC 
08CD 
08CE 
08CE 
08CF 
08D0 
08D1 
08D2 
08D3 



0004 
0004 
0004 
0004 
0004 
0003 
0000 
1418 
0000 
0000 

0000 
0000 
0000 
0000 
0000 



scsxo 

SCSX4 
SCSX8 
SCSXC 

scsvs 

HA 



BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
TLGWR DC 
DC 
TLGSP DC 
TLGSN EQU 
DC 
DC 
DC 
DC 
DC 



£ 

E 
E 
E 
E 
E 
E 



08D4 0008 

08DC 0007 

08E3 FFFF 

08E4 0009 

08ED FFFF 



TLGCT 
TLGSW 
TLGSR 

* 
STSER 



4 

4 

4 

4 

4 

3 

O 

TLGBA 

*-* 

/OOOO 

TLGSP 

*-* 

O 





*-* 



START I/O SAVE AREA 
START I/O SAVE AREA 
TIO SAVE AREA 
SENSE I/O SAVE AREA 
SAVE AREA FOR SENSE 



INFO 



IOAREA ADDRESS 
TO BE FILLED IN 
SPACE IN 1443 CODE 
SENSE DSW IOCC 
TO BE FILLED IN 
LOOP COUNT FOR PRNTR INT 
1ST/2ND CHAR SW (1053) 
1ST/2ND CHAR SW (TLGCH) 
SENSE/RESET DSW 



UNADR 



PR NT 

PRNT 

DC 

PRNT 

DC 



.XX ERROR ON XXX . 

.SECT X.RTN X . 

/FFFF 

. UNIT XX.ADRS XXXX. 

/FFFF 



08EE 
08EF 
08F0 
08F1 
08F2 
08F3 
08F4 
08F5 
08F6 
08F8 
08F9 



0000 

0000 

0000 

0000 

0000 

68FA 

6A6F 

6970 

6600 087F 

C271 

4C18 094F 



08FB O 0A29 
08FC 1001 
08FD 1 4C10 0919 



08FF 





0A2D 




0900 





18D0 




0901 





1010 




0902 





1088 




0903 





F2D4 




0904 


1 


4C18 


090C 


0906 





1092 




0907 


1 


4C10 


094F 



09 09 O C2DA 

090A 1 4C18 094F 

090C C2DA 

090D 1 4C18 0919 

090F O 1010 

0910 O D2DA 



0911 0A2D 

0912 100B 

0913 1 4C28 0923 

0915 O 0A2D 



* 
* 
* 

WIOSW DC 
WATSW DC 
SCISW DC 
TSCAC DC 
SCINT DC 
STX 
STX 
STX 
LDX 
LD 
BZ 



XIO 
SLA 

BNN 

XIO 
XCH 

SLA 

SLT 

EOR 

BZ 

SLT 

BNN 

LD 
BZ 

LD 

BZ 

SLA 
STO 



SELECTOR CHANNEL INT ROUTINE 



2 

1 

L2 

2 



*-* 
*-* 
*-* 
*-* 
*-* 

wiosw 

SCIN7+1 

SCIN7+3 

TB 

SCISW-TB 

SCIN4 



.it-.rWAIT.aF.aR USER INT6BWHT. 
WAIT FOR SYST TIO INT. 
INTERRUPT SWITCH 
SEL.CHAN AREA CODE 

INT. RTN ENTRY 
SET INTERUPT SWITCH 
SAVE REG 



.2 



SCSNO 

1 

SCINO 



-TB. 



SET UP POINTER TO TBL 
GET INT SWITCH 
BR IF NOT SET 



F.ET,CH A CHANNEL 
TEST FOR USP 
BRANCH IF NOT 



STATUS 



USP 



2 SCSN2-TB 

16 
8 
2 DVADR-TB 
SCINC 
8+UNCUE 
SCIN4 



GET UNIT STATUS 

SAVE STATUS 

CLEAR A REG 

GET DEVICE ADDRS 

TEST FOR MY DEVICE 

BRANCH IF MINE 

TEST FOR CONTROL UNIT 

BRANCH IF NOT CU END 



END 



* 
SCINC 



TIOSW- 
SCIN4 



TIOSW 
SCINO 



16 
TIOSW- 



TB 



•TB 



TB 



GET TIO SW 

BR IF INT NOT 



DUE TO TIO 



* 
* 
* 
* 
* 



GET HERE IF INTERRUPT 
IF STATUS IS NON BUSY 
AND SCSX8 



FETCH 


TIO 


sw 




BRANCH IF 


USER 


TIO 


ELSE CLEAR TIO 


SW 


* 








FROM 


TIO 


AFTER SIO 


THEN 


PLACE IN 


scsxo 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



XIO 
SLA 

BN 

XIO 



15SEP71 
431328 



2 SCSN2-TB FETCH UNIT STATUS 

UNBZY TEST FOR UNIT OR CU BUSY 

SCINX BR TO. SET POINTER TO SCSX 

2 SCSN2-TB FETCH UNIT STATUS 
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81203420 
81203430 
81203440 
81203450 
81203460 
81203470 
81203480 
81203490 
81203500 
81203510 
81203520 
81203530 
81203540 
8120 3550 
81203560 
81203570 
81203580 
81203590 
81203600 
81203610 
81203620 
81203630 
81203640 
81203650 
81203660 
81203670 
81203680 
81203690 
81203700 
8120 3710 
81203720 
81203730 
81203740 
81203750 
81203760 
81203770 
81203780 
81^20379^9. 
81203800 
81203810 
81203820 
81203830 
81203840 
81203850 
81203860 
81203870 
81203880 
81203890 
81203900 
81203910 
81203920 
81203930 
81203940 
81203950 
81203960 
81203970 
81203980 
81203990 
81204000 
81204010 
812O4020 
81204030 
81204040 
81204050 
81204060 
3 81204070 
8S204080 
81204090 



PROG ID 
PAGE 



0812-B 
3A 



( r- ( 

c 
c 

c 

o 
o 
o. 
c 

c 

o 

C ' 

c 
c 
c 
c 
o 
c 
c 
c 
o 
c 
c 

G 

c 
c 
o 
o 
c 
o 
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0916 EA36 

0917 D236 



0918 700A 



OR 
STO 



B 



2 SCSXO+1-TB MERGE WITH OLD STATUS 
2 SCSXO+l-TB * 



SCINX 



BR £ SET POINTER TO SCSX8 



0919 C223 

091A 1 4C20 0943 



* 
* 
* 
* 
* 
SCINO 



GET HERE IF TIOSW WAS NOT ON AND TEST 
FOR USER TIO IF SO PLACE STATUS IN SCSX8 . 
ELSE GO TEST FOR SENSE OPERATION INTERUPT 



091C 
091D 
091E 
091F 
0920 
0921 



0A31 

D231 

C221 

8299 

F231 

1 4C20 0927 



LD 2 HIOXX-TB GET HIO SW 

BNZ SCIN3 BR IF SET 

XIO 2 SCSN4-TB ELSE GET CCW ADDRS REG 

STO 2 SCSN4-TB SAVE FOR LATER USE 

LD 2 TIOXX-TB GET TEST I/O ADDRESS 

A 2 K3-TB ADD THREE 

EOR 2 SCSN4-TB COMPARE WITH CCW ADRS REG 

BNZ SCIN1 BR IF NOT THE SAME 



0923 1 6700 08BC 

0925 68C9 

0926 702E 



0927 C225 

0928 8299 

0929 O F231 
092A 1 4C20 092F 
092C 1 6700 08C0 
092E 7026 



* 
* 
* 
* 
* 
SCINX 



* 
* 
* 
* 
SCIN1 



GET HERE IF USER TIO OR SYSTEM TIO 
FOUND THAT THE UNIT OR CU WAS BUSY 
AFTER A TEST I/O. 

LDX L3 SCSX8 ELSE POINT TO SAVE AREA 
STX WATSW SET TIO INTERRUPT SW 
MDX SCIN5 GO TO COMMON RTN 

GET HERE IF NO TEST I/O WAS INDICATED 
BY THE PRIOR ROUTINES 



LD 



2 SENSE-TB 



A 2 K3-T8 

EOR 2 SCSN4-TB 

BNZ *+3 

LDX L3 SCSXC 

MDX SCIN5 



GET CCW ADDRESS FOR SENSE 

POINT TO FOLLOWING 

COMPARE 

BR IF NOT 

POINT TO SAVE AREA 

GO TO COMMON RTN 











* 


GET 


HERE IF SENSE 


WAS FOUND NOT TO 










* 


BE THE CAUSE OF THE INTERRUPT AND TEST 










* 


FOR 


START I/O TO 


BE THE CAUSE. IF NOT 










* 
* 


THEN 


SET THE INTERRUPT TO THE UNEXPECTED. 


092F 





C227 




LD 


2 


SIOXX-TB 


GET START I/O CCW ADDRESS 


0930 


1 


6780 


08A6 


£ 


LDX 


13 


SIOXX 


SET IN REG TOO 


0932 





8299 




SCIN2 


A 


2 


K3-TB 


POINT TO NEXT ADRS AFTER 


0933 





D219 






STO 


2 


TSWDS-TB 


SAVE IN TEMP STORAGE 


0934 





F231 






EOR 


2 


SCSN4-TB 


COMPARE 


0935 


1 


4C18 


0943 




BZ 




SCIN3 


BR IF SAME 


0937 





C301 






LD 


3 


1 


GET OPCODE/FLAGS 


0938 





180E 






SRA 




14 


SAVE CMD CHAIN/DATA CHAIN 


0939 


1 


4C20 


0940 




BNZ 




* + 5 


BR IF SET 


093B 





C301 






LD 


3 


1 


GET IT AGAIN 


093C 





F29D 






.EOR 


2 


K8-TB 


TEST FOR TIC 


093D 





1008 






SLA 




8 


SAVE OPCODE ONLY 


093E 


1 


4C20 


094F 




BNZ 




SCIN4 


BR IF NOT TIC 


0940 





7303 






MDX 


3 


3 


POINT TO NEXT CCW IN CHAIN 


0941 





C219 






LD 


2 


TSWDS-TB 


GET ADDRESS 


0942 





70EF 




* 
SCIN3 


MDX 




SCIN2 


LOOP 


0943 





1010 




5LA 




16 


CLEAR HIO SW 


0944 





D223 






STO 


2 


HIOXX-TB 


* 


0945 


1 


6700 


08B4 




LDX 


L3 


SCSXO 


POINT TO SIO SAVE AREA 


0947 





C30 1 






LD 


3 


1 


GET LAST UNIT STATUS 


94 8 





100D 






SLA 




UNDVE 


TEST FOR DEVICE END 


0949 


1 


4C28 


0955 




BN 




SCIN5* 


BR IF SET 


094B 





1001 






SLA 




UNCHK-UNOVE TEST FOR UCHK 


094C 


i 


4C28 


0955 




BN 




SCIN5 


8R IF SET 
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81204100 
81204110 
81204120 
81204130 
81204140 
81204150 
81204160 
81204170 
81204180 
81204190 
81204200 
81204210 
81204220 
81204230 
81204240 
81204250 
81204260 
81204270 
81204280 
81204290 
81204300 
81204310 
81204320 
81204330 
81204340 
81204350 
81204360 
81204370 
81204380 
81204390 
81204400 
81204410 
81204420 
81204430 
81204440 
81204450 
81204460 
81204470 
81204480 
81204490 
81204500 
81204510 
81204520 
81204530 
81204540 
81204550 
81204560 
81204570 
81204580 
81204S90 
81204600 
81204610 
81204620 
81204630 
81204640 
81204650 
81204660 
81204670 
81204680 
81204690 
81204700 
81204710 
81204720 
81204730 
81204740 
81204750 
81204760 
81204770 
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PART NO. 2279468 ! 
PAGE 4A | 



i 



094E 7008 

094F 1 6700 096B 

0951 1 6F00 0809 

0953 1 6700 08B8 

0955 1010 

0956 D301 

0957 0A2B' 

0958 D300 

0959 1001 
095A 1 4C10 0969 



MDX 



SCIN6 



SCIN4 LDX L3 SCIN8 

STX L3 MLSCO 

LDX L3 SCSX4 

* 



ELSE 'OR' IN STATUS 

SET MLSCF ENTRY FOR RETUR 

*** 

POINT O SAVE AREA 



095C 





0A2F 


095D 





EB01 


095E 





D301 


095F 





0A31 


0960 





D302 


0961 





0A33 


0962 





D303 



16 
3 1 

2 SCSN1-TB 

3 
1 
SCINA 

2 SCSN3-TB 

3 1 
3 1 

2 SCSN4-TB 

3 2 

2 SCSN5-TB 

3 3 



0963 6600 0000 
0965 6500 0000 

0967 1 4C80 '08F2 



0969 10 10 
096A O 70F3 



096B 1 6600 087F 
096D 610C 
096E 1 '=6700- 08SB 



CLEAR WORD TO ZERO 
FOR OR'ING IN STATUS 

GET CHAN. STATUS 

SAVE 

TEST FOR USP 

BRANCH IF NOT ON 

GET UNIT STATUS 

COMBINE WITH EXISTING 

SAVE 

GET CCW ADDRESS REG. 

SAVE 

GET BYTE COUNTER 

SAVE 

RELOAD REG 2 
REG 1 

EX ; T Hf NT". : R"tN 



RETURN HERE AFTER UNEXPECTED INT 



0970 





C300 




0971 





42F5 




0972 


1 


D500 


098D 


0974 





18D0 




0975 


1 


D500 


098E 


0977 





73FF 




0978 





71FD 




0979 





70F6 





097A 4204 
097B 1 097E 
097C 4C8 01 2D 



097E 0015 

098D FFOO 

098E 0013 

099B FFFF 



099C 0000 

099D C2SD 

099E D22B 

99F O C270 



SCIN5 SLA 
STO 

* 

SCIN6 XIO 

STO 

SLA 

BNN 
* 

XIO 

OR 
SCINB STO 

XIO 

STO 

XIO 

STO 

SCIN7 LDX L2 *-* 
LDX LI *-* 
* 

BSC I SCI NT 

* 

* GET HERE IF USP WAS NOT THE CAUSE OF 

* THE INTERRUPT AND SET US TO 0000 

* 

SCINA SLA 16 CLEAR ACC 

MDX SCINB RETURN 

* 
* 

SCIN8 LDX L2 TB 

LDX 1 12 

LDX L3 SCSX4+3 
* 

SCIN9 LD 3 

BSI 2 TCVBE-TB 

STO LI SCIM2-1 

XCH 

STO LI SCIM2 

MDX 3 -1 

MDX 1-3 

MDX SCIN9 
* 

BSI 2 TLGMS-TB 
DC SCIMS 

BSC I START 

* 

SCIMS PRNT .** ER 00 UNEXPECTED INTERRUPT. 

DC /FFOO 

SCIM2 PRNT „CSW XXXX, XXXX, XXXX. XXXX. 

DC /FFFF 

****************************** ^a*******^^^.^.,^ 

* 

********************** ************************.£**** 

* WAIT FOR INTERRUPT 

****************************** a******** .j.*^,,.^^^.,. 

* 

* 
****************************** ********************* 

TINTW DC *-* ENTRY POINT 

LD 2 TERM-TB FETCH TIME OUT CONSTANT 

STO 2 SCSN1-TB 

* 

TINT2 LD 2 WATSW-TB 



SET UP TABLE POINTER 
SET UP POINTER 
SET UP CSW POINTER 

GET CHNL STATUS 
CONVERT TO 1443 CODE 
PUT IN MESSAGE 

* 

* 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15StP71 
431328 



PROG ID 


0812-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


4 


EC NO. 


431319 


431319A 


431328 



81204780 
81204790 
N 81204800 
81204810 
81204820 
81204830 
81204840 
81204850 
81204860 
81204870 
81204880 
81204890 
81204900 
81204910 
81204920 
81204930 
81204940 
81204950 
81204960 
81204970 
81204980 
81204990 
81205000 
81205010 
81205020 
81205030 
81205040 
81205050 
81205060 
81205070 
81205080 
81205090 
81205100 
81205110 
81205120 
81205130 
81205140 
81205150 
81205160 
81205170 
81205180 
81205190 
81205200 
81205210 
81205220 
81205230 
81205240 
81205250 
81205260 
81205270 
81205280 
81205290 
81205300 
81205310 
81205320 
81205330 
81205340 
81205350 
81205360 
81205370 
81205380 
81205390 
81205400 
81205410 
81205420 
8120 5430 
81205440 
81205450 



PROG 10 
PAGE 



0812-B 
4A 



<,-(.< ( ( < ( ( ( < < < < < ( ( < !< ( < < < < ( < < < < ( ( ( < ( < 



c 






r 



o 
o 

3 



w* 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



^ 



G 

c 



r^ 



V- 



--"-, 






J 



DATE 
EC NO. 



O9A0 


1 


4C20 


09B0 


09A2 





42F2 




09A3 


1 


74F6 


08AA 


09A5 





70F9 




09A6 





0A2B 




09A7 





D241 




09A8 





0A2F 




09A9 





D242 




09AA 





0A31 




09AB 





D243 




09AC 





0A33 




09AD 





D244 





09AE 1 4C80 099C 

09B0 1 7401 099C 

09B2 1010 

09B3 D270 

0984 1 4C80 099C 



09B6 4480 012C 
09B8 1 07FF 



09B9 0000 
09BA COFE 
09BB D013 
09BC 1 6600 087F 



BNZ TINT3 

BSI 2 STMLS-TB 

MDX L SCSN1.-10 

MDX T1NT2 

XIO 2 SCSN1-TB 

STO 2 SCSXC-TB 

XIO 2 SCSN3-TB 

STO 2 SCSXC+1-TB 

XIO 2 SCSN4-TB 

STO 2 SCSXC+2-TB 

XIO 2 SCSN5-TB 

STO 2 SCSXC+3-TB 

BSC I TINTW 



GO VISIT MONITOR 



GET CHANNEL STATUS 

* AND SAVE FOR ERR 

* MESSAGE 

* 



09BE 
09BF 
09C1 
09C2 
09C3 
09C4 
09C5 
09C6 
09C7 
09C8 
09CA 
09CB 
09CC 
09CD 
09CE 



1010 

D400 13F9 

D2D5 

D26F 

D2DA 

D270 

D283 

D284 

D286 

D400 1157 

C2BF 

D285 

C297 

D2D8 

7001 



TINT3 MDX 
SLA 
STO 
BSC 

* 

*********: 

********* 
* 

BGIN BSI 
DC 

********** 

* 

********** 

ZIPA DC 
LD 
STO 
LDX 

* 

SLA 

STO 

STO 

STO 

STO 

STO 

STO 

STO 

STO 

STO 

LD 

STO 

LD 

STO 

MDX 

********** 

* 

********** 

* 



L TINTW. 1 
16 
2 WATSW-TB 
I TINTW 



EXIT RTN 



EXIT RTN 



***************************************** 

* 
***************************************** 

I BEGIN GO TO MONITOR BEGIN RTN 

TPID ADDRESS OF P ID 

***************************************** 

***************************************** 



*-* 
ZIPA 
ZLPA 
L2 TB 



ENTRY POINT 

MOVE RETURN ADDRS 

* 

SET UP POINTER 



16 

L FRESW 
2 LGBSY-TB 
2 WIOSW-TB 
2 TI0SW-T8 
2 WATSW-TB 
2 TSWO-TB 
2 TSW1-TB 
2 TSW3-TB 

L STMPT 



RESET- 
RESET CONTROL SWS 
* 
* 
* 
* 

* SW 
*, SW 1 

* SW 3 
RESET STMLS POINTER 

2 HFFOO-TB FETCH CONSTANT 
2 TSW2-TB PLACE IN SW 2 
2 Kl-TB FETCH CONSTANT OF 1 
2 PSCNT-TB SET PASS C0UNT=1 
ZLPA+1 CONTINUE 
***************************************** 

* 
***************************************** 



09CF 

09D0 

09D2 

09D4 

09D6 

09D7 1 

09D9 O 

09DB 

09DC 

09DD 

09DE 

09E0 

09E2 

09E3 



0000 
6700 
6F00 
6600 
C294 
4C10 
4480 
0813 
080C 
C295 
4C10 
4480 
0814 
080C 



ZLPA 



09FF 
080B 
087F 

09DD 
132 



09E4 
0132 



ZLPA1 



14N0V69 
431319 



30JAN70 
431319A 



DC 
LDX 
STX 
LDX 

LD 

BNN 

BSI 

DC 

DC 

LD 

BNN 

BSI 

DC 

DC 



15SEP71 
431328 



*-* 
L3 TCNPR 
L3 MLSC2 
L2 TB 
2 TLGED-TB 

ZLPA1 
I RELDV 

TLGED 

TERM 
2 TSCED-TB 

ZLPA2 
I RELDV 

TSCED 

TERM 



LOOP PGM RTN 
GET MLSCF ADDRESS 
SET IN TBL 
SET UP TBL POINTER 
LOOK AT LOG EDIT 
BR IF RELEASED 
ELSE RELEASE DEVICE 
ADDR OF EDIT WORD 
TERMINATOR 
SEL. CHAN. EDIT 

RELEASE DEVICE 



81205460 
81205470 
81205480 
81205490 
81205500 
81205510 
81205520 
81205530 
81205540 
81205550 
81205560 
81205570 
81205580 
8 1205590 
81205600 
81205610 
81205620 
81205630 
81205640 
81205650 
81205660 
81205670 
81205680 
81205690 
81205700 
81205710 
81205720 
81205730 
81205740 
81205750 
81205760 
81205770 
81205780 
81205790 
81205800 
81205810 
81205820 
81205830 
81205840 
81205850 
81205860 
81205870 
81205880 
81205890 
8120 5900 
81205910 
81205920 
81205930 
81205940 
81205950 
81205960 
81205970 
81205980 
81205990 
81206000 
81206010 
81206020 
81206030 
81206040 
81206050 
81206060 
81206070 
81206080 
81206090 
81206100 
81206110 
81206120 
81206130 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

204 1 DIAGNOSTIC - PHASE 6 

IdOO DIAGNOSTIC MAINTENANCE PROGRAM 



09E4 O 
09E4 
09E5 
09E6 
09E7 
09E8 
09E9 
9EA 



1010 
D2D9 
D2D6 
D2D5 
C297 
D281 
4C80 09CF 



ZLPA2 EQU * 

SLA 16 RESET- 

STO 2 STKSW-TB * STACK SW 

STO 2 SIOSW-TB * SIO SW 

STO 2 LGBSY-TB * LOG BUSY SW 

LD 2 Kl-TB FETCH CONSTANT OF 1 

STO 2 TSID-TB SET SECTION ID = 1 

BSC I ZLPA EXIT 



09EC 
09ED 
09EF 
09F0 
09F2 
09F4 



0000 

6600 087F 
C294 

4C10 09F6 
4480 0132 
0813 
09F5 1 080C 

09F6 C295 
09F7 1 4C10 09FD 

09F9 4480 0132 

09FB 1 0814 

09FC 1 08«C- -'•- •"' - : 

09FD 1 4C80 09EC 



* 

***** 

* 

***** 

ZEPA 



* 
ZEPA1 



********************************************** 

* 

********************************************** 
DC * *-* END PGM RTN 

LDX L2 TB SET UP TBL POINTER 

LD 2 TLGED-TB LOOK AT LOG EDIT 

BNN ZEPA1 BR IF RELEASED 

BSI I RELDV ELSE RELEASE DEVICE 

DC TLGED ADDR OF ED I T WORD 

DC TERM TERMINATOR 

LD 2 TSCED-TB SEL CHANNEL EDIT 

BNN ZEPA2 BR IF RELEASED 



RELEASE DEVICE 
ADDRS OF EDIT WORD 



09FF 
OA01 
0A02 
OA04 
0A05 
0A07 
0A08 
OA09 
OAOA 
OAOB 
OAOD 1 
OAOE 1 
OAOF 1 
0A1 1 
0A12 
0A13 
0A14 
0A15 



0A16 
0A16 
0A17 



6600 087F 

C 2D F- ■'-'-<■-'• 

4C20 0A16 

42F2 

4480 0131 

OA04 

0813 

13B5 

080C 

4480 0132 

0813 

080C 

C400 13B5 

F2B9 

4820 

C297 

8297 

D20F-r. -...c„. 



42E9 
42E6 



ZEPA2 

***** 

* 

***** 

* 

* 

* 

***** 

* 

***** 

TCNPR 



**** 

LDX 
LD 
BNZ 
TCNRQ BSI 
BSI 
DC 
DC 
DC 
DC 
BSI 
DC 
DC 
LD 
EOR 
SKP 
LD 
A 
STO 



BSI I RELDV 

DC TSCED 

DC TERM 

BSC I ZEPA EXIT BACK TO MONITOR 

********************************************** 

* 
********************************************** 

PRE-CONTROL ROUTINE 

********************************************** 

* 
******************************** 

SET UP TABLE POINTER 
TB-' ■"» GET 43/53-SWITCH 



*********** 
L2 TB 
2 T45SW- 

TCN01 
2 STMLS- 
I REGDV 
TCNRQ 
TLGED 
TLGOA 
TERM 
I RELD V 
TLGED 
TERM 
L TLGDA 
2 H3000- 

Z 
2 Kl-TB 
2 Kl-TB 
2 T45SW- 



TS 



REGUEST DEVICE 
BUSY RETURN 
EDIT FOR PRINTER 
AREA CODE GIVEN BACK 
TERMINATOR 
RELEASE DEVICE 
ED IT FOR PRINTER 
TERMINATOR 
GET PRINTER AREA CODE 



TB 



ADD ONE 
TB SHT SW FOR 4: 



OR 53 



* 
TCN01 



0A18 C285 
0A19 O 1808 

1 


1 



0A1 A 
0A1C 
0A1D 



4C13 0A23 

a204 



0A83 



0A1E O 42F2 

OASF C285 

0A20 1808 

0A21 4820 



EOU 

BSI 

BSI 

LD 

SRA 

BZ 

BSI 

DC 

BSI 
LD 
SRA 
SKP 



GETDV-TB 

FREDV-TB 

TSW2-TB 

8 

TCN02 

TLGMS-TB 

TCNE2 



2 STMLS-TB 
2 TSW2-TB 

8 . 

Z 



GET DEVICE FOR USE 

RELEASE DEVICE 

GET SW FNC 2 (DEV ADDR) 

SAVE BITS 0-7 

BR IF ZERO 

PRINT MESSAGE 
•ENTER DEV ADDRESS' 

GO TO MONITOR 
GET SW FNC 2 
SAVE BITS 0-7 

SKIP IF ZERO 
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81206140 

81206150 

81206160 

81206170 

81206180 

81206190 

81206200 

81206210 

81206220 

81206230 

81206240 

81206250 

81206260 

81206270 

81206280 

81206290 

81206300 

81206310 

81206320 

81206330 

81206340 

81206350 

81206360 

81206370 

81206380 

81206390 

81206400 

81206410 

81206420 

81206430 

81206440 

81206450 

81206460 

81206470 

81206480 

81206490 

81206500 

8120651a 

81206520 

81206530 

81206540 

81206550 

81206560 

81206570 

81206580 

81206590 

81206600 

81206610 

81206620 

81206630 

81206640 

81206650 

81206660 

8120 6670 

81206680 

81206690 

81206700 

81206710 

81206720 

81206730 

81206740 

81206750 

81206760 

81206770 

81206780 

81206790 

81206800 

81206810 



PROG ID 


0812-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


5 


EC NO. 


431319 


431319A 


431328 



PROG ID 
PAGE 



0812-B 
5A 



(I <<<<((<<<<(<<<<<<<(<<(<<<<<<<<<<< 



c 

c 

c 
o 

c 

G 

O 

v_ 

c 
c 
c 

c 






o 

O 

c 



o 
o 
c 
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0A23 





C285 


0A24 





D2D4 


0A25 





42F5 


0A26 





1090 


0A27 





D043 


0A28 





C2D8 


0A29 





42F8 


0A2A 





42F5 


0A2B 





1800 


0A2C 





D043 


0A20 





4204 


0A2E 


1 


0A5C 



0A2F 

0A2F 

0A31 

0A32 

0A33 

0A34 

0A35 

0A36 

0A37 

0A38 

0A39 1 

0A3B 

0A3C 

0A3D 1 



0A3F 
0A41 
0A43 
0A44 
0A45 
0A46 
0A47 
0A48 
0A49 
0A4A 



6600 087F 

C284 

100C 

180C 

D2C2 

C284 

E2B0 

1884 

D2C1 

4C20 0A4C 

1090 

180C 

4C20 0A50 

6580 0800 

C500 0A59 

D282 

1010 

D2C3 

D296 

C281 

8297 

D281 

4C80 0801 



0A4C D281 
0A4D 900B 
0A4E 1 4C28 0A3F 



0A50 





C284 


0A51 





42F5 


0A52 





D02C 


0A53 





1090 


0A54 





D02B 


0A55 





4204 


0A56 


I 


0A74 


0A57 





42FB 


0A58 





42E0 


0A59 





0003 


0A5A 


1 


0A93 


0A5B 


1 


0FA4 


0A5C 








PROGRAM 












MDX 




*-5 


LOOP UNTIL OK 


81 £06820 


* 










81206830 


TCN02 


LD 


2 


TSW2-TB 


GET SW FNC 2 


81206840 




STO 


2 


D VADR-TB 


SET FOR SIO/TIO/SNS 


81206850 




BSI 


2 


TCVBE-TB 


CONVERT ADDR TO EBC 


81206860 




SLT 




16 


Q TO A 


81206870 




STO 




CUUU 


STORE FOR PRINT 


81206880 


* 










81206890 




LD 


2 


PSCNT-TB 


GET PASS COUNT 


81206900 




BSI 


2 


TCVHD-TB 


CVT TO DECIMAL 


81206910 




BSI 


2 


TCVBE-TB 


CONVERT TO 1443 CODE 


8120 6920 




XCH 






Q TO A 


81206930 




STO 




TTL01+3 


PUT IN MSG 


81206940 




BSI 


2 


TLGMS-TB 


PRINT PROGRAM TITLE 


81206950 




DC 




TTLOO 


MSG ADDRESS 


8120 6960 


*************************************************** 


81206970 


* 








* 


81206980 


*************************************************** 


81206990 


* 










81207000 


* 


THIS 


ROUTINE CONTROLS ALL TESTS 


81207010 


* 










81207020 


TCNTE 


EQU 




* 


ENTRY POINT 


81207030 




LDX 


L2 


TB 


SET TABLE ADDRESS 


81207040 




LD 


2 


TSW1-TB 


GET SW FNC 1 


81207050 




SLA 




12 


SAVE BITS 12-15 


81207060 




SRA 




12 


** 


81207070 




STO 


2 


TRTNN-TB 


** 


81207080 




LD 


2 


TSW1-TB 


GET SW FNC 1 


81207090 




AND 


2 


HOOFF-TB 


DROP BAD BITS 


81207100 




SRT 




4 


SAVE BITS 8-11 


81207110 




STO 


2 


TSCTN-TB 


SAVE SECTION NUMBER 


81207120 




BNZ 




TCN04 


BR IF NOT ZERO 


81207130 




SLT 




16 


GET BACK BITS 12-15 


81207140 




SRA 




12 


SAVE THEM 


81207150 




BNZ 




TCNER 


ERR. NO SECTION SPECIFIED 


81207160 


* 










81207170 


TCN03 


LDX 


11 


TSID 


GET SECTION NUMBER 


81207180 




LD 


LI 


TCNTA 


GET SECT. PREFACE ADDRESS 


8*207190 




STO 


2 


TSAD-TB 


STORE IN SEC ADDRS 


81207200 




SLA 




16 


CLEAR ERROR COUNTER 


81207210 




STO 


2 


TCNSW-TB 


*** 


81207220 




STO 


2 


TRID-TB 


CLEAR RTN ID TO ZERO 


81207230 




LD 


2 


TSID-TB 


INCREMENT SECTION 


81207240 




A 


2 


Kl-TB 


* 


81207250 




STO 


2 


TSID-TB 


* 


81207260 




BSC 


I 


TSAD 


GO TO SECTION PREFACE 


81207270 


* 










81207280 


TCN04 


STO 


2 


TSID-TB 


STORE SECT. NUMBER 


81207290 




S 




TCNTA 


SUB. NUMBER OF SECTIONS 


81207300 




BN 




TCN03 


BR IF OK 


81207310 


* 










81207320 


TCNER 


LD 


2 


TSW1-TB 


GET SW FNC 1 


81207330 




BSI 


2 


TCVBE-TB 


CONVERT HEX TO PRNT CODE 


81207340 




STO 




TTLER+U 


PUT INVALID SWITCH 


81207350 




SLT 




16 


* SETTING INTO MESSAGE 


81207360 




STO 




TTLER+12 


* 


81207370 




BSI 


2 


TLGMS-TB 




81207380 




DC 




TTLER 




81207390 




BSI 


2 


THALT-TB 




81207400 




BSI 


2 


CNTRL-TB 


GO TO RETRY RTN SELCT 


81207410 


* 










81207420 


TCNTA 


DC 




TCNTZ-TCNTA LENGTH OF TBL + 1 


81207430 




DC 




T10NT 


SECTION ADDRESS 


81207440 




DC 




T2 0NT 


SECTION ADDRESS 


81207450 


TCNT2 


EQU 




* 


END OF TABLE 


81207460 


a****,****.****************************************** 


8 1207470 


* 








* 


81207480 


*************************************************** 


81207490 
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DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



1SSEP71 
431328 



PROG ID 
PAGE 



081 2-B 
6 



DATE 

EC NO. 



0A5C 




0015 


TTLOO 


PRNT 


0A6B 




0001 


CUU11 


PRNT 


0A6C 





FFOO 




DC 


0A6D 




0005 


TTL0 1 


PRNT 


0A72 





FFOO 




DC 


0A73 





FFFF 




DC 


0A74 




0013 


TTLER 


PRNT 


0A81 





OOFF 




DC 


0A82 





FFFF 




DC 


0A83 




0012 


TCNE2 


PRNT 


0A8F 





FFOO 




DC 


OA90 





FFFF 




DC 



. 2311 DIAGNOSTIC TEST ON UNIT . 



0A91 


Q 


0001 




T10PR 


DC 


0A92 





0007 




* 


DC 


0A93 





C2C2 




T10NT 


LD 


0A94 


1 


4C18 


0A9B 




BZ 


0A96 





90FB 






S 


0A97 


1 


4C30 


0A50 




BP 


0A99 





80F8 


. . 




A 


0A9A 





7000 






MDX 



0A9B O 

0A9B 1 7401 06i5 

0A9D 1 4C18 0AA2 

0A9F 9297 



/FFOO 

.PASS- XX . 
/FFOO TERMINATOR 
/FFFF 

. **ER INVLD SWS FNC 1 XXXX. 
/OOFF 
/FFFF 

. *** SELECT OPTIONS ***. 
/FFOO 
/FFFF 
*************************************************** 

* * 
*************************************************** 
* 

* SECTION PREFACE 
* 

/0001 SECTION NUMBER 
7 

2 TRTNN-TB SW FNC 1 BITS 12-15 
Til 01 BR IF RUN ALL RTNS 
T10PR+1 TEST FOR VALID 
TCNER BR IF INVALID RTN NUMBER 
T10PR+1 ' -°RESTQR"£ ~-RTN NUMBER 
T1101 GO TO FIRST RTN 
*************************************************** 

* * 
*************************************************** 

* 

* 

* 

*************************************************** 

* 

* ROUTINE 1 POWER OFF-ON . CPU RUNNING 

* (OPTIONAL) 

* - ■ - -- * 

*************************************************** 
* 

* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
*************************************************** 

* * 
*************************************************** 
* 
****************.*********************************** 

* * 
*************************************************** 
T1101 ECU * TEST ENTRY POINT 

MDX L TRID.l BUMP RTN ID- ■ 

BZ Til 02 BR IF TEST NUMBER ZERO 

S 2 Kl-TB DECREMENT BY ONE 



THIS ROUTINE CHECKS THE CAPABILITY OF A 2311 
TO BE POWERED DOWN AND POWERED UP WHILE THE 
CPU IS ATTEMPTING TO COMMUNICATE WITH IT. 
ADDITIONALLY. POWER-UP SEEK TO CYL 000 HD 
IS CHECKED. WHEN A TEST I/O REVEALS THAT THE 
DRIVE IS READY. THE ROUTINE WILL PERFORM A 
RHA AND VERIFY POWER-UP SEQUENCE. 



1. DO NOT STOP CPU FROM RUNNING. 

2. PRESS DISK DRIVE STOP/START BUTTON TO 
STOP-DISK .DRIVE MOTOR. 

3. PRESS DISK DRIVE STOP/START BUTTON TO 
START DISK DRIVE MOTOR. 
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81207500 

81207510 

81207520 

81207530 

81207540 

81207550 

81207560 

81207570 

81207580 

81207590 

81207600 

81207610 

81207620 

81207630 

8120 7640 

81207650 

81207660 

81207670 

81207680 

81207690 

81207700 

81207710 

81207720 

81207730 

81207740 

81207750 

81207760 

81207770 

81207780 

81207790 

81207800 

81207810 

81207820 

81207830 

81207840 

81207850 

81207860 

81207870 

81207880 

81207890 

81207900 

81207910 

81207920 

81207930 

81207940 

81207950 

81207960 

8120 7970 

81207980 

81207990 

81208000 

81208010 

81208020 

81208030 

81208040 

81208050 

81208060 

81208070 

81208080 

81208090 

81208100 

81208110 

81208120 

81208130 

81208140 

81208150 

81208160 

81208170 



14N0V69 

431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
PAGE 



081 2-B 
6A 



c 

c 
c 
c 
o 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
c 
c 
o 
c 
c 
c 
c 

o 



<<<<<<<<<<((<<<<<<<<<<<<<<<<<<(<< 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR 

2841 OlAOirj^-'f IC - PHASE B 

1800 DIAOnV-TIC MAINTENANCE PROGRAM 

Jjj*0 1 4C20 0B5F 



G.thAZ C283 

0'a>**3 100 A 

O'-M* 1 4C10 0AA8 

(JM>A(> 420 4 

0^uA7 1 0AE6 

Oj*>A6 O 42E9 

0>SA9 1 6500 OAEO 

(J.rf*AS 1 60 00 1303 

(J>'vAt> C2D4 

0.>^A£ 42F5 

OV.AF 1800 

CJA-* l 0400 0B37 

0-^*2 C2AE 
CWH33 1 0400 0B48 

dj*»£S 42EF 
CW*£6 1 0B44 

ft>*7 4204 
0>#« 1 0B2E 

CW>*>"9 O 1010 
CV,*»4>A 1 0400 0B51 

0rf*C C2BC 
0>*O D2DD 

OX-cbE 42EC 

fr*^ O CA10 

&,«0 1098 

&*CJ 1 4C28 0AC9 

6>«C3 7036 

fr*C4 42F2 
0M:§ 1 74FF 085C 
&AC7 70F6 

6*£« 704C 

6X9 C2B3 
0*CA O D2DE 

&*C8 42F2 
0*CC 1 74FF 08 50 
OACe 70FC 

&ACF 1 C400 0B51 
OM>J 1 4C18 OABE 



0AO3 C280 

04SU4 0079 

0AU5 0079 

0AP6 0079 

OA07 42EF 
0*08 1 0B4A 

0A09 C075 

OAUA I 4C20 0B1E 

OAOC CO 73 

OAOD 1808 

OADE 1 4C20 0B1E 



THE 1800 SYSTEM 



PART NO. 
PAGE 



2279468 
7 





BN2 




T1201 


BR IF NOT THIS TEST 


81208180 


* 










81208190 


T1102 LD 


2 TSWO-TB 


GET OPTION SWS 


81208200 




SLA 




OTTLE 


PRINT TITLES 


81208210 




BNN 




Tl 103 


BR IF NOT SET 


81208220 




BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


81208230 




DC 




TTL11 


MESSAGE ADDRESS 


81208240 


* 










81208250 


T1103 BSI 


2 


GETDV-TB 


GET CHANNEL FOR RTN 


81208260 




LDX 


LI 


THEN 




81208270 




STX 


LI 


ERADR 




81208280 




LO 


2 


D VAD R- TB 


GET UNIT ADDRESS 


81208290 




BSI 


2 


TCVBE-TB 


CONVERT TO 1443 CODE 


81208300 




XCM 








81208310 




STO 


L 


T41 IN+9 


PUT INTO MESSAGE 


81208320 


* 


GET 


ACCESS OFF OF CYL 000 


81208330 




LD 


2 


H00C6-TB 


SET SEEK ARG TO CYL 198 


81208340 


* 


STO 


L 


T41SA+1 


* 


81208350 










81208360 




BSI 


2 


SIO-TB 


EXEC CHNL PRGM 


81208370 


* 


DC 




T41SK 


* 


81208380 










81208390 




BSI 


2 


TLGMS-TB 


GO PRINT INSTRUCTIONS 


81208400 


* 


DC 




T41 IN 


* 


81208410 










81208420 




SLA 




16 


RESET- 


81208430 


* 


STO 


L 


T41NR 


* NOT READY SW 


81208440 










81208450 


T4104 


LO 


2 


H7FFF-TB 


GET CONSTANT 


81208460 


* 


STO 


2 


LPCNT-TB 


* 


81208470 










81208480 


T4105 


BSI 


2 


GETSN-TB 


GET SENSE WORDS 


81208490 




LDD 


2 


SNWOS-TB 


* 


81208500 




SLT 




FDRDY 


TEST FOR READY 


81208510 




BN 




T4107 


YES .BRANCH 


81208520 




MDX 




T4108 


NO 


81208530 


♦ 


WAIT 


FOR 100 SECONDS 


81208540 


T4106 


BSI 


2 


STMLS-TB 


GO TO MONITOR 


81208550 




MDX 


L 


LPCNT.-l 


DECREMENT LOOP CNT 


81208560 




MDX 




T4105 


LOOP 


81208570 


* 










81208580 




MDX 




T4111 


TIMEOUT 


81208590 


* 










81208600 


T4107 


LD 


2 


H0400-TB 


GET LOOP COUNT 


81208610 




STO 


2 


LPCT1-TB 


PUT IN COUNTER 


81208620 


* 










81208630 


T41LP 


BSI 


2 


STMLS-TB 


GO TO MONITOR 


81208640 




MDX 


L 


LPCT1.-1 


DECREMENT COUNT 


81208650 




MDX 




T41LP 


LOOP FOR 600 MSEC 


81208660 


* 










81208670 




LD 


L 


T41NR 


TEST FOR LOSS OF READY 


81208680 




B2 




T4105 


* BR IF STILL READY 


81208690 


* 










81208700 


* 


-FILE 


LOST READY AND IS NOW READY AGAIN 


81208710 


# 










81208720 




LD 


2 


TERM-TB 


RESET READ HA 


81208730 




STO 




T41AR 


* ARGUMENT 


81208740 




STO 




T41AR+1 


* 


81208750 


* 


STO 




T41AR+2 


* 


81208760 
81208770 




BSI 


2 


SIO-TB 


EXEC CHNL PGRM 


81208780 


* 


DC 




T41RH 


* 


81208790 
81 208800 




LD 




T41AR+1 


GET HA 


81208810 




BNZ 




T4113 


CHECK FOR CYL 000 


81208820 




-LD 




T41AR+2 




81208830 




SRA 




8 


CLEAR UNWANTED BITS 


81208840 




BNZ 




T4113 


CHECK FOR HD 00 


81208850 
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* 










81208860 










* 










81208870 










* 


GO TO NEXT ROUTINE 


IN SEQUENCE 


81208880 










* 










81208890 


OAEO 





42E6 




THEN 


BSI 


2 


FREDV-TB 


FREE CHANNEL 


81208900 
81208910 
81208920 


0AE1 





C2C2 






LD 


2 


TRTNN-TB 


GET RTN SWS 


0AE2 


1 


4C18 


0B5F 




BZ 




T1201 


GO TO NEXT RTN IN SEQ 


0AE4 


1 


4CO0 


OFAF 




BSC 


L 


T20EN 


ELSE END DFT . 


81208930 


0AE6 




0007 




TTL11 


PRNT 




. SECT 1 .RT 1- . 


81208940 










* 










81208950 


OAED 




0012 






PRNT 




•DISK OFF/ON CPU RUNNING. 


81208960 


0AF9 





FFFF 






DC 




/FFFF 




81208970 


OAFA 





C056 




T4108 


LD 




T41NR GET LOST ROY SW 


81208980 \ 

81208990 

81209000 


OAFB 


1 


4C20 


0AC4 




BNZ 




T4106 BR 


IF ON 










* 










OAFD 





4201 






BSI 


2 


TIO-TB 




81209010 


OAFE 





C23D 






LD 


2 


SCSX8-TB 


GET CHANNEL STATUS 


81209020 


OAFF 


1 


4C28 


0B12 


* 


BN 




T4110 


BR IF NOT OPERATIONAL 


81209030 
81209040 
81209050 


0B01 





1006 






SLA 




SCABZ-SCUSP TEST FOR BUSY 


0B02 


1 


4C28 


0B12 


* 


BN 




T4110 


BR IF YES 


81209060 
81209070 


0B04 





C23E 






LD 


2 


SCSX8+1-TB 


GET UNIT STATUS 


81209080 


0B05 





8298 






A 


2 


K2-TB 


TEST FOR UNIT CK 


81209090 


OB06 


1 


4C18 


OBOB 


* 


BZ 




T4109 


BRANCH IF OFF 


81209100 
81209110 










* 


UNIT 


CK 


ON .DISK NOT READY-SET SWITCH 


81209120 










* 










81209130 


0B08 


1 


6C00 


0B51 




STX 


L 


T41NR 


SET NOT ROY SW 


8 1209140 < 


OBOA 





70B3 




* 


MDX 




T4105 


GO TO LOOP 


81209150 
81209160 


OBOB 





C23A 




T4109 


LD 


2 


SCSX4+1-T8 


TEST FOR DEVICE END 


81209170 


OBOC 





100D 






SLA 




UND VE 


* (DETENT) 


81209180 


OBOD 


1 


4C28 


OABE 


* 


BN 




T4105 


BRANCH IF ON 


81209190 
81209200 


OBOF 





42E3 






BSI 


2 


EROUT-TB 




81209210 


0B10 





0323 






DC 




/0323 




81209220 


0B11 





1104- 


— 


* 


DC 




/HOI 


c . . \r\\ r . : 


81209230 
81209240 


0B12 





42E3 




T4110 


BSI 


2 


EROUT-TB 




81209250 


0B13 





0321 






DC 




/0321 




81209260 


0B14 





1102 




* 


DC 




/1102 




81209270 
81209280 










* 


FILE 


IS 


NOT AVAILABLE AFTER 100 SECONDS 


81209290 










* 










81209300 


0B15 





C03B 




T4111 


LD 




T41NR 


TEST FOR UNIT CK 


81209310 


0B16 


1 


4C18 


0B1B 


* 


BZ 




T4112 


BRANCH IF NO 


81209320 
81209330 


0B18 





42E3 






BSI 


2 


EROUT-TB 




81209340 


0B19 





0323 






DC 




/0323 




81209350 


0B1A 





1103 




* 


DC 




/1103 




8 1209360 
81209370 


0B1B 






42E3 
0322 




T4112 


BSI 

DC 


2 


EROUT-TB 
/0322 


....,,., 


81209380 _ 


0B1C 


81209390 


0B1D 





1104 




* 


DC 




/I 104 




81209400 
81209410 


0B1E 





C02F 




T4113 


LD 




T41AS 


GET THE HOME ADDRESS 


81209420 


0B1F 





42F5 






BSI 


2 


TCVBE-TB 


* READ AND STOR IT 


81209430 i 


0B20 





0038 






STO 




T41EM+7 


* INTO THE ERROR MSG 


81209440 


0B21 





180 






XCH 






SWAP A & Q 


81209450 i 


0B22 





0037 






STO 




T41EM+8 


* 


81209460 \ 


0B23 





C02B 






LD 




T41AR+1 


* 


81209470 


0B24 





42F5 






BSI 


2 


TCVBE-TB 


* 


81209480 


0B25 





0035 






STO 




T41 EM+9 




81209490 


0B26 





18D0 






XCH 






SWAP A 6 


81209500 


0B27 





D034 






STO 




T41EM+10 


INTOiTHE ERROR MSG 


81209510 1 


0B28 





C027 






LD 




T41AR+2 


* 


81209520 ] 


0B29 





42F5 






BSI 


Z 


TCVBE-TB 


* 


81209 530 j 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 15SEP71 
431319A 431328 



PROG ID 


081 2-8 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


7 


EC NO. 


431319 


431319A 


431328 



PROG ID 
PAGE 



0812-B 
7A 
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<c 



c 

c 

c 
c 
c 

c 
c 

' — - 

c 
c 

r~- 

v.. 

c 
o 
o 

\J 

c 
o 
o 
o 
o 
o 
c 
o 
o 
c 
o 
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0B2A D032 

0B2B 42E3 
0B2C 0308 
0820 1 0852 



0B2E 0016 

0B3E 0004 

0B42 FFOO 

0B43 FFFF 

0B44 0006 

0B45 0007 

0B46 1 0B47 
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0B47 O 0000 
0B48 0000 
0B49 O 0000 



0B4A 0005 
0B4B O 001A 
0B4C 1 0B4E 



0B4E 0000 

0B4E FFFF 

0B4F FFFF 

0B50 FFFF 

0BS1 0000 

0B52 0012 

0B5E FFFF 



0B5F 

0B5F 1 7401 0815 

0B61 1 4C18 0B66 

0B63 O 9297 

0B64 1 4C20 0C12 





STO 


T41EM+11 * 


81 209540 


* 






81209550 




BSI 


2 EROUT-TB LOG ERROR MSG 


81209560 




DC 


/0308 


81209570 




DC 


T41EM 


81209580 


* 






81209590 


* 


DATA 


At* CONSTANTS 


81209600 


* 






81209610 


T41IN 


PR NT 


. POWER DOWN UNIT XX. THEN POWER. 


81209620 




PRNT 


. UP UNIT. 


81209630 




DC 


/FFOO 


81209640 




DC 


/FFFF 


81209650 


* 






81209660 


T41SK 


DC 


6 BYTE COUNT 


81209670 




DC 


0*256+SEEKC FLAGS AND OP CODE 


81209680 




DC 


T41SA ADDRESS 


81209690 


* 






81209700 


* 






81209710 


T41SA 


DC 


/OOOO SEEK ARGUMENT 


81209720 




DC 


/OOOO * 


81209730 




DC 


/OOOO * 


81209740 


* 






81209750 


* 






81209760 


T41RH 


DC 


5 BYTE COUNT 


81209770 




DC 


0*256+RDHA FLAGS AND OP CODE 


81209780 




DC 


T41AR ADDRESS 


81209790 


* 






81209800 


* 






81209810 




ess 


E 


81209820 


T41AR 


DC 


/FFFF 


81209830 




DC 


/FFFF 


81209840 




DC 


/FFFF 


81209850 


* 






81209860 


T41NR 


DC 


*-* NOT READY SW 


81209870 


T41EM 


PRNT 


. 41 OS HA READ XXXXXXXXXX. 


81209880 




DC 


/FFFF 


81209890 


* 
* 






81209900 
81209910 


* 






81209920 


************************************************** 


81209930 


* 






81209940 


* 


ROUTINE — 2 METER SW DISABLE/ENABLE 


81209950 


* 






81209960 


************************************************** 


81209970 


* 






81209980 


* 






81209990 


* 


THIS 


ROUTINE TESTS THE DEVICE METER SWITCH. 


81210000 


* 


WHEN 


THE METER SWITCH IS IN THE DISABLE 


81210010 


* 


POSITION THE 2311/2841 SHOULD INDICATE- 


81210020 


* 


• MANUAL INTERVENTION, READY. AND NOT ON-LINE" 


81210030 


* 


WHEN 


THE METER SWITCH IS RETURNED TO THE 


81210040 


* 


ENABLE POSITION THE 2311/284 1 SHOULD INDICATE 


-81210050 


* 


•READY AND ON-LINE" 


81210060 


* 






81210070 


* 


INSTRUCTIONAL PRINTOUTS ARE PROVIDED AT 


81210080 


* 


STOP/START CPU AND DISABLE/ENABLE FILE TIME 


81210090 


* 




• 


81210100 


*************************************************** 


81210110 


* 




* 


81210120 


*************************************************** 


81210130 


***** 


********************************************** 


81210140 


* 




* 


81210150 


***** 


********************************************** 


81210160 


T1201 


EQU 


* TEST ENTRY POINT 


81210170 




MD X 


L TRID.l BUMP RTN 10 


81210180 




-8Z 


T1202 BR IF TEST IWUMBER ZERO 


81210190 




S 


2 Kl-TB DECREMENT BY ONE 


81210200 




BNZ 


T1301 BR IF NOT THIS TEST 


81210210 
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0B66 O C283 

0B67 100A 

0B68 1 4C10 0B6C 

0B6A 4204 

0B6B 1 OBAD 



* 
T1202 



42E9 

1 6500 0BD2 
0B6F 1 6D00 1303 
0B71 C2D4 

42F5 

18D0 

0B74 1 D400 OBFF 

0B76 D069 



0B6C 
0B6D 



0B72 
0B73 



0B77 4204 
0B78 1 0BF3 
0B79 42FE 

0B7A C2BA 

0B7B D2D6 

0B7C 42EF 

0B7D 1 0892 

0B7E C235 
0B7F F2BA 
0B80 1 4C20 0BC3 

0B82 42EC 

0B83 C236 
0B84 100E 
0B85 1 4C10 0BC6 

0B87 C21D 
0B88 F2BA 
0B89 1 4C20 0BC6 

0B8B C21E 
088C F2AB 
0B8D 1 4C20 0BC6 



0B8F 1 6500 OBCF 

0B91 1 6DO0 1303 

0B93 O 4204 

0B94 1 0BD5 

0B95 42FE 

0B96 O 42EF 
0B97 1 0892 

0B98 C235 
0B99 F2BA 
0B9A 1 4C20 0BC9 

0B9C 42EC 

0B9D C236 

0B9E E2B0 

0B9F F2AC 

OBAO 1 4C20 OBCC 

0BA2 O CA1D 

0BA3 1 9C00 0C8C 

0BA5 1 4C20 OBCC 



LD 
SLA 
BNN 
BSI 
DC 
* 

T1203 BSI 
LDX 
STX 
LD 
BSI 
XCH 
STO 
STO 
* HAVE 
BSI 
DC 
BSI 
* 
T4204 LD 

STO 
BSI 
DC 
* 

LD 
EOR 
BNZ 
* 

BSI 



2 TSWO-TB GET OPTION SWS 
OTTLE PRINT TITLES 
T1203 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 
TTL12 MESSAGE ADDRESS 



GET CHANNEL FOR RTN 

SET UP RECAL ERROR 

* RETURN 

GET DEVICE UhOER TEST 

CONVERT TO 1443 CODE 

* 

PUT IN INSTRUCTIONS 



2 GETDV-T3 

LI T420B 

LI ERADR 

2 DVADR-TB 

2 TCVBE-TB 

L T42IN+12 

T42I2+11 * 

OPERATOR DISABLE FILE 
2 TLGMS-TB GO PRINT INSTRUCTIONS 

T42IN * TO DISABLE 2311 

2 T HLT-TB WAIT FOR OPERATOR ACTION 



2 H4000-TB 
2 SIOSW-TB 
2 SIO-TB 
RECAL 



SET RETURN ON ERROR SW 

* 

GO DO START I/O 



2 SCSX0-TB.;7,= GETrQHANNEL STATUS 



2 H4000-TB 
T4206 



TEST FOR UNIT STATUS PEND 
BR IF NOT SET 



* 

* 

* 

T42LP LDX 
STX 
BSI 
DC 
BSI 

* 

T4205 BSI 
DC 

* 

LD 

EOR 

BNZ 

* 

BSI 

LD 

AM3 

EOR 

BNZ 

* 

LDD 

SD 

BNZ 



2 GETSN-TB GO GET SENSE BYTES 

GET UNIT STATUS 
TEST FOR UNIT CHECK 
BR IF NOT SET 



GET SENSE WORD ONE 
TEST FOR* INT REQUIRED 
if.iBR IF^NOTrSET nx ' 

GET SENSE WORD TWO 

TEST FOR READY/NOT ON-LINE 

BR IF NOT 



HAVE OPERATOR ENABLE FILE 



LD 


2 


SCSX0+1-" 


SLA 




UNCHK 


BNN 




T4207 


LD 


2 


SNWD O-TB 


EOR 


2 


H4000-TB 


BNZ 




T4207 


LD 


2 


SNWD1-TB 


EOR 


2 


H0080-TB 


BNZ 




T4207 



LI T420A 
LI ERADR 

2 TLGMS-TB 
T42I2 

2 THLT-TB 

2 SIO-TB 
RECAL 

2 SCSXO-TB 
2 H4000-TB 
T4208 



SET UP TIO ERROR RETURN 

* 

GO PRINT INSTRUCTIONS 

* TO ENABLE FILE 

WAIT FOR OPERATOR ACTION 

GO DO START I/O 



GET CHANNEL STATUS 

TEST FOR UNIT STATUS PND 

BR IF ANY OTHER BITS SET 



2 GETSN-TB GO GET SENSE BYTES 
2 SCSXO+l-TB GET UNIT STATUS 
2 HOOFF-TB DELETE ADDRS 
2 HOOOC-TB TEST FOR CHNL/DVC END 
T4209 BR IF ANY OTHER BITS SET 



2 SNWD O-TB 
L T43SB 
T4209 



GET SENSE BYTES 
TEST FOR 'SHOULD BE' 
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81210220 

81210230 

81210240 

81210250 

81210260 

81210270 

81210280 

81210290 

81210300 

8121031O 

81210320 

81210330 

81210340 

81210350 

81210360 

81210370 

81210380 

81210390 

81210400 

81210410 

81210420 

81210430 

81210440 

81210450 

81210460 

81210470 - 

81210480 

81210490 

81210500 

81210510 

81210520 

81210530 

81210540 

81210550 

81210560 

81210570 

81210580 

81210590 

81210600 

81210610 

81210620 

81210630 

81210640 

81210650 

81210660 

81210670 

81210680 

81210690 

81210700 

81210710 

81210720 

81210730 

81210740 

81210750 

81210760 

81210770 

81210780 

81210790 

81210800 

81210810 

81210820 

81210830 

81210840 

81210850 

81210860 

81210870 

81210680 

81210890 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 







DATE 


14N0V69 


30JAN70 


15SEP71 


PROG ID 


081 2-8 


EC NO. 


431319 


431319A 


431328 


PAGE 


e j 











PROG ID 

PAGE 



:.- : : L-.-'.f .:■■:.: 
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8A 
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PART NO. 2279458 
PAGE 9A 



C 

c 
o 

O 

O 



0BA7 42E6 

0BA8 C2C2 

0BA9 1 4C18 0C12 

0BA8 1 4C00 OFAF 

OBAD 0007 



0BB4 
0BC2 



0014 
FFFF 



0BC3 42E3 
0BC4 O 0306 
0BC5 1201 



0BC6 42E3 
0BC7 0307 
0BC8 O 1202 



0BC9 42E3 
OBCA 0302 
OBCB O 1203 



OBCC O 42E3 
OBCD O 0323 
OBCE 1204 

OBCF 4207 
OBDO 1 0B96 
0BD1 O 7005 

0BD2 4207 
0BD3 1 0B7A 
0BD4 70BA 



0BD5 




0015 


0BE4 




0014 


0BF2 





FFFF 


0BF3 




0016 


0C03 




0014 


0C11 





FFFF 



* 
* 

T12EN BSI 
LD 
BZ 
BSC 



GO TO NEXT ROUTINE IN SEQUENCE 



2 FREOV-TB 
2 TRTNN-TB 
T1301 
L T20EN 



FREE CHANNEL 
GET RTN SWS 

GO TO NEXT RTN IN SEQ 
ELSE END DFT 



. SECT 1 ,RT 2- . 

.METER SWITCH DISABLE/ENABLE. 
/FFFF 



TTL12 PRNT 
* 

PRNT 

DC 

* ERROR CALLS 

* 

* GET HERE IF NO UNIT STATUS PEND ON RECAL 
T4206 BSI 2 EROUT-TB 

DC /0306 

DC /1201 

* GET HERE IF NO UNIT CHECK OR WRONG SENSE DATA 

* ON RECAL 
T4207 BSI 2 EROUT-TB 

DC /0307 

DC /1202 

* GET HERE IF CHANNEL STATUS NOT USP ON SIO 

* 

T4208 BSI 2 EROUT-TB 

DC /0302 

DC /1203 

* GET HERE IF NO CHNL/D VC END OR 

* WRONG SENSE BYTES ON POWER UP 
T4209 BSI 2 EROUT-TB ELSE PRINT ERROR 



DC 
DC 



• 0323 
/1204 



2 TLPER-TB 
T4205 
T12EN 

2 TLPER-TB 
T4204 
T42LP 



GO TEST LOOP ON ERROR 

LOOP ADDRS 

ELSE END ROUTINE 



LOOP ADDRS 

ELSE ENABLE FILE 



T420A BSI 

DC 

MDX 
* 
T420B BSI 

DC 

MDX 
* 

* INSTRUCTIONAL MESSAGES 
* 

T42I2 PRNT . STOP CPU, ENABLE FILE XX THEN . 

PRNT .START CPU AN3 EXIT WAIT LOOP. 

DC /FFFF 

T42IN PRNT . STOP CPU, DISABLE FILE XX THEN . 

PRNT .START CPU AND EXIT WAIT LOOP. 

DC /FFFF 

* 

* *• 

* ROUTINE — 3 — POWER OFF/ON STATUS 

* (CPU STOPPED) 

* 

# 

* THIS ROUTINE WILL CHECK FOR INTERVENTION 

* REQUIRED AND NOT READY STATUS WHEN THE 

* 2311 IS POWERED DOWN, IT WILL THEN CHECK 

* TO SEE THAT THE 2311 IS OPERATIONAL AFTER 

* ^POWERING IT BACK UP. 

* INSTRUCTIONS WILL BE PRINTED AT POWER 

* DOWN/POWER UP TIME. 



81 210900 

81210910 

81210920 

81210930 

81210940 

81210950 

81210960 

81210970 

81210980 

81210990 

81211000 

81211010 

81211020 

81211030 

81211040 

81211050 

81211060 

81211070 

81211080 

81211090 

81211100 

81211110 

81211120 

81211130 

81211140 

81211150 

81211160 

81211170 

81211180 

8 1211190 

81211200 

81211210 

81211220 

81211230 

81211240 

81211250 

81211260 

81211270 

81211280 

81211290 

81211300 

81211310 

81211320 

81211330 

81211340 

81211350 

81211360 

81211370 

81211380 

81211390 

81211400 

81211410 

81211420 

81211430 

81211440 

81211450 

81211460 

81211470 

81211480 

8121 1490 

81211500 

81211510 

81211520 

81211530 

8121154Q 

81211550 

81211560 

81211570 



0C12 

0C12 1 7401 0815 

0C14 1 4C18 0C19 

0C16 9297 

0C17 1 4C20 0CD7 

0C19 C283 

0C1A 100A 

0C1B 1 4C10 0C1F 

0C1D 4204 

0C1E 1 0C5E 

0C1F 42E9 

0C20 1 6500 0C85 

0C22 1 6D00 1303 

0C24 C2D4 

0C25 42F5 

OC26 18D0 

0C27 D074 

0C28 1 D400 0C8A 

0C2A O 4204 

0C2B 1 0C8E 

0C2C 42FE 

0C2D C2BA 

0C2E D2D6 

0C2F 42EF 

OC30 1 0892 

0C31 C235 

0C32 O F2BA 

0C33 1 4C20 0C76 

0C35 C236 

0C36 100E 

0C37 1 4C10 0C79 

0C39 O 42EC 

0C3A C21D 

0C38 F2BA 

0C3C 1 4C20 0C79 

0C3E C21E 

0C3F 1 4C20 0C79 



0C41 4204 

0C42 1 OCAD 

0C43 42FE 

0C44 1 6500 0C88 

0C46 1 60 00 1303 



* * 

♦A************************************************* 

* * 

T1301 EQU * TEST ENTRY POINT 

MDX L TRID.l BUMP RTN ID 

BZ T1302 BR IF TEST NUMBER ZERO 

S 2 Kl-TB DECREMENT BY ONE 

BNZ T1401 BR IF NOT THIS TEST 

LD 2 TSWO-TB GET OPTION SWS 

SLA OTTLE PRINT TITLES 

BNN T1303 BR IF NOT SET 

BSI 2 TLGMS-TB GO TO PRINT ROUTINE 

DC . TTL13 MESSAGE ADDRESS 



T1302 



* 
T1303 



T4304 



BSI 

LDX 

STX 

LD 

BSI 

XCH 

StO 

STO 

HAVE 

BSI 

DC 

BSI 

GO D 

LD 

STO 

BSI 
DC 

LD 

EOR 

BNZ 

LD 

SLA 

BNN 

BSI 



2 GETDV-TB 

LI T430B 

LI ERADR 
2 DVADR-TB 
2 TCVBE-TB 



GET CHANNEL FOR RTN 



GET DEVICE UNDER TEST 
CONVERT TO 1443 CODE 



T43IN+14" "'PUT IN 'INSTRUCTIONS -"•-'* 

L T43I2+13 * 

OPERATOR POWER DOWN FILE 
2 TLGMS-TB GO PRINT INSTRUCTIONS 

T43IN * TO TURN OFF 2311 

2 THLT-TB WAIT FOR OPERATOR ACTION 

O RECALIBRATE TO VERIFY POWER OFF STATUS 



2 H4000-TB 
2 SIOSW-TB 

2 SIO-TB 
RECAL 

2 SCSXO-TB 

2 H4000-TB 

T4306 



SET UP SIO SW FOR RETURN 
* IF COMMAND NOT ACCEPTED 

GO DO START I/O 



GET CHANNEL STATUS 

TEST FOR UNIT STATUS PEND 

BR IF NOT SET 



2 SCSXO+l-TB GET UNIT STATUS 

UNCHK TEST FOR UNIT CHECK 
T4307 BR IF NOT SET 



2 GETSN-TB 



LD 2 SNWDO-TB 

EOR 2 H4000-TB 

BNZ T4307 



GO GET SENSE BYTES 

GET FIRST SENSE WORD 
TEST FOR INT REQUIRED 
BR IF NOT SET 



* 
* 
T43LP 







* 






0C48 


42EF 


T430S BSI 


2 


SIO-TB 


0C4 9 1 


0892 


DC 
* r 




RECAL 


0C4A 


C235 


LD 


2 


SCSXO-TS 


0C4B 


F2BA 


EOR 


2 


H4000-TB 



LD 2 SNVOl-TB GET SECOND SENSE WORD 

BNZ T4307 'TEST NOT READY/NOT ON-trl NE 

GET HERE IF FILE IS NOT RD Y NOR ON-LINE 

HAVE OPERATOR POWER UP FILE 

BSI 2 TLGMS-TB GO PRINT INSTRUCTIONS TO 

DC T43I2 * POWER UP 2311 

BSI 2 THLT-TB WAIT FOR OPERATOR ACTION 

GO DO RECAL TO VERIFY POWER ON STATUS 

LDX LI T430C SET UP STRT I/O 

STX LI ERADR * ERROR RETURN 

GO DO STRT I/O 



GET CHANNEL STATUS 

TEST FOR UNIT STATUS PEND 



8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8121 
8521 
8121 
8121 
8121 



1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 

irio 

1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
20 70 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 



V ,** 


DATE 


14N0V69 


30JAN70 


15SEP71 




EC NO. 


431319 


431319A 


431328 


Cj 











PROG ID 
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0812-B 
9 
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14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
43132 8 
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0812-8 
9A 



c 

c 
o 
c 

o 
o 
c 
o 

c 
c 
c 
c 
c 
c 

/"-> 

c 
o 

D 
J 

o 

J 
) . . 
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0C4C 1 4C20 0C7C 

0C4E 42EC 

0C4F C236 

0C50 E2B0 

0C51 F2AC 

0C52 1 4C20 0C7F 

0CS4 CA1D 

0C55 O 9836 

0C56 1 4C20 0C82 



0C58 42E6 

0C59 C2C2 

0C5A 1 4C18 0CD7 

0C5C 1 4C00 OFAF 
0C5E 0007 

0C65 00 16 

0C75 FFFF 



0C76 42E3 
0C77 0306 
0C78 1301 

0C79 42E3 
0C7A 0307 
0C7B 1302 

0C7C 42E3 
0C7D 0302 
0C7E 1303 

0C7F 42E3 
0C80 0303 
0C81 1304 

0C82 42E3 
0C83 0303 
0C84 1305 



0C85 4207 
0C86 1 0C2D 
0C87 70B9 

0C88 4207 
0C89 1 0C48 
0C8A 70CD 

0C8C 0000 

0C8C 0000 
0C8D O0C8 

0C8E 0016 

0C9E FFOO 
0C9F 0013 

OCAC FFFF 

OCAD 0015 

OCBC FFOO 



BNZ 



T4308 



BR IF not SET 



GET HERE IF USP IS SET, LOOK FOR DVC/CHNL END 



BSI 

LD 

AND 

EOR 

BNZ 

LDD 

SD 

BNZ 



2 GETSN-TB GO GET SENSE BYTES 

2 SCSXO+1-TB GET UNIT STATUS 
DROP UNIT ADDRS 
TEST FOR DVC/CHNL END 
BR IF STATUS NOT = OOOC 



2 HOOFF-TB 

2 HOOOC-TB 

T4309 



* 
* 
* 

T13EN 



2 SNWDO-TB 
T43SB 
T430A 



GET BOTH SENSE WORDS 
TEST FOR RDY AND ON-LINE 
BR IF WRONG SENSE 



GO TO NEXT ROUTINE IN SEOUENCE 



TTL13 



BSI 2 FREDV-TB 

LD 2 TRTNN-TB 

BZ T1401 

BSC L T20EN 



PRNT 



. SECT 1 ,RT 3- 



FREE CHANNEL 
GET RTN SwS 

GO TO NEXT RTN IN SEO 
ELSE END OFT 



* 

* 
T4306 



* 
T4307 



* 
T4308 



* 
T4309 



* 
T430A 



PRNT .POWER OFF/ON STATUS CPU STOPPED. 

DC /FFFF 

ERROR CALLS 

GET HERE IF NO UNIT STATUS PEM> ON PWR DOWN 

BSI 2 EROUT-TB 

DC /0306 

DC /1301 

GET HERE IF NO UNIT CHECK ON POKER DOWN 

BSI 2 EROUT-TB 

DC /0307 

DC /1302 

GET HERE IF NO UNIT STATUS P£tO ON PWR UP 

BSI 2 EROUT-TB 

DC /0302 

DC /1303 

GET HERE IF UNIT CK IS ON OR NO DVC/CHNL END 

BSI 2 EROUT-TB 

DC /0303 

DC /1304 

GET HERE IF SENSE BYTES WRONG ON POWER UP 

BSI 2 EROUT-TB 



DC 
DC 



/0303 
/1305 



* 
* 
* 

T430B 



* 
T430C 



ERROR RETURN 

POWER DOWN- 
BSI 2 TLPER-TB 

DC T4304 

MDX T43LP 

POWER UP- 
BSI 2 TLPER-TB 

T4305 



* 

T43SB 

* 
T43IN 



T43I2 



DC 

MDX 

BSS 
DC 

DC 

PRNT 
DC 

PRNT 
DC 

PRNT 
DC 



T13EN 
O 

/oooo 

/00C8 



GO TEST LOOP ON ERROR 

LOOP ADDRS 

ELSE POWER OP UNIT 

GO TEST LOOP ON ERROR 

LOOP ADDRS 

ELSE END ROUTINE 



SENSE EYTES 'SHOULD BE « 
* AFTER POWER UP 



. STOP CPU. POWER DC«3ii UNIT XX . 
/FFOO 

• START CPU. EXIT WAIT LOOP. 
/FFFF 

. STOP CPU. POWER UP UHIIT XX . 
/FFOO 
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81212260 

81212270 

81212280 

81212290 

81212300 

81212310 

81212320 

81212330 

81212340 

81212350 

81212360 

81212370 

81212380 

81212390 

81212400 

81212410 

81212420 

81212430 

81212440 

81212450 

81212460 

81212470 

81212480 

81212490 

81212500 

81212510 

81212520 

81212530 

81212540 

81212550 

81212560 

85212570 

81212580 

81212590 

81212600 

81212^10 

81212620 

81212630 

81212640 

81212650 

81212660 

81212670 

81212680 

81212690 

81212700 

81212710 

81212720 

81212730 

81212740 

81212750 

81212760 

81212770 

81212780 

81212790 

81212800 

81212810 

81212820 

81212830 

81212840 

81212850 

81212860 

81212870 

81212880 

81212890 

81212900 

81212910 

81212920 

81212930 



2279468 
1 
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OCBD 0011 

0CC8 FFOO 

0CC9 0013 

0CD6 FFFF 



PRNT .WHEN DRIVE COMES RDY-. 

DC /FFOO 

PRNT .START CPU. EXIT WAIT LOOP. 

DC /FFFF 

* 

* ' 

* ROUTINE 4 -METER INTERLOCK * 

* 

* THIS ROUTINE WILL CHECK THE INTERLOCK 
STATUS OF DEVICE METER SWITCH WHILE 
CPU IS IN RUN STATE. 

IF THE CPU METER IS RUNNING, TURNING 
THE FILE METER SW TO DISABLE SHOULD 
HAVE NO EFFECT ON THE FILE METER. 



SINCE THE OBJECTIVE IS TO CHANGE THE 
FILE METER SW WHILE THE CPU IS 
RUNNING, PERFORM THE FOLLOWING 

1. DISABLE METER SWITCH i 

2. EXIT HALT ROUTINE 

3. ENABLE METER SWITCH 

4. EXIT HALT ROUTINE 



0CD7 

0CD7 1 7401 0815 

--0CD-9 1 4C-1-6 0CO€ 

OCDB 9297 

OCDC 1 4C20 0D37 

OCDE C283 

OCDF 100A 

OCEO 1 4C10 0CE4 

0CE2 4204 

0CE3 1 00 00 

0CE4 42E9 

0CE5 4204 

0CE6 1 0D10 

0CE7 42FE 

0CE8 4201 
-OCE9 C23E 
OCEA 100E 
OCEB 1 4C10 0CF2 

OCED 42E3 
OCEE 210B 
OCEF 1 0D28 

OCFO 4207 
0CF1 1 0CE8 

0CF2 420 4 

0CF3 1 0D1C- 

0CF4 42FE 

0CF5 4201 



IF METER INTERLOCK FAILS A MESSAGE 
INDICATING FAILURE WILL BE PRINTED 

* 

T1401 EQU * JEST ENTRY POINT 

L TRID.l BUMP RTN ID 

T1402 nr "'"6R- W' ¥e ST NUMBER ZERO 3 " 
2 Kl-TB DECREMENT BY ONE 

T1501 BR IF NOT THIS TEST 



MDX 

BZ ' 

S 

BNZ 



) 



DATE 
EC NO. 



14N0V69 30JAN70 15SEP71 
431319 43I319A 431328 
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1 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



T1402 LD 
SLA 
BNN 
BSI 
DC 

* 

T1403 BSI 

T4404 BSI 
DC 
BSI 

* 

T4405 BSI 
LD 
SLA 
BNN 

BSI 
DC 

DC 

* 

BSI 
DC 

* 

T4406 BSI 
DC 
BSI 
B3I 



15SEP71 
431328 



2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T1403 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 

TTL14 MESSAGE ADDRESS 

2 GETDV-TB GET CHANNEL FOR RTN 

2 TLGMS-TB * PRINT DISABLE METER 

T44M1 * MESSAGE 

2 THLT-TB WAIT FOR OPERATOR ACTION 

2 TIO-TB GO DO TEST 1/0 
2 SCSX8+1-T* X5ET UNTT STATUS 



UNCHK 
T4406 

2 EROUT-TB 

/2108 
T44M3 

2 TLPER-TB 
T4405 

2 TLGMS-TB 

T44M2 
2 THLT-TB 
2 TIO-TB 



TEST FOR UNIT CHECK 
BR IF- NOT SET 



GO TEST LOOP ERROR 
LOOP ADDRS 

* PRINT ENABLE METER 
■'* MESS-AGE 
WAIT FOR OPERATOR ACTION 



81212940 

81212950 

81212960 

81212970 

81212980 

81212990 

81213000 

81213010 

81213020 

81213030 

81213040 

81213050 

81213060 

81213070 

81213080 

81213090 

81213100 

81213110 

81213120 

81213130 

81213140 

81213150 

81213160 

81213170 

81213180 

81213190 

81213200 

81213210 

81213220 

81213230 

81213240 

81213250 

81213260 

81213270 

81213280 

81213290 

81213300 

81213310 

81213320 

81213330 

81213340 

81213350 

81213360 

81213370 

81213380 

81213390 

81213400 

81213410 

81213420 

81213430 

81213440 

81213450 

81213460 

81213470 

81213480 

81213490 

81213500 

81213510 

81213520 

81213530 

81213540 

81213550 

81213560 

81213570 

81213580 

81213590 

81213600 

81213610 



PROG ID 
PAGE 



0812-B 
1 OA 



r <<(<<<<<(<<<<<<('< c <<(<(<<(<((<( i t 
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PAGE 






0CF6 C23E 

0CF7 O 100E 

0CF8 1 4C10 OCFD 

OCFA 42E3 

OCFB 2123 

OCFC 1402 



OCFD 42E-6 
OCFE 1 4C00 OFAF 
ODOO 0007 

0D07 0008 
ODOF FFFF 

0D10 0011 
0D1B FFFF 

0D1C 0011 
0D27 FFFF 

0D28 0014 
0D36 FFFF 



0D37 

0D37 1 7401 0815 

0D39 1 4C18 0D3E 

0D3B 9297 

0D3C 1 4C20 0DE1 



* 


LD 

SLA 

BNN 


2 


SCSX8+1-TB * TEST FOR 
UNCHK * UNIT CHECK 
T14EN * BR IF NOT SET 


* 


BSI 

DC 

DC 


2 


EROUT-TB 

/2123 

/1402 


* 
* 


GO TO 


NEXT ROUTINE IN SEQUENCE 


T14EN 
TTL14 


BSI 

BSC L 
PRNT 


2 


FREDV-TB FREE CHANNEL 
T20EN END DFT 
. SECT l.RT 4- . 


* 


PRNT 
DC 




.METER INTERLOCK. 
/FFFF 


T44M1 

age 


PRNT 
DC 




. DISABLE METER SWITCH. 
/FFFF 


T44M2 


PRNT 
DC 




. ENABLE METER SWITCH . 
/FFFF 


T44M3 


PRNT 




. 1401 METER INTERLOCK FAII 



DC /FFFF 

********************** *************3S33333 3333^33 
* 

♦ ♦s^*********************************,^^.^.^.^^ 

* 



ROUTINE 



-5 — 



TRACKING ADJUSTMENT 



* 

* 
* 
* 

* 
* 
* 
* 
* 

* 
* 

* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
************************** S***************^ 33^ „ 

************************************** 33.^ ,3 333 3 33 

T1501 EQU * TEST ENTRY POINT 

MDX L TRID.l BUMP RTN ID 

BZ T1502 BR IF TEST NUMBER ZERO 

S 2 Kl-TB DECREMENT BY ONE 

BNZ T1601 BR if N0T TH 1S TEST 



THIS ROUTINE IS DESIGNED TO ASSIST THE FIELD 
ENGINEER IN MAKING THE TRACKING ADJUSTMENT AS 
OUTLINED IN THE FIELD ENGINEERING MAINTENANCE 
MANUAL. THE ROUTINE USES THE FOLLOWING HEAD 
SELECTION SEQUENCE 1,2,5.6,9,0,3.4,7,8. THIS 
SEQUENCE WILL FACILITATE ADJUSTMENT BY SEPE- 
RATING THE HEADS ACCORDING TO THEIR TERMINAL 
BLOCK LOCATION. THE PROGRAM WILL SELECT THE 
NEXT HEAD IN THE SEQUENCE EACH TIME CE LEVEL 
INTERRUPT IS GENERATED, AT WHICH TIME A SEEK 
TO CYLINDER 73 IS EXECUTED FOR THE SELECTED 
HEAD AND THE PROGRAM GOES INTO A READ LOOP 
FOR SCOPING AND ADJUSTMENT PURPOSES. AFTER 
EACH OF THE TEN READ-WRITE HEADS HAS BEEN 
SELECTED, THE NEXT CE INTERRUPT WILL RESULT 
IN TEN SEEKS TO CYLINDERS AND 201 AND THEN 
A SEEK BACK TO CYLINDER 73 SO THAT THE SELEC- 
TION SEQUENCE CAN BE REPEATED TO ALLOW ALIGN- 
MENT TO BE RECHECKEO . 

TO RUN ROUTINE- 



1. 
2. 

3. 



EXECUTE RTN 15 

CAUSE CE. INT TO SWITCH HEADS 

AFTER PASS TWO PROGRAM WILL TERMINATE 



8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 



3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

40 70 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 
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0D3E C283 

0D3F 100A 

0D40 1 4C10 0D44 

0D42 O 4204 

0D43 1 00 80 



0D44 
0D4 5 1 
0D47 
0D48 
0D49 
0D4A 
0D4B 
0D4C 
0D4D 
0D4E 
0D4F 
0D50 
0D51 
0D52 
0D53 
0D53 
. 0D55 
0D55 
0D56 
0D57 
0D58 
0D59 
0D5A 1 
0D5B 
0D5C 
0D5D 
0D5D 
0D5F 
0D60 
0D61 



42E9 

6500 0DA9 

1010 

D100 

D101 

6301 

C300 

D102 

C301 

D103 

C104 

D300 

C105 

D301 

6700 ODAF 

C300 

42FS i ... 

18D0 

Dl 16 

4204 

0DB9 

C300 

D129 

6C00 1078 

42EF 

0DC1 

6C00 1078 



0D63 42EF 
0D64 1 0DC4 



0D65 
0D66 



C100 
4C18 0D63 



0D68 1010 
0D69 O D100 





1 
o 




o 

O C101 



0D6A 
0D6B 
0D6C 
0D6E 
0D6F 
0D70 
0D71 
0D71 



C300 

910F 

4C18 0D71 

7301 

7000 

70E4 



0D72 1 4C1S -0DS8 



0D74 C102 
0D75 D400 0001 
0D77 C103 
0D78 D400 0002 



0D7A 42E6 



* 

T1502 LD 
SLA 
BNN 
BSI 
DC 

* 

T1503 BSI 
LDX 
SLA 
STO 
STO 
LDX 
LD 
STO 
LD 
STO 
LD 
STO 
LD 
STO 

T4504 EQU 
LDX 

T4505 EQU 
LD 
BSI 
XCH 
STO 
BSI 
DC 
LD 
STO 

T4506 EQU 
STX 
BSI 
DC 
STX 

T4507 BSI 
DC 

LD 
BZ 
SLA 
STO 
LD 
S 

BZ 
MDX 
B 
B 
T4508 EQU 
LD 
BZ 

********** 

* 

********** 

LD 
STO 

LD 
STO 

********** 

* 

********** 

* 

* GO T 

* 

T15EN BSI 



2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T1503 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 

TTL15 MESSAGE ADDRESS 

2 GETDV-TB GET CHANNEL FOR RTN 

LI T45TB SET XR1 TO COMMON DISPLMNT 

16 CLEAR ACC 

1 T45CH-T45TB CLEAR HEAD CHANGE SWITCH 
1 T45PC-T45TB CLEAR PASS SWITCH 

3 1 POINT XR3 TO LOC 1 

3 GET CE LEVEL INTERRUPT 

1 T45SV-T45TB * TRANSFER VECTOR 

3 1 * AND SAVE 

1 T45SV+1-T45TB * 

1 T45BR-T45TB SET CE LEVEL INTERRUPT 

3 * TRANSFER VECTOR 

1 T45BR+1-T45TB * TO OWN RTN. 
3 1 * 

* 
L3 T45HO POINT XR3 TO HEAD NO. TABLE 

* 
3 GET CURRENT HEAD NO. W/XR3 

2 TCVBE-TB ! > 'CONVERT TO 1443 CODE «" •' 

1 T45M2-T45TB STORE FOR PRINT 

2 TLGMS-TB PRINT HEAD NO. MESSAGE 
T45M1 MSG. BASE 

3 GET CURRENT HEAD NO. 

1 T45A1+2-T45TB STORE FOR CYL73 SEEK 
* 

LO WTADR SET UP TIMEOUT ADDR. 

2 SIO-TB EXECUTE SEEK TO CYL.73 
T45SK CCW ADDR 

LO WTADR SETUP TIMEOUT ADDR. 



2 SIO-TB 
T45RC 



EXECUTE READ COUNT/TIC 
CCW ADDR. 



1 T45CH-T45TB GET CHANGE K> SW 

T4507 BR IF NOT SET 

16 CLEAR IF SET 

1 T4 5CH-T4 5TB * 

3 WAS LAST HEAD NO = 10 

1 T45H3 + 9-T45TB 

T4508 BRANCH-YES 

3 +1 NO- INCR HEAD NO. ADDR. 

* 64K SAFETY 

T4505 GO SELECT CURR. HEAD 

* 
1 T45PC-T45TB GET PASS SWITCH 

T4509 '• BR H* NOT'SeT - PASS 1 .-..- 
************ ************************** *** 

* 
**************************************** 

1 T45SV-T45TB RESTORE 
L /0001 *CE INTERRUPT 

1 T45SV+1-T45TB *TRANSFER VECTOR 
L /0002 * 

***************************************** 

* 
**************************************** 

O NEXT ROUTINE IN SEQUENCE 

2 FREDV-TB FREE CHANNEL 



81214300 

81214310 

81214320 

81214330 

81214340 

81214350 

81214360 

81214370 

81214380 

81214390 

81214400 

81214410 

81214420 

81214430 

81214440 

81214450 

81214460 

81214470 

81214480 

81214490 

81214500 

81214510 

81214520 

81214530 

81214540 

81^2^4550- 

81214560 

81214570 

81214580 

81214590 

81214600 

81214610 

81214620 

81214630 

81214640 

81214650 

81214660 

81214670 

81214680 

81214690 

81214700 

81214710 

81214720 

81214730 

81214740 

81214750 

81214760 

81214770 

81214780 

81214790 

81214800 

81214810 

81214820 

81214830 

81214840 

81214850 

81214860 

81214870 

81214880 

81214890 

81214900 

81214910 

81214920 

61214930 

81214940 

81214950 

81214960 

81214970 



■'•■™t - 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 

433328 



PROG ID 


0812-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


11 


EC NO. 


431319 


431319A 


431328 



PROG ID 
PAGE 



oa 1 2-B 
11 A 
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DATE 
EC NO. 



0D7B 





C2C2 






LO 


2 


TRTNN-TB 


0D7C 


1 


AC 18 


0DE1 




BZ 




T1601 


0D7E 


1 


4C00 


OFAF 




BSC 


L 


T20EN 


OD80 




0007 




TTL15 


PRNT 




. SECT 1 


0D87 




0016 




PRNT 




.TRACKIN 


0D97 





FFFF 






DC 




/FFFF 


0D98 









T4509 


EQU 




* 


0D98 


1 


6C00 


ODAA 




STX 


LO 


T45PC 


0D9A 





630A 






LDX 


3 


10 


0D9B 









T450A 


EQU 




* 


0D9B 


1 


6C00 


1078 




STX 


LO 


WTADR 


0D9D 





42EF 






BSI 


2 


SIO-TB 


0D9E 


1 


ODCA 






DC 




T45S0 


0D9F 


1 


6C00 


1078 




STX 


LO 


WTADR 


0DA1 





42EF 






BSI 


2 


SIO-TB 


0DA2 


1 


00 CD 






DC 




T45S2 


0DA3 





73FF 






MDX 


3 


-1 


0DA4 





70F6 






B 




T450A 


0DA5 





70AD 






B 




T4504 



GET RTN SWS 

GO TO NEXT RTN IN SEQ 
ELSE END DFT 
.RT S- . 



.TRACKING ADJUSTMENT USING CYL 73. 



SET SW TO SIGNAL 2ND PASS 
PREPARE LOOP COUNT 

SETUP TIMEOUT ADDR 

EXECUTE SEEK TO CYL 

CCW ADR 

SETUP TIMEOUT ADDR 

EXECUTE SEEK TO CYL 201 

CCW ADDR 

LOOP 

YES-BRANCH 

NO- REPEAT SELECTION SEO. 



0DA6 
0DA6 6802 
0DA7 4CC0 OOOA 



* ROUTINE TO RECEIVE CE LEVEL INTERRUPTS 
* 

* 
T45CH 



T45IR EQU 
STX 



BOSC I /OOOA 



SET CHANGE HEAD SWITCH 
RELEASE I /R •'LEVEL 6 RETURN 



* DATA, CONSTANTS. MSGS. ETC. 



0DA9 




T45TB EQU 


* 


0DA9 


0000 


T45CH DC 


*-* 


ODAA 


0000 


T45PC DC 


*-* 



ODAB 0000 
ODAC 0000 



ODAD 
ODAF 
ODBO 
0DB1 
0DB2 
0DB3 
0DB4 
0DB5 
0DB6 
0DB7 
0DB8 
0DB9 
ODBF 
ODCO 



4C00 0DA6 

0001 

0002 

0005 

0006 

0009 

0000 

0003 

0004 

0007 

0008 

0006 

0001 

FFFF 



RTN TABLE DISPLACEMENT 
CHANGE HEAD NO. SWITCH 



* PASS SWITCH IS ZERO IF PASS 1. NOT ZERO IF PASS 2 

*************************************************** 

* * 
*************************************************** 
T45SV DC *-* SYSTEM CE I /R TV 

DC *-* * SAVE AREA 

*************************************************** 

* * 
*************************************************** 

CE INTRPT TRANSFER VECTOR 

HEAD NO'S - SIOE A 

* 

* 

* 

* 

HEAD NO'S - SIDE B 

* 

* 

* 

* 



0DC1 0006 
0DC2 O 2007 
0DC3 1 ODDO 



0DC4 0008 
0DC5 6812 
0DC6 1 O0D3 



0DC7 0008 
0DC8 0008 



T45BR B 

T45HD DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

T45M1 PRNT 

T45M2, : PRNT 
DC 

* 

T45SK DC 
DC 
DC 

* 

* 

T45RC DC 
DC 



T45IR 

1 
2 
5 
6 
9 

3 
4 
7 
8 



* 

* 



DC 



DC 
DC 



. USING HEAD. 

/FFFF 

6 . BYTE COUNT 

/20*256+SEEKC FLAGS AND 
T45A1 ADDRESS 



8 BYTE COUNT 

/68*256+RDCNT FLAGS AND 
T45A2 ADDRESS 



8 BYTE COUNT 

/00*256+OPTIC FLAGS AND 



OP CODE 



OP CODE 



OP CODE 



PART NO. 2279466 
PAGE 12 



81 214980 
81214990 
81215000 
81215010 
81215020 
81215030 
81215040 
81215050 
81215060 
81215070 
81215080 
81215090 
81215100 
81215110 
81215120 
81215130 
81215140 
81215150 
81215160 
81215170 
81215180 
81215190 
81215200 
81215210 
81215220 
81215230 
81215240 
81215250 
81215260 
81215270 
81215280 
81215290 
81215300 
81215310 
81215320 
81215330 
81215340 
81215350 
81215360 
81215370 
81215380 
81215390 
81215400 
81215410 
81215420 
81215430 
81215440 
81215450 
81215460 
81215470 
81215480 
81215490 
81215500 
81215510 
81215520 
81215530 
81215540 
81215550 
81215560 
81215570 
81215580 
81215590 
81215600 
81215610 
81215620 
81215630 
81215640 
81215650 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 
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0DC9 1 0DC4 



ODCA 0006 
ODCB 2007 
OOCC 1 ODDB 



ODCD 





0006 


ODCE 





2007 


ODCF 


1 


ODDE 


ODDO 





0000 


0DD1 





0049 


0DD2 





0000 


0DD3 




0008 


ODDB 





0000 


ODDC 





0000 


ODDD 





0000 


ODDE 





0000 


ODDF 





00C9 


ODEO 





0000 



ill' T'.IZU K \ 



DC 

* 
* 

T45S0 DC 
DC 
DC 

* 

* 

T45S2 DC 
DC 
DC 



T45RC 



ADD RESS 



6 BYTE COUNT 

/20*256+SEEKC FLAGS AND OP CODE 
T45A3 ADDRESS 



6 BYTE COUNT 

/20*256+SEEKC FLAGS AND OP CODE 



T45A4 



ADDRESS 



BY PROG. 



ROUTINE 6 



SEEK ARGUMENT 
CYLINDER 73 
HEAD NO. STORED 
READ COUNT BUFFER 
SEEK ARGUMENT 
CYLINDER 
HEAD 

SEEK ARGUMENT 
CYLINDER 201 
HEAD 



SEEK BETWEEN ANY TWO 
CYLINDERS 



0DE1 

0DE1 1 7401 0815 



T45A1 DC 
DC 73 

DC *-* 
T45A2 BSS 8 
T45A3 DC O 

DC 

DC 
T45A4 DC O 

DC 201 

DC O 
* 
* 
* 

***********************'**************************** 
* 
* 
* 
* 

*************************************************** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
*************************************************** 

* * 

*************************************************** 

T1601 EQU * TEST ENTRY POINT 

MDX L TRID.l BUMP RTN ID 



THIS ROUTINE WILL ISSUE SEEK COMMANDS TO A 
2311 DISK FILE. THE ARGUMENTS OF THESE SEEK 
COMMANDS ARE SET UP BY THE USER VIA THE DATA 
ENTRY SWITCHES. USING PROGRAM FUNCTION 3. 
'■-- BITS 0-7 SPECIFY THE FIRST CYLINDER AND " 
BITS 8-15 SPECIFY THE SECOND CYLINDER. 
THE CYLINDERS CAN BE CHANGED AT ANY TIME 
DURING TEST BY USING OPTION SW 3 AND THE 
DATA ENTRY SWITCHES. 

THIS ROUTINE SERVES AS A SCOPING LOOP. AND 
THE HOME ADDRESS AT THE DETENTED CYLINDER IS 
NOT VERIFIED AFTER A SEEK. 

TO RUN ROUTINE- 



EXECUTE RTN 16 

SET DESIRED SEEK CYL.SW3(0PTI0N SW 3) 

EXIT WAIT LOOP WITH BIT 9CSW0) ON 



TO EXIT ROUTINE- 
TURN OFF BIT 9. SWO 

COMMAM) SEQUENCE- 
START I/O - SEEK CYL IN BITS 0-7 
START I/O - SEEK CYL IN BITS 8-15 
IF SIO ERROR IS DETECTED. THE ROUTINE WILL 
PERFORM A RECALIBRATE AND RETRY THE SEQ. 



PROG ID 


0812-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


12 


EC NO. 


431319 


431319A 


431328 



PAGE 



81215660 
81215670 
81215680 
81215690 
81215700 
81215710 
81215720 
81215730 
81215740 
81215750 
81215760 
81215770 
81215780 
81215790 
81215800 
81215810 
81215820 
81215830 
81215840 
81215850 
8 1215860 
81215870 
81215880 
81215890 
81215900 
STZtSQTG 
81215920 
81215930 
81215940 
81215950 
81215960 
81215970 
81215980 
81215990 
81216000 
81216010 
81216020 
81 2T6030 ' 
81216040 
81216050 
81216060 
81216070 
81216080 
81216090 
81216100 
81216110 
81216120 
81216130 
81216140 
81216150 
81216160 
81216170 
81216180 
"81216190 
81216200 
81216210 
81216220 
81216230 
81216240 
81216250 
81216260 
81216270 
81216280 
81216290 
81216300 
81216310 
81216320 
81216330 
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1800 DIAGNOSTIC MAINTENANCE PROGRAM 



ItsOO DIAGNOSTIC MAINTENANCE PROGRAM 



•v. 
J 

J 



:■ 









0DE3 1 4C18 0DE8 

ODES 9297 

0DE6 1 4C20 0E72 

0DE8 O C283 

0DE9 100A 

ODEA 1 4C10 ODEE 

ODEC O 4204 

ODED 1 0E1E 

ODEE 42E9 

ODEF 4204 

ODFO 1 0E3E 

0DF1 42FE 

0DF2 C286 

0DF3 1888 

0DF4 E2B0 

0DF5 O D040 

0DF6 1808 

0DF7 1088 

0DF8 O D040 

0DF9 1 6500 0E3B 

ODFB 1 60 00 1078 

ODFD 42EF 

ODFE 1 0E6C 





az 




T1602 




s 


2 


Kl-TB 




BNZ 




T1701 


* 








T1602 


LD 


2 


TSWO-TB 




SUA 




OTTLE 




BNN 




T1603 




BSI 


2 


TLGMS-TB 




DC 




TTL16 


* 








T1603 


BSI 


2 


GETDV-TB 




BSI 


2 


TLGMS-TB 




DC 




T46M1 


* 










BSI 


2 


THLT-TB 


* 








T4605 


LD 


2 


TSW3-TB 




SRT 




8 




AND 


2 


HOOFF-TB 




STO 




T46S1+1 


* 










SRA 




8 




SLT 




8 




STO 




T46S2+1 



LDX LI T46T1 
STX LI WTADR 



T46IO BSI 
DC 



2 SIO-TB 
T46C1 



* 



BR IF TEST NUMBER ZERO 

DECREMENT BY ONE 

BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
TO PRINT ROUTINE 
MESSAGE ADDRESS 

GET CHANNEL FOR RTN 
PRINT OP. INSTRUCTIONS 



WAIT FOR OPERATOR ACTION 
CYL 1 AND CYL 2 

EST. CYL 1 SEEK ARGUMENT 

EST. CYL 2 SEEK ARGUMENT 

EST. TIMEOUT ADDRESS 

CALL SIO ROUTINE 

CCW ADDRESS 
1. SEEK CYL 1 



ODFF O 

OEOO 1 

0E02 

0E03 

0E04 

0E05 



C235 

4C10 0E06 

42E3 

8106 

1601 

7004 



LD 

BNN 

BSI 

DC 

DC 

MDX 



0E06 O C236 
0E07 100E 
0E08 1 4C10 OEOD 



OEOA 42EF 

OEOB 1 0892 

OEOC 70F0 

OEOD O 42EF 

OEOE 1 0E6F 



OEOF C236 

0E10 100E 

0E11 1 4C10 0E14 

0E13 70F6 

0E14 O C283 

0E15 1009 

0E16 I 4C28 0DF2 



0E18 42E6 
0E19 C2C2 
0E1A 1 4C18 0E72 



2 SCSXO-TB CHANNEL STATUS 

T4606 CONTINUE IF OPERATIONAL 

2 EROUT-TB CALL ERROR OUT ROUTINE 

/8106 FLAG BITS 

/1601 MSG NO OR ADDRESS 

T4607 TRY RECAL 

* PRINT DEVICE NOT OPERATIONAL 
T4606 LD 2 SCSXO+l-TB UNIT STATUS 

SLA UNCHK LOOK FOR UNIT CHECK 

BNN T4608 CONTINUE IF NO UNIT CHECK 

* 

* ISSUE RECALIBRATE IF UNIT CHECK 



T4607 BSI 
DC 
MDX 

* 

T4608 BSI 
DC 



2 SIO-TB 
RECAL 
T46I0 

2 SIO-TB 
T46C2 



RETRY SEEK 

CALL SIO ROUTINE 

CCW ADDRESS 
1 . SEEK CYL 2 



LD 
SLA 
BNN 
MDX 



2 SCSXO+l-TB UNIT STATUS 

UNCHK LOOK FOR UNIT CHECK 

T46LP CONTINUE IF NO UNIT CHECK 

T4607 ELSE GO TRY RECALIBRATE 



2 TSWO-TB 
OSALC 
T4605 



CHECK LOOP SWITCH 
LOOP SEEK SEQUENCE 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



T46LP LD 
SLA 

BN 

* 

* GO TO NEXT ROUTINE IN SEQUENCE 

* 

T16EN BSI 2 FREDV-TB FREE CHANNEL 

LD 2 TRTNN-TB GET RTN SWS 

8Z T1701 GO TO NEXT iRTN IN SEO 



15SEP71 
431328 



61 21 6340 

81216350 

81216360 

812163-70 

81216380 

81216390 

81216400 

81216410 

81216420 

81216430 

81216440 

81216450 

81216460 

81216470 

81216480 

81216490 

81216500 

81216510 

81216520 

81216530 

81216540 

81216550 

81216560 

81216570 

81216580 

81216590 

81216600 

81216610 

81216620 

81216630 

81216640 

81216650 

81216660 

81216670 

81216680 

81216690 

81216700 

81216710 

81216720 

81216730 

81216740 

81216750 

81216760 

81216770 

81216780 

81216790 

81216800 

81216810 

81216820 

81216830 

81216840 

81216850 

81216860 

81216870 

81216880 

81216890 

8121 6900 

81216910 

81216920 

81216930 

81216940 

81216950 

81216960 

81216970 

81216980 

8121 6990 

81217000 

81217010 



PROG ID 
PAGE 



0812-B 
13 



0E1C 1 4C00 OFAF 

0E1E 0007 

0E25 0015 

0E34 O FFFF 

0E35 O 0000 

0E36 0000 

0E37 0000 

0E38 0000 

0E39 0000 

0E3A 0000 



0E3B 42E3 
0E3C 8306 
0E3D 4602 



TTL16 

* 



BSC L 
PRNT 



PRNT 
DC 



T20EN ELSE END DFT 
. SECT l.RT 6- . 



•SEEK BETWEEN ANY TWO CYLINDERS. 
-1 



0E3E 




0015 


0E4D 





FFOO 


0E4E 




0016 


0E5E 





FFOO 


0E5F 




0012 


0E6B 





FFFF 


0E6C 





0006 


0E6D 





0007 


0E6E 


1 


0E35 



0E6F O 0006 
0E70 0007 
0E71 1 0^38 



* 
T46S1 



* 
T46S2 



* 
T46T1 



* 
T46M1 



* 
* 
T46C1 



* 
* 
* 
T46C2 



* 

* 

* 
***** 

* 
* 
* 
***** 

* 

* ' 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



DC 
DC 
DC 

DC 
DC 
DC 





*-* 




*-* 





SEEK ARGUMENT FOR CYL 1 
CYL 1 



SEEK ARGUMENT FOR CYL 2 
CYL 2 



BSI 2 EROUT-TB CALL ERROR OUT ROUTINE 

DC /8306 FLAG BITS 

DC /4602 MSG NO OR ADDRESS 

PRNT . SET OPTION SW 3 BITS 0-7 AND. 

DC /FFOO 

PRNT .8-15 FOR SEEK CYLINDERS AND EXIT. 

DC /FFOO 

PRNT .WAIT LOOP WITH BIT 9 ON. 

DC -1 



DC 
DC 

DC 



DC 
DC 
DC 



6 BYTE COUNT 

0*256+SEEKC FLAGS AND OP CODE 
T46S1 ADDRESS 



6 BYTE COUNT 

0*256+SEEKC FLAGS AND OP CODE 
T46S2 ADDRESS 



********************************************* 

ROUTINE 7 WRITE HOME ADDRESSES 

********************************************* 



THIS ROUTINE WILL WRITE HOME ADDRESSES ON 
ANY DESIRED CYLINDER. 

THE CYLINDER ARGUMENT IS SET UP BY THE 
USER VIA THE DATA ENTRY SWITCHES, USING 
PROGRAM FUNCTION 3. THE LOW ORDER 8 BITS 
THE SWITCHES CONTAIN THE CYLINDER TO BE 
USED BY THE ROUTINE. 

HOME ADDRESSES WRITTEN ARE READ BACK AND 
VERIFIED. IF AN ERROR IS DETECTED, THE HA 
WRITTEN AND READ IS PRINTED. 

PROGRAM FUNCTION 3 AND THE DATA ENTRY 
SWITCHES CAN BE USED TO CHANGE THE SPECI- 
FIED CYLINDER AT ANY TIME DURING TESTING. 

THE ROUTINE DOES NOT CHECK THE CYLINDER 
SPECIFIED TO DETERMINE IF IT'S AN ALIGN- 
MENT CYLINDER. SO THE USER SHOULD BE 
CAREFUL AS TO WHICH CYLINDER HE SELECTS. 



81217020 


81217030 


81217040 


81217050 


81217060 


81217070 


81217080 


81217090 


81217100 


81217110 


81217120 


81217130 


81217140 


81217150 


81217160 


81217170 


81217180 


81217190 


81217200 


81217210 


81217220 


81217230 


81217240 


81217250 


81217260 


81217270 


81217280 


81217290 


81217300 


81217310 


81217320 


81217330 


81217340 


81217350 


81217360 


81217370 


81217380 


81217390 


81217400 


81217410 


81217420 


81217430 


81217440 


81217450 


81217460 


81217470 


81217480 


81217490 


81217500 


81217510 


81217520 


81217530 


0F8 121 7540 


81217550 


81217560 


81217570 


81217580 


81217590 


81217600 


81217610 


81217620 


81217630 


81217640 


81217650 


81217660 


81217670 


81217680 


81217690 



DATE 
EC NO. 



14N0V69 30JAN70 15SEP71 
431319 431319A 431328 



PROG ID 
PAGE 



0812-B 
13A 



c 

c 
c 

c 
o 

c 

c 

c 

c 

c 

c 

c 

r~ 
v„ 

C 



( ( < < < ( ( ( ( ( < < ( ( ( 






c 

c 
c 



W 
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PART NO. 
PAGE 



2279468 
14 



0E72 

0E72 1 7401 0815 

0E74 1 4C18 0E79 

0E76 9297 

0E77 1 4C20 0FA1 

0E79 C283 

0E7A 100A 

0E78 1 4C10 0E7F 

0E7D 4204 

0E7E 1 OECC 

0E7F 42E9 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

************************** ************************* 

* 

******************************************,,.„,*,,, ^.^ 



TO RUN ROUTINE — 

1. TURN ON BIT 9, SW0(OPTION SWO ) FOR 
NORMAL LOOP 

2. EXECUTE RTN17 

3. SET DESIRED CYLINDER IN D /E SWS 8-15 

4. EXIT WAIT LOOP (BIT 9 ON) 

TO EXIT ROUTINE — 

TURN OFF BIT 9, SWO 



0E80 
0E81 1 



4204 
0F36 



T1701 EQU 

VOX. 
BZ 

s 

BNZ 

* 

T1702 LD 
SLA 
BNN 
BSI 
DC 

* 

T1703 BSI 

* 

BSI 
DC 



TEST ENTRY POINT 

L TRID.l BUMP RTN ID 

T1702 BR IF TEST NUMBER ZERO 

2 Kl-TB DECREMENT BY ONE 

T1801 BR IF NOT THIS TEST 

2 TSWO-TB GET OPTION SWS 

OTTLE PRINT TITLES 

T1703 BR IF NOT SET 

2 TLGMS-TB GO TO PRINT ROUTINE 



TTL17 

2 GETDV-TB 

2 TLGMS-TB 
T47M1 



MESSAGE ADDRESS 
GET CHANNEL FOR RTN 
PRINT OP. INSTRUCTIONS 



0E82 42FE 



BSI 2 THLT-TB WAIT FOR RESPONSE 



0E83 1 
0E85 1 



0E87 1 
0E89 1 



0E8B 
0E8C 1 



6500 0F26 
6D00 1078 

6500 OEBD 
6000 1303 

C29F 
D400 0F25 



LDX LI T47T1 

STX LI WTADR 

LDX LI T47E1 

STX LI ERADR 



0E8E 6300 

0E8F C286 

0E90 1008 

0E91 1808 

0E92 1 D400 0F20 

0E94 O 1008 
0E95 1 D400 0F23 

0E97 1 6F00 0F24 

0E99 1 C400 0F24 

0E9B 1808 

0E9C 1 . D400 0F24 

0E9E 61FD 

0E9F 1 C500 0FA1 

0EA1 1 D500 08CB 

0EA3 7101 

0EA4 70FA 



0EA5 42EF 
0EA6 1 0F2A 



T4704 LD 
STO 

* 

LDX 

* 

LD 
SLA 
SRA 
STO 

* 

SLA 
STO 



2 K10-TB 
L T47KT 

3 

2 TSW3-TB 
8 
8 
L T47S1+1 

8 
L T47H1+1 



T4705 STX L3 T47H1+2 

LD L T47H1&2 

SRA 8 

STO L T47H1&2 

* 

LDX 1-3 

T4710 LD LI T47K1+3 

STO LI HA+3 

MDX 1 +1 

MDX T4710 



EST. TIMEOUT ADDRESS 

EST. ERROR RETURN 

EST. HEAD COUNTER 

HEAD NO. (INITIAL) 

CYL FOR TEST 

USE ONLY LOWER 8 BITS 
EST. SEEK ARGUMENT 

EST. CYL FOR HA WRITTEN 

EST. HEAD NUMBER FOR HA 
GET HEAD NUMBER 
SHIFT 
SAVE IT 



* 

* 
* 



INITIALIZE HA READ TO CYL 9999 HD 9999 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



as I 

DC 



15SEP71 
431328 



2 SIO-TB CALL SIO ROUTINE 
T47CW CCW ADDRESS 

1. SET FILE MASK 'CO' 



8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 

8121 



770 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

80 90 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 

8210 

8220 

8230 

8240 

82 50 

8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

8350 

8360 

8370 



< < < < < < < < < < < "< -<."< < ( ( 
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* 
* 
* 

* 



2. 

3. 
4. 



SEEK CYL 
WRITE HA 
READ HA 



AND HEAD 



0EA7 C235 

0EA8 1 4C10 OEAD 

OEAA 42E3 

OEAB O 8306 

OEAC 4702 

OEAD C236 

OEAE 100E 

OEAF 1 4C10 0E84 

0EB1 42E3 

0EB2 8327 

0EB3 1703 



LD 2 SCSXO-TB CHANNEL STATUS 

BNN T4706 CONTINUE IF OPERATIONAL 

BSI 2 EROUT-TB CALL ERROR OUT ROUTINE 

DC /8306 FLAG BITS 

DC /4702 MSG NO OR ADDRESS 



T4706 LD 
SLA 
BNN 
BSI 
DC 
DC 



PRINT DEVICE NOT OPERATIONAL ERROR 
2 SCSXO+1-TB UNIT STATUS 



0EB4 
0EB5 
0EB7 
0EB9 
OEBB 
OEBC 



61FD 

1 C500 08CB 
1 F500 0F2S 
1 4C20 OEDE 
7101 

70F8 



* 

* 

T4707 LDX 

T4708 LD 
EOR 
BNZ 
MDX 
MD X 



UNCHK LOOK FOR UNIT CHECK 

T4707 CONTINUE IF NO UNIT CHECK 

EROUT-TB CALL ERROR OUT ROUTINE 

• 8327 FLAG BITS 

'1703 MSG NO OR ADDRESS 



PRINT UNIT CHECK ERROR 



1 
LI 
LI 



OEBD 7700 0100 

OEBF 1 74FF 0F2S 

0EC1 70D5 

0EC2 C283 

0EC3 1009 

0EC4 1 4C28 0E8B 



OECfi^O 42E6 
0EC7 C2C2 

0EC8 1 4-C18 0FA1 

OECA 1 4C00 OFAF 

OECC 0007 

0ED3 0010 

OEDD FFFF 

OEDE C043 

OEDF 4033 

OEEO 1 D400 0F87" 

0EE2 C249 

0EE3 402F 

0EE4 1 D400 0F94 

0EE6 C03C 

0EE7 1890 

0EE8 C039 

0EE9 1088 

OEEA 402F 

OEEB 1 D400 0F8A 

OEED 1090 

OEEE 1 D400 0F8B 



OEFO C033 

0EF1 1890 

0EF2 C030 

0EF3 1088 

0EF4 4025 



* 
T47E1 



MDX 
MDX 
MDX 

LD 
SLA 

BN 



L3 

L 



-3 

HA+3 

T47H1+3 

T4709 

+ 1 

T4708 

+256 

T47KT.-1 

T4705 

TSWO-TB 

OSALC 

T4704 



81218380 
81218390 
81218400 
81218410 
81218420 
81218430 
81218440 
81218450 
81218460 
81218470 
81218480 
81218490 
81218500 
81218510 
81218520 
81218530 
81218540 
81218550 
81218560 
81218570 
81218580 



* 
T4709 



* 
* 
* 
T17EN BSI 

LD 

BZ 

BSC 
TTL17 PRNT 
* 

PRNT 

DC 

LD 

BSI 

STO 

LD 

BSI 

STO 

LD 
SRT 
LD 
SLT 

BSI 

STO 
SLT 
STO i 



HD = HD+1 '■ 

DECR. HEAD COUNTER 

TRY NEXT HEAD 



CHECK LOOP SWITCH 
RE-EXECUTE SEQUENCE 



GO TO NEXT ROUTINE IN SEQUENCE 



2 FREDV-TB FREE CHANNEL 
2 TRTNN-TB GET RTN SWS* 

TlSOi - GOTO NEXT RTN 
. T20EN ELSE END DFT 
. SECT 1,RT 7- . 

•WRITE HOME ADDRESSES. 
-1 



IN SEQ 



* 
* 



LD 

SRT 

LD 

SLT 

BSI 



T47H1 
T47C1 
T4 7M4 

HA-TB 
T47C1 

T47H8 

T47H1+1 

16 

T47H1 

8 

T47C2 

T4 7M5 
16 

T47M5+1 



T47H1+2 

16 

T47H1+1 

8 
T47C2 



PROG ID 


0812-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


14 j 


EC NO. 


431319 


431319A 


431328 



COMPARISON COUNTER 
HA READ 
HA WRITTEN 
PRINT ERROR IF NON-COMPARE 81218590 

81218600 
CHECK ALL BYTES 81218610 

81218620 
81218630 
81218640 
81218650 
81218660 
81218670 
81218680 
81218690 
81218700 
81218710 
81218720 
81218730 
81218740 
81218750 
81218760 
81218770 
81218780 
81218790 
81218800 
81218810 
81218820 
81218830 
81218840 
81218850 
81218860 
81218870 
81218880 
81218890 
81218900 
81218910 
81218920 
81218930 
81218940 
81218950 
81218960 
81218970 
81218980 
81 218990 
81219000 
81219010 
81219020 
81219030 
81219040 
8121905O 



PROG ID 

PACF 



FLAG WRITTEN 
CONVERT FLAG TO 1443 
EST. FLAG IN MESSAGE 

FLAG READ 

CONVERT FLAG TO 1443 

EST. FLAG IN MESSAGE 



A = CYLINDER WRITTEN 
CONVERT TO PRINTER CODE 



EST. CYL. IN MESSAGE 



A = HEAD WRITTEN 
CONVERT TO PRINTER CODE 



0812-B 



(, <<<((<<<<<<((<(( 












/-\ 
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c 



c 






C 



0EF5 1 D400 OF8D 
0EF7 1090 
0EF8 1 D400 0F8E 



OEFA O C24A 

OEFB 1890 

OEFC C249 

OEFD 1088 

OEFE 401B 

OEFF 1 D400 0F97 

0FO1 O 1090 

0F02 1 D400 0F98 



0F04 C24B 

0F05 1890 

0F06 C24A 

0F07 1088 

OF 08 O 40 11 

0F09 1 D400 0F9A 

OFOB 1090 

OFOC 1 D400 0F9B 



OFOE O 4204 
OFOF 1 0F6A 



STO L T47M6 

SLT 16 

STO L T47M6+1 



* 



LD 


2 


HA+l-TB 


SRT 




16 


LD 


2 


HA-TB 


SLT 




8 


BSI 




T47C2 


STO 


L 


T47M9 


SLT 




16 


STO 


L 


T47M9+1 



* 

* 



LD 2 HA+2-TB 

SRT 16 

LD 2 HA+l-TB 

SLT 8 

BSI T47C2 

STO L T47MA 

SLT 16 

STO L T47MA+1 



OF 10 4204 
OF 11 1 0F83 



0F12 70AA 



0F13 0000 

0F14 1808 

OF IS O 42F5 

0F16 O 1090 

0F17 O E2B0 

OF 18 1 4C80 0F13 



0F1A O 0000 

0F1B 42F8 

0F1C 42F5 

OFIO 1 4C80 0F1A 

0F1F O 0000 

0F20 0000 

0F21 0000 

0F22 0000 

0F23 0000 

0F24 0000 

0F25 0000 

0F26 42E3 

0F27 8306 

0F28 O 1701 



0F29 O COOO 



BSI 
DC 



BSI 
DC 



MDX 



2 TLGMS-TB 
T4 7M2 

2 TLGMS-TB 
T47M3 

T47E1 



EST. HEAD IN MESSAGE 



A = CYLINDER READ 
CONVERT TO PRINTER CODE 



EST. CYL. IN MESSAGE 



A = HEAD READ 

CONVERT TO PRINTER CODE 



EST. HEAD IN MESSAGE 



PRINT ERROR MESSAGE 



CONTINUE ROUTINE 



* 
# 
T47C1 

* 



* 

T47C2 

* 



DC *-* ENTRY POINT 

CONVERT FLAG TO PRINTER CODE (HEX) 



SRA 
BSI 
SLT 
AND 
BSC 



8 
2 TCVBE-TB 

16 
2 HOOFF-TB 
I T47C1 



FLAG = LOWER 8 BITS 
CONVERT TO 1443 

INSERT BLANK 
RETURN 



DC *-* ENTRY POINT 

CONVERT CYLINDER OR HEAD TO PRINTER (DEC) 
BSI 2 TCVHD-TB HEX TO DECIMAL 

BSI 2 TCVBE-T8 DEC TO 1443 

BSC I T47C2 RETURN 



CYL. SEEK ARGUMENT 

CYLINDER 

HEAD 



* 








T47S1 


DC 









DC 




*-* 




DC 




*-* 


* 








T47H1 


DC 









DC 




*-* 




DC 




*-* 


* 








T47KT 


DC 




*-* 


* 








T47T1 


BSI 


2 


EROUT-TB 




DC 




/83 06 




DC 




/1701 


* 


PRINT 


TIMEOUT 


* 








T47C0 


OC 




/COOO 



CYL. HOME ADDRESS WRITTEN 



HEAD COUNTER 

CALL ERROR OUT ROUTINE 
FLAG BITS 
MSG NO OR ADDRESS 



FILE MASK FOR ALL OPS 



V- 


DATE 


14N0V69 


30JAN70 


15SEP71 




EC NO. 


431319 


431319A 


431328 


f- 











PART NO. 2279468 
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81219060 
81219070 
81219080 
81219090 
81219100 
81219110 
81219120 
81219130 
81219140 
81219150 
81219160 
81219170 
81219180 
81219190 
81219200 
81219210 
81219220 
81219230 
81219240 
81219250 
81219260 
81219270 
81219280 
81219290 
81219300 
81219310 
81219320 
81219330 
81219340 
81219350 
81219360 
81219370 
81219380 
81219390 
81219400 
81219410 
81219420 
81219430 
81219440 
81219450 
81219460 
81219470 
81219480 
81219490 
81219500 
81219510 
81219520 
81219530 
81219540 
81219550 
81219560 
81219570 
81219580 
81219590 
81219600 
81219610 
81219620 
81219630 
81219640 
81219650 
81219660 
•81219670 
81219680 
81219690 
81219700 
81219710 
81219720 
81219730 
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1800 DIAGNOSTIC MAINTENANCE PRGGRAM 



0F2A O 0001 
0F2B O 401F 
0F2C 1 0F29 



0F2D 0006 
0F2E 4007 
0F2F 1 0F1F 



0F30 O 0005 
0F31 4019 
0F32 1 0F22 



0F33 O 0005 
0F34 O 001A 
0F35 1 08C8 



0F36 




0016 


0F46 




0018 


0F58 





FFOO 


0F59 




0016 


0F69 





FFFF 


0F6A 




0010 


OF 74 





FFOO 


OF 75 




0012 


0F81 





FFOO 


0F82 





FFFF 


0F83 




0004 


0F87 




0001 


OF 88 




0002 


0F8A 




0002 


0F8C 




0001 


0F8D 




0002 


0F8F 





FFOO 


0F90 




0004 


0F94 




0001 


0F95 




0002 


0F97 




0002 


0F99 




0001 


0F9A 




0002 


0F9C 





FFOO 


0F9D 





FFFF 



0F9E O FF27 
0F9F O 0F27' 
OFAO OFOO 



0FA1 O 42E0 



T47CW DC 1 BYTE COUNT 

DC /40*256+SFILM FLAGS AND OP CODE 

DC T47C0 ADDRESS 

* 

************************************************** 
* 

DC 6 BYTE COUNT 

DC /40*256+SEEKC FLAGS AND OP CODE 

DC T47S1 ADDRESS 

* 

************************************************** 
* 

DC 5 BYTE COUNT 

DC /40*256+WRHA FLAGS AND OP CODE 

DC T47H1 ADDRESS 

* 

************************************************** 
* 

DC 5 BYTE COUNT 

DC 0*256+RDHA FLAGS AND OP CODE 

DC HA ADDRESS 

* 

************************************************** 

T47M1 PRNT . SPEC IFY "CYL IKD^ER FOR WRITE HOME. 

PRNT .ADDRESS IN D /E SWS 8-15(0PTI0N SW3) . 

DC /FFOO 

PRNT .AND EXIT WAIT LOOP WITH BIT 9 ON. 

DC -1 



.HA COMPARISON ERROR.. 

/FFOO 

. FLAG CYL. HEAD, 

/FFOO 

-1 

.WRITTEN . 

.XX. ■--• FLAG' WRITTEN 



T47M2 PRNT 
DC 

PRNT 

DC 

OC 
T47M3 PRNT 
T47M4 PRNT 

PRNT • . 
T47M5 PRNT .XXXX. 

PRNT . • 
T47M6 PRNT .XXXX. 

DC /FFOO 
T47M7 PRNT .READ 
T47M8 PRNT .XX. 

PRNT . . 
T47M9 PRNT .XXXX. 

PRNT . * 
T47MA PRNT .XXXX. 

DC /FFOO 

OC -1 
* 

T47K1 DC /FF27 

T47K2 OC /0F27 ' - ' '-'''"'■ 
T47K3 OC /OFOO 
* 
*************************************************** 



CYLINDER WRITTEN 
HEAD WRITTEN 

FLAG READ 
CYLINDER READ 
HEAD READ 



*************************************************** 
* 

* SECTION END 
* 

T1801 BSI 2 CNTRL-TB GO TO CONTROL RTN 
*************************************************** 

* * 
***********#*******************************"******'** 

* 
* 



SECTION PREFACE 



PAGE 



81219740 

81219750 

81219760 

81219770 

81219780 

81219790 

81219800 

81219810 

81219820 

81219830 

81219840 

81219850 

81219860 

81219870 

81219880 

81219890 

81219900 

81219910 

81219920 

81219930 

81219940 

81219950 

81219960 

81219970 

81219980 

81219990 

81220000 

81220010 

81220020 

81220030 

81220040 

81220050 

81220060 

81220070 

81220080 

81220090 

81220100 

8122O110 

81220120 

81220130 

81220140 

81220150 

81220160 

81220170 

81220180 

81220190 

81220200 

81220210 

81220220 

81220230 

81220240 

81220250 

81220260 

81220270 

81220280 

81220290 

81220300 

81220310 

81220320 

81220330 

81220340 

81220350 

81220360 

81220370 

81220380 

81220390 

81220400 

81220410 



15A 



PROG ID 


081 2-B 


DATE 


14-N0V69 


30JAN70 


15SEP71 


PAGE 


15 


EC NO. 


431319 


431319A 


431328 



PROG ID 
PAGE 



..-4 



08 1 2-B 
15A 



c 

c 
c 
c 
c 
c 
c 
c 
c 

r. 

r 

V.. 

r 
r 
r 

C 
C 

c 
c 
c 

G 

c 

w 

C 

o 
o 
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0FA2 0002 
0FA3 0000 

0FA4 C2C1 

0FA5 1 4C18 OFAF 



0FA7 
0FA8 
OFAA 
OFAB 
OFAD 
OFAE 
OFAF 
OFBO 
OFBl 
0FB3 
0FB4 



C2C2 

4C18 0FC1 

90F8 

4C30 0A50 

80F5 

7012 

4204 
1 0FB6 
1 7401 0857 
1000 
4C80 012E 



/0002 SECTION NUMBER 





2 TSCTN-TB 
T20EN 

2 TRTNN-TB SW FNC 1 BITS 12-15 

T2101 BR IF RUN ALL RTNS 

T20PR+1 TEST FOR VALID 

TCNER BR IF INVALID RTN NUMBER 

T20PR+1 RESTORE RTN NUMBER 

T2101 GO TO FIRST RTN 

2 TLGMS-TB PRINT END OF TEST MSG 
T20ER 

L PSCNT.l BUMP PASS CNTR 

IN CASE OF SKIP 

I END GO TO MONITOR END 



0FB6 0009 

OFBF FFOO 
OFCO FFFF 



0FC1 42E0 



0FC2 

0FC2 42F2 

0FC3 4480 0131 

0FC5 1 0FC2 

0FC6 1 0814 

0FC7 1 08F1 

0FC8 1 080C 

0FC9 C2B3 

OFCA O EA72 

OFCB EAD4 

OFCC D224 

OFCD EAB1 

OFCE D228 

OFCF D222 

OFDO D226 



T20PR DC 
DC 

T20NT LD 

B2 
* 

LD 

BZ 
• S 

BP 

A 

MDX 
T20EN BSI 

DC 

MDX 

NOP 

BSC 
* 
T20ER PRNT . ** END OF DFT **. 

DC /FFOO 

DC /FFFF 

******** ******************************************* 
* 

************************************************* * + 
* 
******** ****************************************„,.,..;, 

* * 
****************** ********************************* 

* 

* 

* 

T210 1 BSI 2 CNTRL-TB GO TO CONTROL RTN 

**************************** *********************** 

* „. 
********************** ***************************** 



SECTION END 



0FD1 





C2B5 


0FD2 





EA72 


0FD3 





1808 


0FD4 





1008 


0FD5 





829B 


0FD6 





D234 


0FD7 





8298 


0FD8 





D22A 


0FD9 





8297 


OFDA 





D22C 


OFDB 





8297 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



GTDVE EQU 

* 

GTDV1 BSI 
BSI 
DC 
DC 
DC 
DC 

* 

LD 
OR 
OR 
STO 

* 

OR 
STO 

* 

-STO 

* 

STO 
* 

LD 
OR 
SRA 
SLA 
A 

STO 
A 

STO 
-A 

STO 
A 



15SEP71 
431 328 



GET DEVICE ROUTINE 



2 STMLS-TB 
I REGDV 
GTDV1 
TSCED 
TSCAC 
TERM 

2 H0400-TB 
2 TSCAC-TB 
2 DVADR-TB 
2 HIOXX+1-TB *** 

2 H0100-TB BUILD START I/O IOCC 

2 SIOXX+1-TB *** 

2 TIOXX+1-TB BUILD TEST I/O IOCC 

2 SENSE+1-TB SET FOR SENSE IOCC 



BUSY RETURN 

SEL CHN EDIT 

SEL CHN AREA CODE 

TERMINATOR 

BUILD HALT I/O IOCC 
OR IN AREA CODE 
*** 



2 H0700-TB 
2 TSCAC-TB 

8 

8 
2 K6-TB 
2 SCSN5+1-TB 
2 K2-TB 

2 SCSNO+1-TB *** 
2 Kl-TB 
2 SCSN1+1-TB 
2 Kl-TB 



BUILD SENSE CHANNEL 
* STATUS IOCCS 



= 06 
= 08 
= 09 



PART NO. 

PAGE 



81220420 

81220430 

81 220440 

81220450 

81220460 

81220470 

81220480 

81220490 

81220500 

81220510 

81220520 

81220530 

81220540 

81220550 

81220560 

81220570 

81220580 

81220590 

81220600 

81220610 

81220620 

81220630 

81220640 

81220650 

81220660 

81220670 

81220680 

81220690 

81220700 

81220710 

81220720 

81220730 

81220740 

81220750 

81220760 

81220770 

81220780 

81220790 

81220800 

81220810 

81220820 

81220830 

81220840 

81220850 

81220860 

81220870 

81220880 

81220890 

81220900 

81220910 

81220920 

81220930 

81220940 

81220950 

81220960 

81220970 

81220980 

81220990 

81221000 

81221010 

81221020 

81221030 

81221040 

81221050 

81221060 

81221070 

81221080 

81221090 



PROG ID 
PAGE 



22 79468 
16 
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081 2-B 
16 



OF DC 





D22E 


OFOD 





8297 


OFDE 





D230 


OFDF 





8297 


OFEO 





D232 


0FE1 





D271 


0FE2 


1 


4C80 0868 



STO 2 SCSN2+1-TB 

A 2 Kl-TB 

STO 2 SCSN3+1-TB 

A 2 Kl-TB 

STO 2 SCSN4+1-TB 

STO 2 SCISW-TB SET INT SW 



= OA 
= OB 
= OC 



0FE4 4480 0132 

0FE6 1 0814 

0FE7 1 080C 

0FE8 O 1010 

0FE9 D271 

OFEA 1 4C80 0865 



OFFA 0A27 

OFFB 0A29 

OFFC D229 

OFFD 7006 

OFFE O 4201 

OFFF C23E 

1000 100B 

100 1 1 4C28 OFFE 

1003 70F2 

1004 C229 

1005 1007 

1006 1 4C10 1027 

10 08 C2D6 



BSC I GETDV RETURN 

*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 
* 

FRDVE BSI I RELDV RELEASE DEVICE 

DC TSCED SEL CHN EDIT 

DC TERM TERMINATOR 

* 

SLA 16 RESET- 

STO 2 SCISW-TB INTERRUPT SW 

BSC I FREDV RETURN 

*************************************************** 

* * 
*************************************************** 

* = 

* CALL *************** 

* * BSI 2 SIO-TB * 

* * DC CCWADR * 

* ****************** 

* 
*************************************************** 

* * 
*************************************************** 

ENTRY POINT 
SAVE REGS 
*** 
.: ; GE,T XAU- tNfi. l^DD RESS , ■- 

BUMP FOR RETURN 

GET CCW ADDRESS 

SET FOR XIO 

SAVE FOR POSSIBLE PRINTS 

CLEAR CSW 

** 
B ** 

CLEAR WAIT SW 

2 SIOXX-TB DO THE START I/O 



OFEC 









SIONT 


EQU 




* 


OFEC 





6933 






STX 


1 


SI0X1+1 


OFED 





6B34 






STX 


3 


SI0X1+3 


OFEE 


1 


6780 


086E 




LDX 


13 


SIO 


OFFO 


1 


7401 


086E 




MDX 


L 


SIO.l 


0FF2 





1000 






NOP 






0FF3 





C300 






LD 


3 





0FF4 





D227 






STO 


2 


SIOXX-TB 


0FF5 





D2C6 




* 

SI 001 


STO 


2 


CAWSV-TB 


0FF6 





10A0 




SLT 




32 


0FF7 





DA35 






STD 


2 


SCSXO-TB 


0FF8 





DA37 






STD 


2 


SCSXO+2- 


0FF9 





D26F 






STO 


2 


WIOSW-TB 



XIO 



XIO 
STO 



2 SCSNO-TB 
2 SCSNO-TB 



GET CHANNEL STATUS 
SAVE FOR LATER EXAM 



MDX SI003 GO TEST FOR ERRORS 

* LOOP ON TIO UNTIL DEVICE END 

SIO02 BSI 2 TIO-TB GO DO A TIO 



TEST FOR BUSY 
BR IF STILL BUSY 
GO DO THE SIO AGAIN 



LD 


2 SCSX8+1- 


SLA 


UNBZY 


BN 


SI002 


MDX 


SI 001 


4= 

SI003 LD 


2 SCSNO-TB 


SLA 


SCAB2 


BNN 


SI005 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



* CMD ACCEPTED 

SI004 LD 2 SIOSW-TB 



1 5SEP71 
431328 



GET CHAN STATUS 
TEST FOR BUSY 
BRANCH. IF NOT NEG 

GET SIO SW 



PART NO. 2279468 
PAGE 16A 



81221 100 

81221110 

81221120 

81221130 

81221140 

81221150 

81221160 

81221170 

81221180 

81221190 

81221200 

81221210 

81221220 

81221230 

81221240 

81221250 

81221260 

81221270 

81221280 

81221290 

81221300 

81221310 

81221320 

81221330 

81221340 

81221350 

81221360 

81221370 

81221380 

81221390 

81221400 

81221410 

81221420 

81221430 

81221440 

81221450 

81221460 

8X221470 

81221480 

81221490 

81221500 

81221510 

81221520 

81221530 

81221540 

81221550 

81221560 

81221570 

81221580 

81221590 

81221600 

81221610 

81221620 

81221630 

81221640 

81221650 

81221660 

81221670 

81221680 

81221690 

81221700 

81221710 

81221720 

81221730 

81221740 

81221750 

81221760 

81221770 
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OS 1 2-B 
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DATE 
EC NO. 



1009 1 4C28 101F 



100B 1 C400 0800 

100D 1 F400 0818 

100F 1801 

1010 1 4C20 101E 



BN 



sioxi 



BR IF SET 



1012 
1013 
1014 
1015 
1016 
1017 
1018 
101A 



1010 

D007 

C006 

8006 

D004 

F005 

4C20 1014 

7003 



* 
* 
* 
* 
* 



* 

SI OLA 



SIOLP 



TEST FOR TIME DELAY IN RTNS 12/13 RCAL SIO 
15 MILLISECOND 



LD L 

EOR L 
SRA 

3SC L 

SLA 

STO 

LD 

A 

STO 

EOR 

BSC L 



TSW1-3 

K3 

1 

SIOLZ.Z 

16 

SI0L1 

SI0L1 

SI0L2 

SI0L1 

SI0L3 

SIOLP, Z 

SIOLZ 



101B O 0000 
101C 0001 
101D 7FFF 



101E 4047 



101F 6500 0000 

1021 6700 0000 

1023 1010 

1024 D2D6 

1025 1 4C80 086E 

1027 C2D6 

1028 O 1001 

1029 1 4C28 101F 

102B CAC9 

10 2C DA5B 

102D 1 4400 149E 

102F D25F 

1030 1090 

1031 D262 

1032 C229 

1033 1 4C10 103D 



* 

* 

SI0L1 

SI0L2 

SI0L3 

* 

* 

SIOLZ 

* 

SIOXI 



DC 

DC 1 

DC /7FFF 



BSI 



WAITT 



LDX LI *-* 

LDX L3 *-* 
SLA 16 

STO 2 SIOSW-TB 

BSC I SIO 



* 
SIO05 



1035 
1036 
1037 
1038 
1039 
103A 
103B 
103C 



C2A8 
42F5 
1090 
D255 
42E3 
0108 
08D4 
7023 



103D 1007 

103E 1 4C10 1049 

1040 C2A7 

1041 8297 

1042 42F5 

1043 1090 

1044 O D255 

1045 42E3 

1046 010C 

1047 1 08D4 

1048 7017 



* 

SI 006 



LD 

SLA 

BN 

LDD 

STD 

BSI 

STO 

SLT 

STO 

LD 

BNN 

NOT 

LD 

BSI 

SLT 

STO 

BSI 

DC 

DC 

MDX 

SLA 

BNN 

LD 

A 

BSI 

SLT 

STO 

BSI 

DC 

DC 

MOX 



2 SIOSW-TB 
1 
SIOXI 



GET RTN ID NUMBER 
TEST FOR RTNS 12/13 
CLEAR BIT 15 
BR IF NOT RTNS 12/13 

CLEAR A REG 
CLEAR COUNTER 

ADD 1 TO COUNTER 

CHECK FOR FULL COUNT 

LOOP TEST 

BR TO CONTINUE SIO RTN 



COUNTER 

CONSTANT OF ONE 

CHECK # FOR 1,000 LOOPS 



BR TO INTERRUPT WAIT RTN 



RESTORE REGS 

*** 

RESET SIO SW 

* 

THEN EXIT 

GET CNTRL SW 

TEST FOR EXIT EVEN IF ERR 
BR IF SET 



2 TYP2-TB «SIO • 
2 STSER+6-TB SET IN MSG 
. TCVSR GET SECT/RTN NUMBERS 
2 STSER+10-TB 

16 
2 STSER+13-TB SET IN MSG 



2 SCSNO-TB 

SI006 
OPERATIONAL 
2 H0013-TB 
2 TCVBE-TB 

16 
2 STSER-TB 
2 EROUT-TB 

/0108 

STSER 

SI009 



GET CHAN STATUS 

BR IF NOT OPER IS NOT SET 



GET MSG NUMBER 
CONVERT TO PRNT CODE 
SAVE Q ONLY 
SET IN MSG 
PRINT ERROR MSG 
TAGS Ar« OPTIONS 
MSG ADDRESS 
LOOP 



SCABZ 

SI007 

H0011-TB 

Kl-TB 

TCVBE-TB 

16 

STSER-TB 

EROUT-TB 

/010C 

STSER 

SI009 



TEST FOR ADAPTER BUSY 

BR IF NOT 

SET MSG NUMBER 

CONVERT 

O ONLY 

SET IN MSG 

CALL ERROR PRINT RTN 

MESSAGE TAGS AND OPTIONS 

MSG ADDRESS 

* 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PART NO. 2279468 
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81 221 780 

81221790 

81221800 

81221810 

81221820 

81221830 

81221840 

81221850 

81221860 

81221870 

81221880 

81221890 

81221900 

81221910 

81221920 

81221930 

81221940 

81221950 

81221960 

81221970 

81221980 

81221990 

81222000 

81222010 

81222020 

81222030 

81222040 

81222050 

81222060 

81222070 

81222080 

81222090 

81222100 

81222110 

81222120 

81222130 

81222140 

81222150 

81222160 

81222170 

81222180 

81222190 

81222200 

81222210 

81222220 

81222230 

81222240 

81222250 

81222260 

81222270 

81222280 

81222290 

-81222300 

81222310 

81222320 

81222330 

81222340 

81222350 

81222360 

81222370 

81222380 

81222390 

81222400 

81222410 

81222420 

81222430 

81222440 

81222450 
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0812-B 
17 



DATE 
EC NO. 



1049 





C229 




* 
SI007 


LD 


2 


SCSNO-TB 


104A 





1001 






SLA 




SCUSP 


104B 


1 


4C10 


1008 




BNN 




SI004 


104D 





42EC 






BSI 


2 


GETSN-TB 


104E 





CA1D 






LDD 


2 


SNWDS-TB 


104F 





109F 






SLT 




FSKIN 


1050 


1 


4C10 


1059 




BNN 




SIO08 


1052 


1 


6780 


08A6 




LDX 


13 


SIOXX 


1054 





C301 






LD 


3 


1 


1055 





F2A8 






EOR 


2 


H0013-TB 


1056 





1008 






SLA 




8 


1057 


1 


4C18 


0FF6 


* 
SI008 


BZ 




SIO01 


1059 





C2A7 




LD 


2 


H0011-TB 


105A 





42F5 






BSI 


2 


TCVBE-TB 


105B 





1090 






SLT 




16 


105C 





D255 






STO 


2 


STSER-TB 


105D 





42E3 






BSI 


2 


EROUT-TB 


105E 





01 OF 






DC 




/010F 


105F 


l 


08D4 




* 
SI009 


DC 




STSER 


1060 





C283 




LD 


2 


TSWO-TB 


1061 





100B 






SLA 




ORTRY 


1062 


1 


4C28 


OFFE 


* 


BN 




SIO02 


1064 





42FB 




BSI 


2 


THALT-TB 


1065 





7098 






MDX 




SIO02 



GET CHAN STATUS 

UNIT STATUS PENDING 

BR IF NOT SET 

ELSE GET SENSE INFO 

GET SENSE WORDS 

TEST FOR SEEK INCOMPLETE 

BR IF NOT SET 

GET CCW ADDRESS 

GET FLAGS AND OP CODE 

TEST FOR RECALIBRATE 

RETRY IF SO 

SET ERR NUMBER 
CONVERT 
Q ONLY 
SET IN MSG 
CALL MSG RTN 
TAGS AND OPTIONS 
MSG ADDRESS 

GET SW FNC 

TEST FOR RETRY SIO 

BR IF YES 



GO WAIT FOR OPERATOR 
LOOP 
******************** « *********************** * ****** 

* * 
*************************************************** 
* 

* WAIT FOR DEVICE END FROM START I/O 



GET COUNTER F0R LOOP 
SET FOR LOOP 



1066 





0000 




WAITT 


DC 




*-* 


1067 





C28D 






LD 


2 


TERM-TB 


1068 





D2C0 






STO 


2 


CNTDN-TB 






- • 


",'% *, > C- i\ 


* 


■ 


I ..._ 




1069 





4201 




WAITl 

* 


BSI 


2 


TIO-TB 


106A 





C23E 




LD 


2 


SCSX8+1-T 


106B 





100B 






SLA 




UNBZY 


106C 


1 


4C28 


1072 




BN 




WAIT2 


106E 





1010 






SLA 




16 


106F 





D2DA 






STO 


2 


TIOSW-T8 


1070 


1 


4C80 


1066 


* 
WAIT2 


BSC 


I 


WAITT 


1072 





42F2 




BSI 


2 


STMLS-TB 


1073 


1 


74CE 


083F 




MDX 


L 


CNTDN.-50 


1075 





70F3 






MDX 




WAITl 


1076 


1 


4C80 


1078 




BSC 


I 


WTADR 


1078 





0000 




WTADR 


DC 




*-* 






GO DO A TEST I/O 



TEST FOR UNIT BUSY 
BR TO WAIT IF ON 
ELSE CLEAR TIO SW 

* 

EXIT IF NOT BUSY 

GO TO MONITOR 

COUNT TIME 

LOOP 

GO TO TIMEOUT ADDRESS 

TIMEOUT ADDRESS 
************************************ ***********$£$* 
* * 

**************************** ************** *******^ # 
* 
* 
* 
*************************************************** 
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********************** ******* 



********************* 



1079 







1079 





1010 


107A 





0270 


107B 





D22B 


107C 





0A29 


10 7D 





1007 



TIONT 



* 
TI001 



EQU 

SLA 

STO 

STO 

WAIT 

XIO 

SLA 



* 

16 
2 WATSW-TB 
2 SCSN1-TB 



ENTRY FOR XFER VECTOR 

CLEAR- 

* 

* LOOP COUNTER 



FOR ADAPTER NOT BUSY 
2 SCSNO-TB GET CHAN. STATUS WORD 
SCABZ TEST FOR ADAPTER BUSY 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



81222460 

81222470 

81222480 

81222490 

81222500 

81222510 

81222520 

81222530 

81222540 

81222550 

81222560 

81222570 

81222580 

81222590 

81222600 

81222610 

81222620 

81222630 

81222640 

81222650 

81222660 

81222670 

81222680 

81222690 

81222700 

81222710 

81222720 

81222730 

81222740 

81222750 

81222760 

81222770 

81222780 

81222790 

81222800 

81222810 

81222820 

81222830 

81222840 

81222850 

81222860 

81222870 

81222880 

81222890 

81222900 

81222910 

81222920 

81222930 

81222940 

81222950 

81222960 

81222970 

81222980 

81222990 

81223000 

81223010 

81223020 

81223030 

81223040 

81223050 

8122306*0 

81223070 

81223080 

81223090 

81223100 

81223110 

81223120 

81223130 
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^ 



J 



107E 1 4C10 1091 
1080 0A33 



BNN 

xio 



TIO02 
2 SCSN5-TB 



1081 





42F2 


1082 


1 


7432 08AA 


1084 





70F7 


1085 





0A2B 


1086 





D241 


1087 





0A2F 


1088 





D242 


1089 





0A31 


108A 





D243 


108B 





0A33 


108C 





D244 



BSI 2 STMLS-TB 

MDX L SCSN1 ,50 
MDX TIO01 



108D 42E3 
108E 110E 
108F 1 10A5 

1090 70E8 

1091 0A21 

1092 1 6CO0 0859 

1094 0A33 

1095 1 4400 099C 

1097 7006 

1098 C23E 

1099 100A 
109A 1 4C28 1079 

109C 1 4C80 0880 

109E 42E3 
109F HOE 
10A0 1 10B1 

10A1 0A23 

10A2 4204 
10A3 1 10C2 

10A4 70D4 



XIO 
STO 
XIO 
STO 
XIO 
STO 
XIO 
STO 
* 

BSI 

DC 

DC 

MDX 

* 

TIO02 XIO 

* 

STX 
XIO 

BSI 
MDX 
LD 
SLA 
BN 
* 

BSC 



2 SCSN1-TB 
2 SCSXC-TB 
2 SCSN3-TB 
2 SCSXC+1-TB 
2 SCSN4-TB 
2 SCSXC+2-TB 
2 SCSN5-TB 
2 SCSXC+3-TB 

2 EROUT-TB 
/110E 
TI0M1 

TIONT 

2 TIOXX-TB 

L TIOSW 
2 SCSN5-TB 



BR IF NOT 
ALLOW POLLING 

GO TO MONITOR 

COUNT LOOPS 
LOOP UNTIL NOT BUSY 

GET CHANNEL STATUS 

* AND SAVE FOR ERROR 

* MESSAGE 

* 
* 
* 
* 
* 



TAGS AND OPTIONS 
ERROR MSG ADDRESS 

LOOP TO TRY AGAIN 

EXECUTE TEST I/O 

SET TIO SW 
RELIEVE POLL 



L TINTW WAIT FOR INTERRUPT 

TI003 BR IF DID NOT OCCUR 

2 SCSX8+1-TB GET UNIT STATUS 

UNCUE TEST FOR CNTL UNIT END 

TIONT RETRY IF YES 



TIO 



EXIT 



TIO03 BSI 2 EROUT-TB 

DC /HOE TAGS AND OPTIONS 

DC TI0M2 ERROR MSG ADDRESS 

* ISSUE HALT I/O TO CLEAR CHANNEL 

XIO 2 HI0XX-T8 



10A5 




0011 


10BO 





FFFF 


10B1 




0016 


10C1 





FFFF 


10C2 




0015 


10D1 





FFOO 


10D2 




0017 


10E3 





FFFF 



2 TLGMS-TB 
TIOMS 

TIONT 

. 02 ADAPTER HUNG BUSY. 
/FFFF 

. 06 CHANNEL HUNG AFTER TEST I/O. 

/FFFF 

. A HALT I/O HAS BEEN ISSUED TO. 

/FFOO 

.TRY TO RESET THE CHANNEL CONDITION. 
/FFFF 



BSI 
DC 

MDX 

TIOM1 PRNT 

DC 
* 
TIOM2 PRNT 

DC 
TIOMS PRNT 

DC 

PRNT 

DC 
* 

* 

* 

* * 
S**************************************^.^.^.^ .,..,. .,..,. 

* 

* CALL **************** 

* * BSI L GETSN * 

* ******************* 

* 



PART NO. 

PAGE 



81223140 

81223150 

81223160 

81223170 

81223180 

81223190 

81223200 

81223210 

81223220 

81223230 

8122 3240 

81223250 

81223260 

81223270 

81223280 

8 1223290 

81223300 

81223310 

8122 3320 

81223330 

81223340 

81223350 

81223360 

81223370 

81223380 

81223390 

81223400 

81223410 

81223420 

81223430 

81223440 

81223450 

81223460 

81223470 

81223480 

81223490 

81223500 

81223510 

81223520 

81223530 

81223540 

81223550 

81223560 

81223570 

81223580 

81223590 

81223600 

81223610 

81223620 

81223630 

81223640 

81223650 

81223660 

81223670 

81223680 

81223690 

81223700 

81223710 

81223720 

81223730 

81223740 

81223750 

81223760 

81223770 

81223780 

81223790 

81 223800 

81223810 



2279468 
18 
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***** 


***** 


*** 


*********** 


*************************** 


81223820 










* 








* 


81223830 










***** 


***** 




*********** 


*************************** 


81223840 


10E4 





6916 




GTSNS 


STX 


1 


GTSNX+1 


SAVE REGS 


81223850 


I0E5 





6B17' 






STX 


3 


GTSNX+3 


*** 


81223860 


10E6 





CA41 






LDD 


2 


SCSXC-TB 


SAVE SNS CHAN STATUS 


81223870 


10E7 





DA45 






STD 


2 


SCSVS-TB 


** 


81223880 


10E8 





CA43 






LDD 


2 


SCSXC+2-TB 


** 


81223890 


10E9 





DA47 






STD 


2 


SCSVS+2-TB 




81223900 


10EA 





0A25 




GTSNO 


XIO 


2 


SENSE- TB 


SENSE I/O 


81223910 


10EB 





0A29 






XIO 


2 


SCSNO-TB 


GET CHAN STATUS 


81223920 


10EC 





D229 






STO 


2 


SCSNO-TB 


SAVE 


81223930 


10ED 





1007 






SLA 




SCAB2 




81223940 


10EE 


1 


4C10 


1104 




BNN 




GTSN2 




81223950 










* 


SIO 


ACCEPTED- WAIT 


FOR NOT BUSY 


81223960 


10F0 





0A29 




GTSN1 


XIO 


2 


SCSNO-TB 


GET CHAN STATUS 


81223970 


10F1 





1007 






SLA 




SCABZ 


TEST FOR BUSY 


81223980 


10F2 


1 


4C28 


10F0 


* 


BN 




GTSN1 


BR IF SO 


81223990 
81224000 


10F4 





0A33 






XIO 


2 


SCSN5-TB 


ALLOW POLLING 


812240 10 


10F5 





1000 




* 


NOP 






TO ALLOW INTERRUPT 


81224020 
81224030 


10F6 





C242 






LD 


2 


SCSXC+1-TB 


GET UNIT STATUS 


81224040 


10F7 





100E 






SLA 




UNCHK 




81224050 


10F8 


1 


4C28 


1104 




BN 




GTSN2 




81224060 


10FA 





6500 


;0O00 


GTSNX 


U>X 


LI 


*-* i vr 


"sRBStQBB REGS •■*(.-(•.-/. .a-j. 


81224070 


10FC 





6700 


0000 




LDX 


L3 


*-* 


*** 


81224080 


10FE 





CA45 






LDD 


2 


SCSVS-TB 


RESTORE SNS CHAN STATUS 


81224090 


10FF 





DA41 






STD 


2 


SCSXC-TB 


** 


81224100 


1100 





CA47 






LDD 


2 


SCSVS+2-TB 


** 


81224110 


1101 





DA 43 






STD 


2 


SCSXC+2-TB 


** 


81224120 


1102 


1 


4C80 


086B 


* 


BSC 


I 


GETSN 


EXIT TO CALLER 


81224130 
81224140 


1 104 


1 


4400 


149E 


GTSN2 


BSI 


L 


TCVSR 


GET SECTION / RTN NUMBERS 


81224150 


1106 





D25F 






STO 


2 


STSER+10-TB STORE IN MSG 


81224160 


1107 





1090 






SLT 




16 


Q TO A 
3* 


81224170 


1108 





D262 






STO 


2 


STSER+13-T1 


81224180 


1109 





CACB- 


'.;(. 




LDD 


2 


TYP3-TB.ivi 


•'8NS»ir ....:) 


81224190 


110A 





DA5B 






STD 


2 


STSER+6-TB 


SET IN MSG 


81224200 


HOB 





C241 






LD 


2 


SCSXC-TB 


GET CHAN STATSUS WORD 


81224210 


HOC 





1001 






SLA 




SCUSP 


TEST FOR UNIT STAT.PNDI NG 


81224220 


HOD 


1 


4C10 


1116 




8NN 




GTSN3 


BR IF NOT 


81224230 










* 


UNIT 


STATUS PEND ING 


81224240 


1 10F 





C2B8 






LD 


2 


H2100-TB 


SET MSG NUMBER 


81224250 


1110 





42F5 






BSI 


2 


TCVBE-TB 


CONVERT TO EBC 


81224260 


1111 





D25S 






STO 


2 


STSER-TB 


SET IN MSG 


81224270 


1112 





42E3 






BSI 


2 


EROUT-TB 


PRINT EROR MSG 


81224280 


1113 





11 4E 






DC 




/114E 


TAGS AND OPTIONS 


81224290 


1114 


1 


08D4 






DC 




STSER 


MESSAGE 


81224300 


1115 





7004 






MDX 




GTSNO 


GO TRY AGAIN 


81224310 










* 


NOT 


OPERATIONAL 




81224320 


1116 





C229 




GTSN3 


LD 


2 


SCSNO-TB 


GET CHAN STATUS 


81224330 


1117 





1007 






SLA 




SCABZ 


TEST FOR ADAPTER BUSY 


81224340 


1H8 


1 


4C10 


1122 




8NN 




GTSNS 


BR IF,NOT - r 


81224350 


111A 





C2B1 




* 


LD 


2 


H0100-TB 


SET MSG NUMBER TO 22 


81224360 
81224370 


111B 





82B8 




GTSN4 


A 


2 


H2100-TB 


CREATE PROPER MSG NUMBER 


81224380 


1 11C 





42F5 






BSI 


2 


TCVBE-TB 


CONVERT 


81224390 


HID 





D255 






STO 


2 


STSER-TB 


SET IN MSG 


81224400 


1 HE 





42E3 






BSI 


2 


EROUT-TB 


CALL ERROR MSG RTN 


81224410 


111F 





1 14C 






DC 




/114C 


TAGS AND OPTIONS 


81224420 


1120 


1 


08D4 






DC 




STSER 


MSG ADDRESS 


81224430 


1121 





70C8 




* 


MDX 




GTSNO 


GO TRY AGAIN 


81224440 
81224450 


1122 





C2B2 




GTSN5 


LD 


2 


H0200-TB 


SET MSG NUMBER TO 23 


81224460 


1123 





70F7 


" ■.-. '■ 




MDX 




GTSN4 : 


GO TO COMMON RTN 


81224470 










*************************************************** 


81224480 










* 








* 


81224490 



DATE 
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DATE 
EC NO. 



1124 









1124 





C2F2 




1125 





D02E 




1126 





692E 




1127 





6B2E 




1128 


1 


6580 


1157 


112A 





C029 




112B 


1 


D500 


1159 


11 2D 





C027 




112E 


1 


D500 


USA 


1130 





C025 




1131 


1 


D500 


115B 



1133 7103 

1134 6922 

1135 C022 

1136 D28C 

1137 4C80 012D 



087F 



1139 


1 


6600 


113B 





CO ID 


113C 





D2F2 


113D 





C01C 


113E 





DO 16 


113F 





C01B 


1140 





DO 15 



1141 61F7 

1142 1 C500 1165 
1144 1 D500 1162 

1146 7101 

1147 70FA 



1 148 1 
114A 



74FD 
7006 



1157 



114B 1 6580 1155 

114D 1 6780 1156 

114F 1 4C80 0871 

1151 C006 

1152 028C 

1153 70F7 



1154 0000 

1155 0000 

1156 0000 

1157 O 0000 

1158 1 1139 



14N0V69 
431319 



30JAN70 
431319A 



SAVE INDEX REGISTERS AND GO TO MONITOR 



* 



*************************************************** 



*************************************************** 

STMLE EQU * 

GET CALLING ADDRS 

PUT IN TEMP SAVE AREA 

PUT REGS IN SAVE AREA 

** 

GET Q LOCATION 



LD 
STO 
STX 
STX 



2 STMLS-TB 
ST MSA 

1 STMSA+1 

3 STMSA+2 



LDX II STMPT 



LD STMSA 

STO LI STMST 

LD STMSA+1 

STO LI STMST+1 

LD STMSA+2 

STO LI STMST+2 



MOX 
STX 

LD 

STO 

BSC 



1 +3 

1 STMPT 

STMRT 

2 MLSC2-TB 
I START 



GET I REG 
PUT IN O 
GET XR1 
PUT IN Q 
GET XR3 
PUT IN Q 

BUMP Q POINTER 
SAVE 

SET UP MONITOR RETURN 



GO VISIT MONITOR 
RETURN FROM MONITOR HERE 



* 
* 

STMLX LDX L2 TB 



LD 


STMST 


STO 


2 STMLS-TB 


LD 


STMST+1 


STO 


STMSA+1 


LD 


STMST+2 


STO 


STMSA+2 



SET UP TABLE PNTR 
GET ENTRY LOC 
PUT IN RETURN 

GET XR1 

PUT IN TEMP SAVE 

GET XR2 

PUT IN TEMP SAVE 



LDX 



1 -9 



MOVE ALL SAVED 

* PARAMETERS UP 3 

* PLACES IN Q 

* 

DECREMENT Q POINTER 
IF NOT 0. CONTINUE 

ELSE RESTORE PARAMETERS 

* 

RETURN 



STMLL LD LI STMST+12 

STO LI STMST+9 

MDX 1 +1 

MDX STMLL 

MDX L STMPT ,-3 

MDX STMPS 
* 

STMSE LDX II STMSA+1 

LDX 13 STMSA+2 

BSC I STMLS 

* GET HERE IF ENTRYS NEED SERVICING 
STMPS t LD STMRT SET UP RETURN TO 

STO 2 MLSC2-TB * STMLS ROUTINE 

MDX STMSE EXIT 
* 

* TEMPORARY SAVE AREA 
* 

STMSA DC *-* 

DC *-* 

. DC *-* 
* 

STMPT DC Q POINTER 

STMRT DC STMLX RE-ENTRY LOCATION 

* ■ * 

* QUEUED SAVE AREA 



15SEP71 
431328 



81 224500 

81224510 

81224520 

81224530 

81224540 

81224550 

81224560 

81224570 

81224580 

81224590 

81224600 

81224610 

81224620 

81224630 

81224640 

81224650 

81224660 

81224670 

81224680 

81224690 

81224700 

81224710 

81224720 

81224730 

81224740 

81224750 

81224760 

81224770 

81224780 

81224790 

81224800 

81224810 

81224820 

81224830 

81224840 

81224850 

81224860 

81224870 

81224880 

81224890 

81224900 

81224910 

81224920 

81224930 

81224940 

81224950 

81224960 

81224970 

81224980 

81224990 

81225000 

81225010 

81225020 

81225030 

81225040 

81225050 

81225060 

81225070 

81225080 

812250 90 

81225100 

81225110 

81225120 

81225130 

81225140 

81225150 

81225160 

81225170 
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1159 0000 
115A 0000 
115B 0000 

11SC 0000 
115D 0000 
115E 0000 

115F 0000 

1160 0000 

1161 0000 

1162 0000 

1163 0000 

1164 0000 
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DATE 
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STMST 


DC 


*-* 


I 1 




DC 


*-* 


XR1 1 




DC 


*-* 


XR3 1 


* 










DC 


*-* 


I 2 




DC 


*-* 


XR1 2 




DC 


*-* 


■ XR3 2 


* 










DC 


*-* 






DC 


*-* 






DC 


*-* 




* 










DC 


*-* 






DC 


*-* 






DC 


*-* 





********************** ****************** 

* 

**************************************** 

* 

* TERLP IS CALLED BY A **BSI 2 TLPER-TB** 

* TO TEST THE LOOP ERROR OPTION AND 

* BR TO THE LOOP ADD R IF BIT 12 IS SET 



*********** 

* 
*********** 81225360 

* 81225370 
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81225180 
81225190 
81225200 
81225210 
81225220 
81225230 
81225240 
81225250 
81225260 
81225270 
81225280 
81225290 
81225300 
81225310 
81225320 
81225330 
81225340 
81225350 



* 81225380 

* 81225390 

* 81225400 
* * 81225410 

*************************************************** 8122 5420 

„. * 81225430 

*************************************************** 81225440 

,. 81225450 

GET OPTION SWS 81225460 

TEST LOOP ON ERROR 

YES 



1165 





C2S3 




TERLP 


LD 


2 


TSWO-TB 


1166 





100C 






SLA 




OLPER 


1167 


i 


4C28 


116D 


* 


BN 




TER01 


1169 


1 


7401 


0886 


MDX 


L 


TLPER.l 


116B 


1 


4C80 


0886 


* 
TER01 


BSC 


I 


TLPER 


116D 


1 


C480 


0886 


LD 


I 


TLPER 


116F 





D001 






STO 




TER02+1 


1170 





AW 


oWo 


TER02 

* 


BSC 


L 


*-* 



NO. BUMP RETURN 
CONTINUE 

GET LOOP ADDRESS 
PUT IN RETURN 
-CONTI-NUE - 



81225470 
81225480 
81225490 
81225500 
81225510 
8122S520 
81225530 
81225540 
81225550 
81225560 

*************************************************** 8122 5570 
, * 81225580 

*************************************************** 81225590 

* 

* 
* 
* 
* 

* 



TSTLP IS CALLED BY A **BS I 2 TLPST-TB** 
TO TEST THE LOOP START I/O OPTION 
AND BR TO THE LOOP ADD R IF BIT 
8 IS SET 



1172 C283 

1173 fdtftf ""-'" 

1174 1 4C28 117A 



1176 
1178 



7401 0889 
4C80 0889 



117A 1 C480 0889 

117C D001 

117D 4C00 0000 

117F 1 74FD 0889 

1181 1 C400 0889 

1183 DOOl- :r " 

1184 4C00 0000 



81225600 
81225610 
81225620 
81225630 
81225640 
81225650 
*************************************************** 81225660 

* * 81225670 
*************************************************** 81225680 

* 81225690 
TSWO-TB GET OPTION SWS 81225700 
OLPST TEST LOOP SIO <= 81225710 
TST01 YES 81225720 

81225730 
TLPST.l NO. BUMP RETURN 81225740 

TLPST CONTINUE 81225750 

81225760 
TLPST GET LOOP ADDRESS 81225770 

TST02+1 PUT IN RETURN 81225780 

*-* CONTINUE 81225790 

81225800 
TLPST. -3 60 BACK 81225810 

TL PST 81225820 

TST04+1 •■ -. . ■--■- 81225830 

*_* 81225840 



TSTLP LD 
SLA 

BN 
* 

MDX 

BSC 



* 
TST0 1 



LD 
STO 

TST02 BSC 

* 

TST03 MDX 
LD 
STO 

TST04 BSC 



*************************************************** 8122 5850 



14N0V69 30JAN70 15SEP71 
431319 431319A 431328 
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19A 



c 

c 
c 

s"\ 

o 

o 

c 
c 
c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
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1 186 C2FE 

1187 D2FB 

1188 7004 

1 189 

1189 C283 
118A 100E 
1188 1 4C10 119C 

118D C2FB 

118E 42F5 

118F D01F 

1190 1090 

1191 D01E 

1192 4204 

1193 1 119E 

1194 C297 

1 195 EA83 

1196 D283 



X197 42F2 

1198 C283 

1199 1 4C04 1197 

1198 42F2 

119C 1 4C80 087A 



*********** ********************************** **,j;4** 

* HALT ROUTINE 

* SETS BIT 15 IN TSWO ON AND LOOPS 

* THRU MONITOR UNTIL BIT IS CLEARED. 
* 

* * 

* ENTER HERE FOR 'WAIT FOR OPERATOR ACTION" 
THLTX LD 2 THLT-TB GET ENTRY VECTOR 

STO 2 THALT-TB PUT IN RETURN 

MDX THLTG GO TO LOOP 

* ENTER HERE FOR 'WAIT ON ERROR* 
THLTE EQU * 





LD 


2 


TSWO-TB 


GET OPTION SWS 




SLA 




OHALT 


TEST FOR HALT ON ERR 


* 


BNN 




THLTR 


BR IF NO 


THLTG 


LD 


2 


THALT-TB 


GET CALLING ADDRESS 




BSI 


2 


TCVBE-TB 


CONVERT TO PRNT CODE 




STO 




THLT2 


SET IN MSG 




SLT 




16 


TO A 




STO 




THLT2+1 


SET IN MSG 




BSI 


2 


TLGMS-TB 


GO PRINT MSG 


* 


DC 




THLTM 


MESSAGE ADDRESS 




LD 


2 


Kl-TB 


SET BIT IS 




OR 


2 


TSWO-TB 


* 




STO 


2 


TSWO-TB 


* 



* 

* 

* 

THLTL BSI 2 STMLS-TB 

* RETURN HERE 

LD 2 TSWO-TB 

BOD THLTL 

* 

BSI 2 STMLS-TB 

THLTR BSC I THALT 

* 



LOOP THRU MONITOR UNTIL READY 

GO TO MONITRR 

GET SWITCH WORD 
BR IF STILL ON 

GO TO MONITOR 
RETURN TO CALLER 



U9E 




0017 


THLTM 


PRNT 


. ***HALT 2311 


DIAGNOSTIC A 


11AF 




0002 


THLT2 


PRNT 


* * 




1181 





OOFF 




DC 


/OOFF 




11B2 




0014 




PRNT 


. TO CLEAR HALT 


SET SWITCHES 


11C0 





OOFF 




DC 


/OOFF 




1 1C1 




0011 




PRNT 


. S/P OOPP PPPP 


, P=PID. 


11CC 





OOFF 




DC 


/OOFF 




1 1CD 




0012 




PRNT 


. DES XXXX XXXX 


XXXX XXXO. 


11D9 





OOFF 




DC 


/OOFF 




11 DA 




0012 




PRNT 


. PRESS CONSOLE 


INTERUPT. 


11E6 





FFFF 




DC 


/FFFF 





*************************************************** 

* * 

*************************************************** 
* 

* CALL ************************** 

* * BSI 2 EROUT-TB * 

* * DC /0127 CNTRL TAGS * 

* * DC /ABCD ERR NUMBER * 

* * (SECT.RT.ER) * 

* ***************************** 
* 
*********************************************** **** 

* * 

************************************* ******** 4! j ;¥i .jj [S . 
* 
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81 225860 

81225870 

81225880 

81225890 

8122 5900 

81225910 

8122 5920 

81225930 

81225940 

81225950 

81225960 

81225970 

81225980 

81225990 

81226000 

81226010 

81226020 

81226030 

81226040 

8122 60 50 

812260 60 

81226070 

81226080 

81226090 

81226100 

81226110 

81226120 

81226130 

81226140 

81226150 

81226160 

812261 70 

81226180 

81226190 

81226200 

81226210 

81226220 

81226230 

8122 6240 

81226250 

81226260 

81226270 

81226280 

81226290 

81226300 

81226310 

81226320 

81226330 

81226340 

81226350 

81226360 

81226370 

81226380 

81226390 

81226400 

81226410 

SI 226420 

81226430 

81226440 

81226450 

81226460 

81226470 

81226480 

81226490 

81226500 

81226510 

81226520 

81226530 



1800 DIAGNOSTIC MAINTENANCE PROGRAM 



EQUATES FOR EROUT TAGS 



0000 





000 1 





0002 


c 


0003 





0006 





0007 





0009 





OOOA 





0008 





OOOC 





OOOD 





OOOE 





OOOF 






11E8 
1 IE8 
11EE 
122A 
122A 
122B 
122D 
122F 
1231 
1233 
1234 
1236 
1237 
1238 
1239 
123A 
123B 
123C 



1230 1 

123F O 

1240 

1241 1 

1243 

1244 1 



0000 
0006 
003C 

C2D9 

4C20 123D 

6000 12FA 

6F-00.- a-aRC. 

C480 0862 

100A 

4C10 1230 

C2E3 

D2D9 

42EC 

C2D9 

D2E3 

1010 

D2D9 

67r80yjOa:62.'. 

C300 

1007 

4C10 1245 

4204 

080C 



* 

OECXO 

OECX4 

OECX8 

OECXC 

OEXIT 

OEPBL 

OEBYP 

OEGSN 

0EL1B 

OEERR 

OECAW 

OECSW 

OESNS 

***** 

* 

***** 

ERMSG 

PRINT 
ERTNE 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 





1 

2 

3 

6 

7 

9 

10 

1 1 

12 

13 

14 

15 



cstv=scsxo 

CSW=SCSX4 
CSW=SCSX8 
CSW=SCSXC 
EXIT TO ERADR 
PRINT A BLANK LINE 
BYPASS HALT LOOP 
GET SENSE BYTES 
BYPASS LINE 1 
PRINT ERROR MSG 
PRINT CAW 

* CSW 

* SNS 



******************************** 



********* 



********* 
BSS E 
PRNT 
BSS E 
EQU 
LD 
BNZ 
STX 
STX 
LD 
SLA 
BNN 
LD 
STO 
BSI 
LD 
STO 
SLA 
STO 



LI 
-L3 

I 



********* 



. **ER-XX 

60 

* 

STKSW-TB 

ERTN2 

ERT17+1 

ERT17+3 

EROUT 

OEGSN 

ERTN2 

EROUT-TB 

STKSW-TB 

GETSN-TB 

STKSW-TB 

EROUT-TB 

16 

STKSW-TB 



1245 C300 

1246 100B 

1247 1 4C28 127D 
1249 1001 
124A 1 4C10 125D 



* 
ERTN2 



* 
ERTN3 



LDX 

LD 

SLA 

BNN 

BSI 

DC 



13 
3 



EROUT 



OEPBL 

ERTN3 

TLGMS-TB 

TERM 



**************************** 

XX . 

PRINT BUFFER 
ENTRY POINT 
GET RE-ENTRY SWITCH 
BR IF SET 

SAVE REGS 

- '- -**t ci- '. j i c-u * - .- 

GET FLAGS 

GET SENSE BYTES 

BR IF NO 
GET RETURN ADDRS 
SET SW 

GET SENSE BYTES 
GET SAVED ADDRESS 
SET FOR RETURN 
CLEAR SWITCH 



L SE-T iReG WW F"HTXi> i 

GET OPTIONS/FLAGS 
PRINT BLANK LINE FIRST 
BR IF NOT 
PRINT BLANK LINE 
/FFFF 



124C 





6100 






LDX 


1 





124D 





C301 






LD 


3 


1 


124E 





D00 1 






STO 




ERTN4+1 


1-24F- 


e- 


C500. 


OAOCK- 


ERTN4 


LD 


L3 


*-* 


1251 





F2SD 






EOR 


2 


TERM-TB 


1252 


l 


4C18 


1259 




BZ 




ERTN5 


1254 





F28D 






EOR 


2 


TERM-TB 


1255 


i 


D500 


1 1EB 




STO 


LI 


ERMSG+3 


1257 





7101 






MDX 


1 


1 


1258 





70F6 




* 
ERTN5 


MDX 




ERTN4 


1259 


1 


7500 


1 1EB 


MDX 


LI 


ERMSG+3 


125B 





1000 






NOP 






125C 





7009 




* 
ERTN6 


MDX 




ERTN7 


1250 





C3C1 




LD 


3 


1 



LD 3 GET TAGS 

SLA 0EL1B BYPASS LINE 1 PRINT 
BN ERT10 BR IF YES 

SLA 0EERR-0EL1B ERROR MSG 
BNN ERTN6 BR IF NOT 



SET COUNT TO ZERO 

GET MSG ADDRESS 

SET FOR LOAD INSTRUCTION 

GET WORD TO' MOVE 

IS IT END OF MSG 

BR YES 

RESTORE DATA WORD 

STORE IN TABLE 
COUNT 
LOOP 
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12SE 42F5 
125F D08B 



BSI 2 TCVSE-TB 
STO ERMSG+3 



POINT TO NEXT WORD 



GET MSG NUMBER 
CONVERT TO 43 CODE 
STORE 



81226540 

81226550 

81226560 

8122 6570 

81226580 

81226590 

81226600 

81226610 

81226620 

81226630 

81226640 

81226650 

81226660 

81226670 

8 1226680 

81226690 

81226700 

81226710 

81226720 

81226730 

81226740 

81226750 

81226760 

81226770 

81226780 

81 226790= 

81226S00 

81226810 

81226820 

81226830 

81226840 

81226850 

81226860 

81226870 

81226680 

81226890 

81226900 

8122 6910 

81226920 

81226930 

81226940 

81226950 

81226960 

81226970 

81226980 

81226990 

81227000 

81227010 

81227020 

81227030 

81227040 

81227050 

81227060 

612270 70 

81227080 

81227090 

81227100 

81227110 

81227120 

81227130 

81227140 

Si 227150 

81227160 

81227170 

312271 SO 

81227190 

81227200 

81 227210 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 

PAGE 



0812-B 
20 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 15SEP71 

431319A 431328 



PROG ID 
PAGE 



0812-B 
2 0A 



IP 

c 
c 

c 
c 
c 

c 
c 

c 

c 
c 
c 
c 

c 
c 
c 

r~ 

c 

/— ■• 

w 

r~- 

c 
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PART NO. 
PAGE 



2279468 
21 



1260 18D0 

1261 D08A 

1262 10 10 






XCH 
STO 
SLA 


ERMSG+4 
16 


SWAP A-Q 

SET IN TWO BLANKS 


81227220 
8122 7230 
81 227240 


1263 0089 






STO 


ERMSG+5 


»* 


81227250 


1264 1 6500 


1 1EE 


* 
EH 


LDX 


LI PRINT 


SET POINTER 


81 22 7260 


1266 0.C2D4 




TN7 LD 


2 DVADR-TB 


GET DEVICE ADDRESS 


81227270 
81 227280 


1267 42F5 

1268 1090 






BSI 
SLT 


2 TCVBE-TB 
16 


CONVERT TO 43 CODE 

LOW ORDER TWO BYTES ONLY 


8122 72 90 
81227300 


1269 D268 






"STO 


2 UNADR+3-TB STORE FOR PRINT 


81227310 


1 26A C2E3 
126B 9297 






LD 


2 EROUT-TB 


GET CALLING ADDRESS 


81227320 






S 


2 Kl-TB 


POINT TO CALLING INSTRUCTN 81227330 


126C 42F5 






BSI 


2 TCVBE-TB 


CONVERT TO HEX 


81 227340 


126D D26C 






STO 


2 UNADR+7-TB 


81227350 


126E 1090 
126F D26D 






SLT 

STO 


16 

2 UNADR+8-TB 


81227360 
81227370 


1270 6904 






STX 


1 ERTN8+3 


SAVE REG IN INSTRUCTION 


81227380 


1271 6100 




* 
ER 


LDX 


1 


SET COUNT 


8122 7390 


1272 1 C500 


08E4 


riNS LD 


LI UNADR 


GET WORD TO MOVE 


81227400 
8 1227410 


1274 0500 


0000 




STO 


LI *-* 


STORE IN NEW LOC'N 


81227420 


1276 F28D 






EOR 


2 TERM-TB 


TEST FOR END OF MSG 


81227430 
81227440 
81227450 
81227460 


1277 1 4C18 
1279 7101 
127A 70F7 


127B 


* 
ER" 


BZ 

MDX 

MDX 


ERTN9 
1 1 

ERTN8 


BR IF YES 
BUMP COUNT 
LOOP 


127B 4204 




"1\'9 BSI 


2 TLGMS-TB 


GO PRINT MSG 


81227470 
81227480 


127C 1 11E8 






DC 


ERMSG 


ADDRESS OF MESSAGE 


81227490 






* 


— CAW ADDRESS 


OF CCW CHAIN 


81 227500 


127D C300 
127E 100D 




ERT10 1_D 
SLA 


3 

OECAW 


GET TAGS 

TEST FOR CAW, CSW, SNS 


81227510 
81 227520 


127F 1 4C18 


12F2 




BZ 


ERT15 


BR IF NONE 


81227530 


1281 1 6500 


11EE 




LDX 


LI PRINT 


SET POINTER TO AREA 


81227540 


1283 1 4C10 

1285 10A0 

1286 0900 


128F 




BNN 
SLT 
STD 


ERT11 
32 
1 

1 2 

2 PCAW-TB 
1 


BR IF NO CAW 


81227550 
81227560 


1287 7102 






MDX 




81227570 


1288 CACD 

1289 D900 






LDD 
STD 


GET HEADER 
STORE IN AREA 


81227580 
81227590 

81227600 


128A C2C6 






LD 


2 CAWSV-TB 


GET CCW ADDRESS FOR SIO 


81227610 


128B 42F5 






BSI 


2 TCVBE-TB 


CONVERT TO EBC 


81227620 


128C D902 






STD 


1 2 


STORE IN AREA 


81227630 


1 28D 7104 
128E 1000 






MDX 

NOP 


1 4 


BUMP POINTER 


81227640 
81227650 






* 


CSW CHANNEL 


DSW WORDS 


81227660 


128F C300 
1290 100E 




ERT11 LD 

SLA 


3 

OECSW 


GET TAGS 

TEST FOR CSW TO BE PRINTED 


81227670 
81227680 


1291 1 4C10 


12C1 




BNN 


ERT12 


BR IF NOT 


81227690 


1293 C300 






LD 


3 


GET OPTION WORD 


81 227700 


1294 1 6700 


08B4 




LDX 


L3 SCSXO 


POINT TO CSW SAVE AREA 


81227710 


1296 180C 






SRA 


12 


SAVE BITS 0-3 


81227720 


1297 100C 

1298 4830 






SLA 
SKP 


12 

Z- 
3 4 

1 

Z- 
3 4 

1 

2 — 


*** 


81227730 


1299 7304 
129A 1001 
129B 4830 






cMDX 
SLA 
SKP 


BUMP TO NEXT SAVE AREA 
TEST NEXT BIT 


-81227740 
81227750 
8122 7760 


129C 7304 
129D 1001 
129E 4830 






MDX 
SLA 

SKP 


BUMP TO NEXT SAVE- AREA 
TEST NEXT BIT 


81227770 
81227780 
81227790 


129F 7304 
12A0 1001 
12A1 4830 






MDX 
SLA 
SKP 


3 4 

1 

Z- 
3 4 


BUMP' TO NEXT SAVE AREA 
TEST NEXT BIT 


81227800 
81227810 
81227820 


12A2 7304 






MDX 


BUMP TO NEXT SAVE AREA 


81227830 
61227840 


12A3 CACF 
1 2A4 D902 
12A5 C300 






LDD 
STD 
LD 


2 PCSW-TB 
1 2 

3 


GET >CSW « 
SET IN MSG 
GET CHANNEL STATUS WORD 


81227850 
8122 7860 
81227870 


1 2A6 42F5 
12A7 D904 






BSI 
STD 


2 TCVBE-TB 
1 4 


CONVERT 
STORE 


81227B8G 

81227890 
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■x 



J 



12A8 

12A9 O 

12AA 

1 2AB 

12AC 



12AD 



12AE 

12AF 

12B0 

12B1 

12B2 

12B3 

12B4 O 

12B5 

12B6 

12B7 

12B8 

12B9 

12BA 

12BB 

12BC 

12BD 

12BE 

12BF 



C301 
42F5 
D107 
1090 
D108 
C302 
42F5 
D90A 
C303 
42F5 
D10D 
1090 
D10E 
C2D3 
D100 
D101 
D106 
D109 
D10C 
D10F 
Dill 
71 OF 
1000 
6780 0862 



12C1 
12C2 
12C3 
12C5 
12C6 
12C7 
12C8 
12C9 
12CA 
12CB 
12CC 
12CD 



12EB 



12CE 

12CF 

12D0 

12D1 

12D2 

12D3 

1204 

12D5 

12D6 

12D7 

12D8 

12D9 

12DA 

12DB 

12DC 

12DD 

12DE 

12DF 

12E0 

12E1 

12E3 

12E4 

12E5 

12E6 

12E7 

1 2E8 1 

12EA O 



C300' 

100F 

4C10 

CADI 

D100 

1090 

D101 

7103 

1000 

C29D 

D0A8 

CA1D 



18DC 

DAC7 

108C 

1010 

1081 

1003 

1081 

1003 

1081 

1003 

1081 

42F5 

D100 

1090 

D101 

7=102 ''-•■ 

1000 

C095 

8297 

4C04 12E7 

C2D3 

D100 

7101 

1000 

CAC7 

74FF 

70E3 



1275 



I2EB C28D 
12EC D100 



LD 

BSI 

STO 

SLT 

STO 

LD 

BSI 

STD 

LD 

BSI 

STO 

SLT 

STO 

LD 

STO 

STO 

STO 

STO 

STO 

STO 

STO 

MD X 

NOP 

LDX 

* SNS 

ERT12 LD 
SLA 
BNN 
LDD 
STO 
SLT 
STO 
MDX 
NOP 
LD 
STO 
LDD 

* 

ERT13 RTE 
STD 
SLT 
SLA 
SLT 
SLA 
SLT 
SLA 
SLT 
SLA 
SLT 
BSI 
STO 
SLT 
STO 
MDX 
NOP 
LD 
A 

BOD 
LD 
STO 
MDX 
NOP 
LDO 
MDX 
M>X 

* 

ERT14 LD 

STO 



3 
2 

1 

1 

3 
2 
1 
3 
2 
1 

1 
2 
1 
1 
1 
1 
1 
1 
1 
1 

13 



TCVBE-TB 

7 

16 

8 

2 

TCVBE-TB 

10 

3 

TCVBE-TB 

13 

16 

14 

SPACE-TB 



1 

6 

9 

12 

15 

17 

15 

EROUT 

GET 2311 


OESNS 
ERT14 
PSNS-TB 
O 
16 
1 
3 

K8-TB 

ERTN8+3 

SNWDS-TB 

28 

ERTSV-TB 

12 

16 

1 

3 

1 

3 

1 

3 

1 

TCVBE-TB 

O 

16 

1 

2 

ERTNS+3 

Kl-TB 

* + 4 

SPACE-TB 

O 

1 

ERTSV-TB 

ERTN8+3.-1 

ERT13 

TERM-TB 




PART NO. 2279468 
PAGE 21 A 



GET UNIT STATUS 


WORD 


81227900 


CONVERT 




81227910 


STORE 




81227920 
81227930 


STORE 




81227940 


GET CSW ADDRESS 


WORD 


81227950 


CONVERT 




81227960 


STORE 




81227970 


GET BYTE COUNT 




81227980 


CONVERT 




81227990 


STORE 




81228000 


Q TO A 




81228010 


STORE 




81228020 


GET SPACES 




81228030 


** 




81228040 


** 




8122 8050 


SET IN BETWEEN 




81228060 


SET IN BETWEEN 




81228070 


SET IN BETWEEN 




81228080 
81228090 


CLEAR NEXT SLOT 


TOO 


81228100 


BUMP POINTER 




81228110 
81228120 


RESTORE REG 




81228130 


SENSE INFORMATION 


81228140 


GET-TA6S 


— -- ~ - - 


81-228150 


TEST FOR SNS INFO 


81228160 


BR IF NO 




81228170 


GET HEADER WORDS 


81228180 


STORE 




81228190 
81228200 


STORE 




81228210 


BUMP POINTER 




81228220 
81228230 
81228240 


SAVE TEMPORARILY 


81228250 


GET SENSE INFO 




81228260 




- 


81228270 


MOVE AROUND 




812282 80 


SAVE FOR LOOP 




81228290 
81228300 
81228310 
81228320 
81228330 
81228340 
81228350 
81228360 
81228370 
81228380 


CONVERT TO HEX 




8122 8390 


STORE IN TBLE 




81228400 


Q TO A 




81228410 


STORE 




81228420 


BUMP POINTER 




81228430 
81228440 


FETCH COUNTER 




81228450 


ADD ONE 




81228460 


BRANCH IF ODD 




81228470 


FETCH SPACE CHARACTERS 


8122 84 80 


PLACE IN PRINT 


LINE 


81228490 


ADVANCE PRINT LINE POINTER 


81228500 






81228510 


GET SENSE INFO 


BACK 


81228520 


COUNT 




81228530 


LOOP UNTIL FINISHED 


81228540 






81228550 


SET /FFFF AT 


END 


81228560 


£ a 




81228570 



! 



^y 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG 


! 


0812-6 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 




2! 


EC NO. 


431319 


431319A 


431328 



PROG ID 
PAGE 



08 1 2-B 
21 A 
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12ED 





4204 






esi 


2 


TLGMS-TB 


PRINT MESSAGE 


81228580 


12EE 


1 


11EE 






DC 




PRINT 




81228590 


12EF 





C2D9 






LD 


2 


STKSW-TB 


GET SWITCH 


81228600 


12F0 


1 


4C20 


12FF 


* 


BNZ 




ERT18 


EXIT IF SET 


81228610 
81228620 


12F2 





C300 




ERT15 


LD 


3 





GET TAGS 


81228630 


12.F3 





1009 






SLA 




OEBYP 




81228640 


12F4 


1 


4C28 


12F7 




BN 




ERT16 


BR IF NOT HALT 


81228650 


12F6 





42FB 




* 


BSI 


2 


THALT-TB 


WAIT FOR OPERATOR 


81228660 
81228670 


12F7 





C300 




ERT16 


LD 


3 





GET TAGS 


81228680 


12F8 





1006 






SLA 




OEXIT 


TEST FOR OTHER EXIT 


81228690 


12F9 





6500 


0000 


ERT17 


LDX 


LI 


*-* 


RELOAD REGS 


81228700 


12F8 





6700 


0000 




LDX 


L3 


*_* 


*** 


81228710 


12F0 


1 


4CA8 


1303 


* 


BN 


I 


ERADR 


BR IF YES 


81228720 
81228730 


12FF 


1 


7402 


0862 


ERT18 


MDX 


L 


ER0UT.2 


BUMP RETURN BY TWO 


81228740 


1301 


1 


4C80 


0862 




BSC 


I 


EROUT 


EXIT 


81228750 


1303 





0000 




ERADR 


DC 




*-* 


RETURN ADDRESS PUT HERE 


81228760 










***** 


***** 


*** 


************************************** 


81228770 










* 








* 


81228780 










***** 


***** 


*** 


************************************** 


81228790 










***** 


***** 


*** 


************************************** 


81228800 










* 








* 


81228810 










***** 


***** 


*** 


************************************** 


81 228820 










* 










81228830 










* 










81228840 










***** 


***** 


*** 


************************************** 


81228850 










* 








* 


81228860 










***** 


***** 


*** 


************************************** 


81228870 


1304 









TLGME 


EQU 




* 


ENTRY POINT 


81228880 


1304 





C2D5 






LD 


2 


LGBSY-T8 


GET LOG BUSY SW 


81228890 


1305 


1 


4C18 


1309 




BZ 




TLGNB 


BR IF NOT BUSY 


81228900 


1307 





42F2 






BSI 


2 


STMLS-TB 


GO VISIT MONITOR 


81228910 


1308 





70FB 




=& 


B 




TLGME 


ELSE LOOP 


81228920 
81228930 


1309 





C204 




TLGNB 


LD 


2 


TLGMS-TB 


GET CALLING ADDRS 


81228940 


130A 





D2DS 






STO 


2 


LGBSY-TB 


SET LOG BUSY SW 


81228950 


130B 


1 


D400 


13F8 




STO 


L 


LEXIT+1 


SET RETURN ADDRS 


31228960 


130D 


1 


6F00 


13F2 




STX 


L3 


TLGX3+1 


SAVE REG 


81228970 


130F 


1 


6000 


13F4 




STX 


LI 


TLGX3+3 


SAVE REG 


81228980 


1311 





C283 






LD 


2 


TSWO-TB 


GET OPTION SWS 


81228990 


1312 





100D 






SLA 




OBYPR 




81229000 


1313 


1 


4C28 


13EF 


* 


BN 




TLGEN 


BR IF BYPASS PRNTOUT 


81229010 
81229020 


1315 





C294 






LD 


2 


TLGED-TB 


GET EDIT FOR PRINTER 


81229030 


1316 


1 


4C10 


1319 




BNN 




TLG01 


BR IF NOT SELECTED 


81229040 










********** 


******************************** ********* 


81229050 


1318 





7 OFF 






MO X 




*-l 


TRAP STOP 


81229060 










***** 


***** 


***************************************** 


81229070 










* 


RELEASE 


SC IN CASE SHARED CHANNEL 


81229080 


1319 





C295 




TLG01 


LD 


2 


TSCED-T8 


GET DDEF 


81229090 


131A 


1 


4C10 


1328 


* 


BNN 




TLG02 


BR IF NOT SEI 


81229100 
81229110 


131C 





1010 






SLA 




16 


CLEAR CHANNEL FREED SW 


81229120 


131D 


1 


D400 


13F9 




STO 


L 


FRESW 


* 


81229130 


131F 





C2A0 






LD 


2 


K20-TB 


SET COUNTER FOR DELAY 


81229140 


1320 





D22B 






STO 


2 


SCSN1-TB 


** 


81229150 


1321 





42F2 






BSI 


2 


STMLS-TB 


GO TO MONITOR 


81229160 


1322 


1 


74FF 


08AA 




M3X 


L 


SCSN1 ,-1 


DECR. COUNTER 


81229170 


1324 





70FC 




* 


MDX 




*-4 


LOOP UNTIL FINISHED 


81229180 
81229190 


1325 





42E6 






BSI 


2 


FREDV-TB 


FREE SEL CHNL 


81229200 


1326 


3 


6C00 


13F9 




STX 


L 


FRESW 


SET SC FREED SW 


81229210 


1328 





4480 


0131 


TLG02 


BSI 


I 


REQO V 


REQUEST DEVICE 


81229220 


132A 


1 


1341 






DC 




TLG03 


BUSY RETURN 


8 1229230 


1328 


1 


08X3 






DC 




TLGED 


ED IT FOR PRINTED 


81229240 


132C 


1 


13B5 






DC 




TLGDA 


AREA CODE GIVEN BACK 


81229250 
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132D 1 080C 

132E C2DF 

13 2F 1 4C04 1336 

1331 C2B1 

1332 1 ECOO 1385 

1334 D24E 

1335 7004 



13B5 



1336 





C2B4 


1337 


1 


ECOO 


1339 





D24E 


133A 





C2B5 


133B 


1 


ECOO 


133D 





0250 


133E 





EA97 


133F 





D254 


1340 





7002 



13B5 



1341 42F2 

1342 70E5 



1343 1 

1345 

1346 

1347 
1349 1 
134B 1 
134D 



6580 13F8 
C100 

DtOO-l -. ... c .. 

6500 0000 

60 00 13FC 

6780 08CC 
6B16 



134E C100 

134F F28D 

1350 1 4C18 1356 

1352 C280 

1353 E2BC 

1354 O 42<=5--i<j-.-. 

1355 DB02 



1356 
1357 
1358 
1359 
135A 
135B 
135C 



135D 1 



135F 
1360 
1361 
1362 
13 63 
1365 1 

1367 

1368 O 

1369 
136A 
136B 
13 6C 
13 6D 
136E 



1010 
0252 
D2S3 
D05A 
C299 
D300 
730 1 

4400 13FA 
700F 
1008 
EA4F 
0303 

7401- 000,0 
4400 13FA 
7007 
1888 
C303 
1808 
1088 
D303 
7301 
70EE 



* 
TLG40 



TLGCM 



* 
TLG03 



* 
TLG04 



* 
TLG05 



* 
TLG06 



TLGBP 



136F C2DF 



* 
* 
* 
* 
T',G07 



DC 

LD 
BOD 

LD 
OR 
STO 
MDX 

LD 

OR 

STO 

LD 

OR 

STO 

OR 

STO 

MDX 

BSI 
MDX 

LDX 

LD 

STO 

LDX 

STX 

LDX 

STX 

LD 

EOR 

BZ 

LD 
AND 
BSI 
STD 

SLA 

STO 

STO 

STO 

LD 

STO 

MDX 

BSI 

MDX 

SLA 

OR 

STO 

MDX 

BSI 

MDX 

SRT 

LD 

SRA 

SLT 

STO 

MD X 

MDX 

TEST 

IF I 



TERM 



TERMINATOR 



2 T45SW-T8 GET 43/53 SW 

TLG40 BR IF 1443 

2 H0100-TB ELSE BUILD WRITE IOCC 

L TLGDA * 

2 TLGWR+1-TB * 

TLGCM * GO TO COMMON RTN 

2 H0500-TB CREATE WR IOCC 

L TLGDA OR IN AREA CODE 

2 TLGWR+1-TB 

2 H0700-TB CREATE SENSE IOCC 

L TLGDA OR IN AREA CODE 

2 TLGSN+1-TB 

2 Kl-TB SET RESET BIT 

2 TLGSR+1-TB *** 

TLG04 GO TO PRINT 



2 STMLS-TB 
TLG02 

II LEXIT+1 
1 O 

*+i L. 

*-* 

TLGCH+2 
13 TLGWR 

3 TLGBP+1 



LI 
LI 



1 

2 TERM-T8 
TLG05 

2 TPID-TB 

2 H7FFF-TB 

2 TCVBE-TB- 

3 2 



L 
L 



16 

TLGSW-TB 
TLGSW+1-TB 
TLGIS 
K3-TB 


1 

TLGCH 
TLG07 
8 

TLGSP- 
3 

*-*.! 
TLGCH 
TLG07 
8 

3 
8 
8 



3 
3 



TLG06 



GO TO MONITOR 
LOOP TO TRY AGAIN 

GET CALLING RTN ADDR 

GET MSG ADDRESS 
-- SEIx.POR LOAD INDEX ;.:<■< 

LOAD REG 
SAVE IN 'GET CHAR* RTN 

GET WRD COUNT ADDRESS 

SET FOR BUMPING 

GET FIRST DATA WORD 
COMPARE WITH /FFFF 
BR IF YES 

GET PID 

DROP SELECT BIT 
^-CONVeRJ TO 1443 CODE -:- « 
SET IN MSG 

CLEAR - 

* 1ST/2ND CHAR SW 

* 

* INTERRUPT SW 

* 

BUMP TO PT TO BUFFER 

GET A CHARACTER 

COME HERE FOR HEX FF 
PUT IN HIGH ORDER BYTE 

SET LOW ORDER TO SP 
STORE IN BUFFER 
jjBUMP-, WORD-COUNT .•..•-■■- "■• 
GET ANOTHER CHARACTER 

IF CHARACTER IS HEX FF 
CHARACTER TO Q 
GET LAST CHARACTER 
BYTE TO LOW POSITION 
COMBINED BYTES IN A 
STORE IN BUFFER 
BUMP SINK 
LOOP UNTIL HEX FF 



FOR 2 443. IF YES GO TO XIO 
053 DO A CARRIAGE RETURN 



2 T45SW-TB 



43/53 SW 
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81229260 

81229270 

81229280 

81229290 

81229300 

81229310 

81229320 

81229330 

81229340 

81229350 

81229360 

81229370 

81229380 

81229390 

81229400 

81229410 

81229420 

81229430 

81229440 

81229450 

81229460 

81229470 

81229480 

81229490 

81229500 

81229510 

81229520 

81229530 

81229540 

81229550 

81229560 

81229570 

81229580 

81229590 

81229600 

81229610 

81229620 

81229630 

81229640 

81229650 

81229660 

81229670 

81229680 

81229690 

81229700 

81229710 

81229720 

81229730 

81229740 

81229750 

81229760 

81229770 

81229780 

81229790 

81229800 

81229810 

81229820 

81229830 

81229840 

81229850 

81229860 

81229870 

81229880 

81229890 

81229900 

81229910 

81229920 

81229930 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 


081 2-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


22 


EC NO. 


431319 


431319A 


431328 



PROG ID 
PAGE 



081 2-B 
22 A 



c 
c 

c 
c 

c 

c 

c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



C C C ( ( ( < ( ( ( ( ( ( ( ( ( ( ( ( (J < .!"'(. (I CI ( (.. (i < o c <."]< 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

2841 DIAGNOSTIC - PHASE 8 

1800 DIAGNOSTIC MAINTENANCE PROGRAM 



1370 


1 


4C04 


139C 


1372 





C253 




1373 


1 


4C18 


1377 


1375 





C2BF 




1376 





D303 




1377 





C2B0 




1378 





EB03 




1379 





D303 





bOD TLG42 BR IF 1443 

PUT TERMINATOR IN MESSAGE 

LD 2 TLGSW+1-TB GET 1ST/2ND CHAR Sw 



137A 1 6500 1419 

13 7C 6936 

137D 1010 

13 7E D252 



137F C032 

1380 1 D400 1418 

1382 7023 



1383 1 6580 13B3 

1385 O C252 

1386 1 4C18 138F 





BZ 




TLG08 


BR IF 2ND CHAR 




LD 


2 


HFFOO-TB 


ELSE GET TERMINATOR 


* 


STO 


3 


3 


PUT IN MESSAGE 


TLG08 


LD 


2 


HOOFF-TB 


GET TERMINATOR 




OR 


3 


3 


PUT IN MESSAGE 


* 


STO 


3 


3 


* 




LDX 


LI 


TLGBA+1 


SET UP BUFFER POINTER 




STX 


1 


TLGSV 


SAVE 




SLA 




16 


CLEAR- 




STO 


2 


TLGSW-TB 


* SECONO CHAR SW 



* 
* 
* 



START LINE WITH A **CARRIAGE RETURN** 

LD TLGCR GET CR CHARACTER 
STO L TLGBA PUT IN OUTPUT AREA 
MDX TLG43 GO PRINT 

COME HERE FROM INTERRUPT ROUTINE IF 1053 



II 

2 



TLGSV 

TLGSW-TB 

TLG09 



1388 





1010 


1389 





D252 


138A 





CI 00 


138B 





1008 


138C 





7101 


138D 





692 5 


138E 





7005 



138F C100 

1390 1808 

1391 1008 

1392 1 6CO0 08D1 

1394 92BF 

1395 1 4C18 13D8 

1397 82BF 

1398 1808 

1399 1 4400 14BD 
139B D07C 



TLGPR LDX 

LD 

BZ 
* 

SLA 

STO 

LD 

SLA 

MDX 

STX 

MDX 

* GET HERE IF PRINTING CHARACTER 1 
TLG09 LD 1 GET CHARACTERS 

SRA 8 •-..- 

SLA 8 

STX L TLGSW SET 2ND CHAR SW 

GET HERE IF PRINTING CHARACTER 2 



16 
2 TLGSW-TB 
1 

8 
1 1 
1 TLGSV 

TLG10 



RESTORE POINTER 
GET 2ND CHAR SW 
BR IF (CHAR 1) 

ELSE RESET SW 
* 

GET CHARACTERS 

SAVE 2ND CHAR 

BUMP POINTER 
SAVE POINTER 

GO TO COMMON RTN 



* 
TLG10 



S 
BZ 

A 

SRA 
BSI 
STO 



HFFOO- 
TLGX2 


•TB 


HFFOO- 
8 

TCV45 
TLGBA 


-TB 



TEST FOR END OF LINE 
BR IF YES 

ELSE RESTORE CHAR 
RIGHT JUSTIFY CHAR 
CONVERT TO 1816 CODE 
PUT IN OUTPUT AREA 



; D0 XIO WRITE- 
PRINT A 
PRINT A 



LINE (1443) 
CHARACTER (1053) 



********************** ftft^^ftftft^ftftftftftftftftftftftftftftftftft 

* 

* 
* 
* 
* 
* 
*************************ft********~*ftftftftftftftftftftftftftft.3 

* 

********************** *************ftftftftftftftftftftftftftftft ft' 



SENSE OSW 
SAVE 

GET 43/53 SW 
SKIP IF 53 
SHIFT 31 FOR 43 
SHIFT 21 FOR 53 
BR IF READY 



139C 0A4F 




TLG42 


XIO 


2 


TLGSN-TB 


139D 18D0 






RTE 




16 


139E C.2DF 






LD 


2 


T45SW-TB 


139F 4804 






SKP 




E 


13A0 108A 






SLT 




10 


13A1 1095 






SLT 




21 


13A2 1 4C10 


13A6 




BNN 




TLG43 
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81229940 

81229950 

81229960 

81229970 

81 229980 

81229990 

81 230000 

81230010 

81230020 

81230030 

81230040 

81230050 

81230060 

81230070 

81230080 

81230090 

81230100 

81230110 

81230120 

81230130 

81 230140 

81230150 

81230160 

81230170 

81230180 

81230190 

81230200 

81230210 

81230220 

81230230 

81230240 

81230250 

81230260 

81230270 

81230280 

81230290 

81230300 

81230310 

81230320 

81230330 

81230340 

81230350 

81230360 

81230370 

81230380 

81230390 

81230400 

81230410 

81230420 

81230430 

81230440 

81230450 

81230460 

81230470 

81230480 

81230490 

81 230500 

81230510 

81230520 

81230530 

81230 540 

812305S0 

81230560 

81230570 

81230580 

81230590 

81230600 

81230610 
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13A4 





42F2 






BSI 


2 


STMLS-TB 


13A5 





70F6 




* 
TLG43 

* 


MDX 




TLG42 


13A6 





.0A4D 




XIO 


2 


TLGW.R-TB 


13A7 





680C 




STX 




TLGIS 


13A8 





C28D 






LD 


2 


TERM-TB 


13A9 





D251 




* 


STO 


2 


TLGCT-TB 


13AA 





42F2 




TLG11 


BSI 


2 


STMLS-TB 


13AB 





COOS 






LD 




TLGIS 


13AC 


1 


4C18 


13D4 




BZ 




TLGXR 


13AE 


1 


74FF 


08D0 




MDX 


L . 


TLGCT.-l 



13B0 70F9 



13B1 70FF 



13B2 





8100 




TLGCR 


DC 


1383 





00 SO 


- : cr. 


TLGSV 


DC 


13B4 





0000 




TLGIS 


DC 


13B5 





0000 




TLGDA 


DC 


13B6 





0000 




TLGIN 


DC 


13B7 


1 


6E00 


13D1 




ST 


13B9 


1 


6600 


087F 




LD 


13BB 





C0F8 






LD 


13BC 





4818 






SK 



13BD 70FF 

13BE 1 OCOO 08D2 

13C0 1 AC28 13C6 

13C2 1002 

13C3 1 4C28 13CE 

13C5 70FF 

13C6 18D0 

13C7 C2DF 

13C8 F297 

13C9 1 4C20 13CE 

13CB 1092 

13CC 1 4C10 13D0 

13CE 1010 

13CF D0E4 

13D0 66000000 

1302 1 4C80 13B6 



13D4 C043 

13D5 1803 

13D6 1 4C20 1383 

13D8 I 6780 OSCC 

13DA 1 6F00 1364 



ELSE GO TO MONITOR 
LOOP UNTIL READY 



SET INT SW 
GET /FFFF 
SET LOOP COUNT 

GO TO MONITOR 
TEST FOR INT 
BR IF IT HAPPENED 



MDX TLG11 LOOP 

********************** ** ***************ftft**ftftftftftftftft 

MDX *-l TRAP STOP 

******************** ****************** **ft ft ftftftft* ftftft $ 
* 

********************* ********************ftftftftftftft ftftft 

* * 

****************************** ****************ftft ftftft 

* 

* PRINT INTERRUPT ROUTINE 

* 

/8100 CARRI AGE*RETURN 
*-* : -'-"■SAVe' f Bb'FFER POINTER"" '■' 
INT SW 

*-* AREA CODE PUT HERE BY MON 

*-* INTERRUPT ENTRY POINT 

SAVE X2 
SET X2 

GET INT SWITCH 
SKIP IF NONZERO 
****************** ************************* *** * ^^^.^ 

MDX *-l TRAP STOP 

*********************************** ft*** ftftft ft ftftft ftftft ftft 

XIO L TLGSR SENSE RESET D SW 

BN TLG12 * BR <■ IP < XF'ER" 'COMPLETE (14-43 

* * OR SVC RESPONSE (1053) 
SLA 2 TEST FOR PRINT COMPLETE 
BN TLG13 BR IF YES 

************************** ft ftft ftft ft ftft ft ftft ftft ftft ftft ft ft o. ft *, ft* 

MDX *-l TRAP STOP 

******** *ft ************* * ** * **** * *ft * ft *ftft ft ftftftftftft , ** ft ft 
TLG12 RTE 16 SAVE DSW 

LD 2 T45SW-TB GET 43/53 SW 
TEST FOR 1443 

BR IF 1053 
GET DSW (PRINT COMPLETE) 



STX L2 TLG13&3 
LDX L2 TB 

TLGIS 

+- 





EOR 


2 


Kl-TB 




BNZ 




TLG13 




SLT 




18 




BNN 




TLG13+2 


* 








TLG13 


SLA 




16 




STO 




TLGIS 




LDX 


L2 


*-* 




BSC 


I 


TLGIN 



CLEAR INT SWITCH 
-- PRESET ! * 2 : ■: 
EXIT INT RTN 



********************** ** ** ** ******* ftft*ftftftftftftftftftftftft * 

* * 

********************** ** ******ftft**ft*****ftftft*ftftftftftftft 

* 



GET WORD CNT 

TEST FOR 10S3 CHAR 
BR IF 1053 

GET BUFFER ADDRESS 
SET PTR TO WORD COUNT 



* 


MONITOR 


COMES H 


* 








TLGXR 


LD 




TLGBA 




SRA 




8 




BNZ 




TLGPR 


* 








TLGX2 


LDX 


13 


TLGWR 




STX 


L3 


TLGBP+1 



81230620 

81230630 

81230640 

81230650 

81230660 

81230670 

81230680 

81230690 

81230700 

81230710 

81230720 

81230730 

81230740 

81230750 

81230760 

81230770 

81230780 

81230790 

81230800 

81230810 

81230820 

81230830 

81230840 

81230850 

81230860 

81230870 

81230880 

81230890 

81230900 

81230910 

81230920 

81230930 

8123094a 

81230950 

81230960 

Jl 230970 

81230980 

81230*90 

81231000 

81231010 

81231020 

81231030 

81231040 

81231050 

81231060 

81231070 

81231080 

81231090 

81231100 

81231110 

81231120 

81231130 

81231140 

81231150 

81231160 

81231170 

81231 180 

81231190 

81231200 

81231210 

81231220 

81231230 

81231240 

81231250 

81231260 

81231270 

81231280 

81231290 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 


0812-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


23 


EC NO. 


431319 


431319A 


431328 



PROG ID 
PAGE 



08 1 2-B 
23A 



( ( ( ( ( ( ( ( < ( ( ( ( < ( ( ( ( ( ( ( ( ( ( ( ( ( < ( ( i () ( ( ( 



r 
C 

c 



c 



r> 



<~ s 



c 
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r 



c 






..y 



13DC 





C299 






LD 


2 


K3-TB 


SET WRO CNT=3 


13DD 





D300 






STO 


3 





*** 


13DE 





7301 






MDX 


3 


1 


fcSUMP POINTER 


13DF 





10A0 






SLT 




32 


SET PID=BLANKS IN 


13E0 





DB01 






STD 


3 


1 


* 


13E1 





D252 






STO 


2 


TLGSW-TB 


RESET 1ST/2ND CHAR 


13E2 





4017 






BSI 




TLGCH 


GET A CHARACTER 


13E3 





7002 






MDX 




TLG15 


HERE IF HEX /OOFF 


13E4 


1 


4C00 


1360 


* 
TLG15 


BSC 


L 


TLG06+3 


ELSE LOOP 


13E6 





4480 


0132 


BSI 


I 


RELDV 


GO RELEASE D VC 


13E8 


1 


0813 






DC 




TLGED 


ADDRS OF ED IT WRO 


13E9 


1 


080C 






DC 




TERM 




13EA 





COOE 






LD 




FRESW 


GET CHNL RELS SW 


13EB 





4820 






BSC 




Z 


SKIP IF NOT SET 


13EC 





42E9 




* 


BSI 


2 


GETDV-TB 


ELSE GET CHNL 


13ED 





1010 




SLA 




16 


RESET- 


13EE 





DOOA 




* 


STO 




FRESW 


* CHNL RELS SW 


13EF 


1 


7401 


13F8 


TLGEN 


MDX 


L 


LEXIT+1 ,1 


BUMP RETURN BY 1 


13F1 





6700 


0000 


TLGX3 


LOX 


L3 


*-* 


RESTORE REG 


13F3 





6500 


0000 




LDX 


LI 


*-* 


RESTORE REG 


13F5 





1010 






SLA 




16 


RESET LOG BUSY SW 


13F6 





D2D5 






STO 


2 


LGBSY-TB 


* 


13F7 





4C00 


0000 


LEXIT 

* 


BSC 


L 


*~* 


EXIT PRINT RTN 


13F9 





0000 




FRESW 


DC 







CHNL RELEASED SW 



MESSAGE 



SW 



13FA 

13FB 

13FD 

13FE 1 

1400 1 

1402 

1403 

1404 



1405 
1406 
1407 
1408 
1409 
140A 
140B 



0000 

6500 0000 

C253 

4C20 1405 

6C00 08D2 

C100 

1808 

7007 

1010 
D253 
C100 
1008 
1808 
7101 
69F0 



*************** ******************************#***** 

* * 
*********************************************.(..*.(.:{. $3 

* FETCH ONE CHARACTER FROM SOURCE MESSAGE 

* 

*-* ENTRY POINT 

LI *-* SET UP POINTER 

2 TLGSW+1-TB GET 1/2 CHAR SW 



TLGCH DC 
LDX 
LD 
BNZ 
STX 
LD 
SRA 
MDX 

* 

TLG16 SLA 
STO 
LD 
SLA 
SRA 
MDX 
STX 



140C 
140E 
140F 



1413 
1415 



4C20 140F 

C24F 

F2B0 

1410 1 4C98 13FA 
1412 F2B0 

7401 13FA 

4C80 13FA 



* 
TLG17 



1418 0000 

1418 0000 

1419 0003 
141C 0032 



BNZ 
LD 

TLG18 EOR 
BZ 
EOR 
MDX 
BSC 

* 

BSS 

TLGBA DC 

PRNT 
BSS 



TLG16 BR IF SET 

TLGSW+1 SET 1/2 CHAR SW 
GET TWO CHARACTERS 

8 KEEP HIGH ORDER ONE 

TLG17 GO TO CMN RTN 

16 CLEAR 1ST/2ND CHAR SWITCH 

TLGSW+1-TB *** 

GET TWO CHARACTERS 
8 KEEP LOW ORDER ONE 
8 **** 

1 BUMP SOURCE POINTER 
TLGCH+2 SAVE 



TLG18 

TLGSP-TB 

HOOFF-TB 

TLGCH 

HOOFF-TB 

TLGCH, 1 

TLGCH 



SET TO SPACE IF ZERO 
*** 
TEST FOR HEX FF 
EXIT IF HEX FF 
RE-INVERT IT 
BUMP RETURN ADORESS 
EXIT THIS RTN 





*-* 



XXXX. 



50 



WORD COUNT FOR PRNT CINE 
PID GOES HERE 
LENGTH OF BUFFER 

********************** *********#****:£**££*.(:$.);*;£- £*$ 

♦ ^^♦♦S^***************************************,:*; 

♦ ♦♦S*********************** **************;{,£*,(:£****$ 



81235 300 

81231310 

81231320 

81231330 

812313*0 

81231350 

81231360 

81231370 

81231380 

81231390 

81231400 

81231410 

81231420 

81231430 

81231440 

81231450 

81231460 

81231470 

81231480 

81231490 

81231500 

81231510 

81231520 

81231530 

81231540 

81231550 

81231560 

81231570 

81231580 

81231590 

81231600 

81231610 

81231620 

81231630 

81231640 

81231650 

81231660 

81231670 

81231680 

81231690 

81231700 

81231710 

81231720 

81231730 

81231740 

81231750 

81231760 

81231770 

81231780 

81231790 

81231800 

81231810 

81231820 

81231830 

81231840 

81231850 

81231860 

81231870 

81231880 

81231890 

81231900 

812 31910 

81231920 

81231930 

81231940 

81231950 

81231960 

81231970 
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144E 



144E 





18D0 




144F 





400E 




1450 





1008 




1451 





D2C4 




1452 





4008 




1453 





EAC4 




1454 





D2C4 


* 
* 


1455 





4008 




1456 





1008 




1457 





D2C5 




1458 





4005 




1459 





EAC5 




145A 





1890 




145B 





C2C4 




145C 


1 


4C80"' OB'7-4 





***=S************S=*****************s?**=? ************* 

* CONVERT HEX WORD TO 1443 CODE 

* 
*************************************************** 

* * 
*************************************************** 
TCVBN EQU 
* 

RTE 

BSI 

SLA 

STO 

BSI 

OR 

STO 



16 

TCV01 

8 
2 TCVS1-TB 

TCV01 
2 TCVS1-TB 
2 TCVS1-TB 



ENTRY. POINT 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



BSI 

SLA 

STO 

BSI 

OR 

SRT 

LD 

BSC 



TCV01 

8 
2 TCVS2-TB 

TCVOl 
2 TCVS2-TB 

16 
2 TCVS1-TB 
I TCVBE 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



145E 0000 

145F 1010 

1460 1084 

1461 1 4C20 1466 

1463 C2A6 

1464 1 4C80 145E 



1466 





929E 




1467 





4830 




1468 





82AA 




1469 





&2Z9&' 


It, i c. 


146A 


1 


4C80 


145E 



*-* 

16 
4 

TCV02 
2 HOOOA-TB 
I TCVOl 

2 K9-TB 

Z- 
2 H0027-TB 
2 K9-TB 

I TCVOl 



ENTRY 

BR IF NOT ZERO 

0=/0A 
EXIT 

SUBTRACT 9 

ADD BACK A CONSTANT 

EXIT 



TCVOl DC 
SLA 
SLT 

BNZ 

LD 

BSC 

* 

TCV02 S 

SKP 

A 

A 
* 

BSC 
* 
*************************************************** 

* * 
*************************************************** 

* WAIT FOR I/O INTERRUPT 
*************************************************** 

* * 
*************************************************** 
* 

ENTRY POINT 

SET TIMEOUT COUNTER 

* 

FETCH WAIT SWITCH 

BRANCH IF SET 

DEC WAIT COUNTER 
LOOP BACK AND WAIT 

* 

* 
* 



146C 









TINTS 


EQU 




* 


14 6C 





C28D 






LD 


2 


TERM-TB 


146D 





D22B 




* 
TINS2 


STO 


2 


SCSN1-TB 


146E 





C26F 




LD 


2 


WIOSW-TB 


146F 


1 


4C20 


147D 


* 


BNZ 




TINS3 


1471 


I 


74FF 


08AA 


MDX 


L 


SCSN1 ,-1 


1473 





70FA 






MDX 




TINS2 



COME HERE IF TIMEOUT 



14 74 





0A2B 


1475 





D241 


14 76 





0A2F 


1477 





0242 


14 78 





0A31 


1479 





D243 


14 7A 





0A33 



XIO 
STO 
XIO 
STO 
XIO 
STO 
XIO 



2 SCSN1-TB 

2 SCSXC-TB 

2 SCSN3-TB 

2 SCSXC+1-TB 

2 SCSN4-TB 

2 SCSXC+2-TB 

2 SCSN5-TB 



GET SELECTOR CHANNEL AND 
UNIT STATUS. 

* 
* 
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81231980 

81231990 

81232000 

81232010 

81232020 

81232030 

81232040 

81232050 

81232060 

81232070 

81232080 

81232090 

81232100 

81232110 

81232120 

81232130 

81232140 

81232150 

81232160 

81232170 

81232180 

81232190 

81232200 

81232210 

81232220 

81232230 

81232240 

81232250 

81232260 

81232270 

81232280 

81232290 

81232300 

81232310 

81232320 

81232330 

81232340 

81232350 

81232360 

81232370 

81232380 

81232390 

81232400 

81232410 

81232420 

81232430 

81232440 

81232450 

81232460 

81232470 

81232480 

81232490 

8 12 32 50 CL 

81232510 

81232520 

81232 530 

81232 540 

81232550 

81232560 

81232570 

81232580 

81232 590 

81232600 

81232610 

81232 620 

81232630 

81232 640 

81232650 
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PROG ID 


0812-B 


DATE 


14N0V69 


30JAN70 


15SEP71 


PAGE 


24 


EC NO. 


4313 19 


431319A 


431328 



PROG ID 
PAGE 



OB 12-8 

24A j 



(PC (((((<<(((((((((<((<<( c c ( ( ( < <i (i ( :|c 



c 

c 
c 
c 
c 

c 
c 

o 
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c 
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c 
c 

c 

^\ 
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147B D244 STO 

147C 7006 MOX 



2 SCSXC+3-TB 
TINS4 



147D 1 7401 088C 

14 7F 1010 

1480 D26F 

1481 1 4C80 088C 



TINS3 MDX L WAITS. + 1 
SLA 16 

STO 2 WIOSW-TB 

BSC I WAITS 



GO TO ERROR RETURN 

BUMP RETURN 

RESET WAIT I/O SW 

# 

RETURN TO USER 



1483 


1 


C480 


088C 


1485 





D003 




1486 





1010 




1487 





D26F 




1488 





4C00 


0000 



SET-UP ERROR RETURN 

* 

RESET-WAIT SW 

RETURN TO USER 



148A 
148C 
148D 
148E 
148F 
1490 



1 4CA8 0877 

1890 

AAA5 

100C 

DOOD 

1004 



TINS4 LD I WAITS 
STO *+3 

SLA 16 

STO 2 WIOSW-TB 

BSC L *-* 
* 

*************************************************** 

* * 

*************************************************** 
* 

* CONVERT HEX TO DECIMAL, A REG TO A REG 
* 

* *** CALL - BSI 2 TCVHD-TB *** 

*************************************************** 

* * 
*************************************************** 
* 

EXIT IF NEG 



1491 AAA1 

1492 1008 

1493 E809 

1494 D008 

1495 1008 



1496 





AA9F 




1497 





108C 




1498 





180C 




1499 





1084 




149A 





E802 




149B 


1 


4C80 


0877 



THEXD BN 
SRT 
D 

SLA 
STO 
SLA 

* 

D 

SLA 

OR 

STO 

SLA 

* 

D 

SLT 

SRA 

SLT 

OR 

BSC 



I TCVHD 
16 
2 K1000-TB 
12 

THEXS 
4 

2 K100-TB 
8 

THEXS 
THEXS 
8 

2 K10-TB 
12 
12 
4 

THEXS 
I TCVHD 



MOST SIGNIFICANT DIGIT 
POSITION D IGIT 

CLEAR A REG 

NEXT SIGNIFICANT DIGIT 
POSITION D IGIT 



CLEAR A REG 

NEXT SIGNIFICANT DIGIT 
COMBINE LAST TWO DIGITS 

*** 

*** 



149D 0000 



TEMP STORAGE 



149E 





0000 




149F 





6B0A 




14A0 


1 


6780 


0815 


14A2 


1 


C700 


14AD 


14A4 





1890 




14A5 


1 


6780 


0800 


14A7 


1 


C700 


14AC 



THEXS DC 

* 
*************************************************** 

* * 
*************************************************** 
*************************************************** 

* * 
*************************************************** 

* 

* CALL BSI L TCVSR 

* GET AQ = SPACE/SECT/SPACE/RTN 

* 
*************************************************** 

* * 
*************************************************** 
TCVSR DC *-* 

STX 3 TCVSZ+i SAVE REG 

LDX 13 TRID GET ROUTINE NUMBER 

LD L3 DIGIT GT PRINTABLE CODE 

SRT 16 A TO Q 

LDX 13 TSID GET SECT NUMBER 

LD L3 DlGIT-1 GET PRINTABLE CODE 
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81 232660 
81232670 
81232680 
81232690 
81232700 
81232710 
81232720 
81232 730 
81232740 
81232750 
81232760 
81232 770 
81232780 
81232790 
81232800 
8 1232810 
81232820 
81232830 
81232840 
81232850 
81232860 
81232870 
81232880 
81232890 
81232900 
81232910 
81232920 
81232930 
81232940 
81232950 
81232960 
81232970 
81232980 
81232990 
81233000 
81233010 
81233020 
81233030 
81233040 
81233050 
81233060 
81233070 
81233080 
81233090 
81233100 
81233110 
81233120 
81233130 
81233140 
81233150 
81233160 
81233170 
81233180 
81233190 
81233200 
81233210 
81233220 
81233230 
81233240 
81233250 
81233260 
81233270 
81233280 
81233290 
81233300 
81233310 
81233320 
81233330 



.•a 79468 
25 
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14A9 6700 0000 
14A8 1 4C80 149E 



14AD 



0016 



14BD 
14BE 
14BF 
14C0 
14C2 
14C3 
14C4 
14C5 
14C6 



0000 

6B45 

D043 

6700 14D6 

10A0 

C300 

18C8 

F03D 

4C18 14CF 



14C8 1088 

14C9 E2B0 

14CA F2B0 

14CB 1 4C18 14D1 

14CD 7301 

14CE 70F4 

14CF 18D0 

14D0 4818 

14D1 C030 

14D2 1 6700 1504 

14D4 1 4C80 14BD 



14D6 
14D7 
14D8 
14D9 
14DA 
14DB 
14DC 
14DD 
14DE 
14DF 
14E0 
14E1 
14E2 
14E3 
14E4 
14E5 
• 14E6 
14E7 
14E8 
14E9 
14EA 
14EB 
14EC 
14ED 
14EE 
14EF 



313E 
321A 
33 IE 
3432 
3536 
3612 
3716 
3826 
3922 
217E 
225A 
235E 
2472 
2576 
2652 
2756 
2866 
2962 
129A. 
139E 
1482 
15B6 
1692 
1796 
18A6 
19A2 



*-* 
TCVSR 



RESTORE 
EXIT 



REG 



. 1 

******* 



2 3 

***** 



4 5 6 7 

******** 



TCVSZ LDX L3 

BSC I 
* 
DIGIT PRNT- 

************: 

* 

******************: 

* 

* CONVERT 1443 CODE TO 1816/1053 CODE 
* 

*************************************************** 

* * 
*************************************************** 



89.ABC, DEF. 

******************* 
* 
******************************** 



TCV45 



TCV03 



* 
TCV04 



DC 

STX 

STO 

LDX 

SLT 

LD 

RTE 

EOR 

BZ 

SLT 

AND 
EOR 

BZ 

MDX 
MDX 

XCH 
SKP 



L3 



*-* 

TCVSV+1 

TCVSV 

TCVTB 

32 



8 

TCVSV 

TCV04 



8 

HOOFF- 
HOOFF- 
TCVEN 



TB 

TB 



3 1 



TCV03 



SAVE 1443 CHAR 
SET UP POINTER 

CLEAR AQ 

PICK UP NEXT ENTRY IN TBL 

DELETE TR CHAR 
TEST CHAR 

CHAR COMPARES 

RESTORE Q REG=0 
SET UP TO TEST 
* FOR TERMINATOR 
GO TO END ROUTINE 

INC POINTER 
RETURN TO LOOP 



RESTORE 
EXIT 



TR CHAR 



* 
TCVEN 



LD 

LDX 

BSC 



L3 

I 



TCVSP SET UP SPACE 

TCVSV+1 RESTORE XR3 

TCV45 EXIT 

*************************************************** 
* * 

*************************************************** 



TCVTB 



14F0 01FC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 



/313E 
/321 A 
/331E 
Z3432 
/3536 
/3612 
/3716 
/3826 
Z3922 
/217E 
/225A 
/235E 
/2472 
/2576 
Z2652 
Z2756 
/2866 
/2962 
/129A 
/139E 
/14B2 
/15B6 
/1692 
/1796 
/18A6 
/19A2 

/01FC 



A( 1443. TILT-ROTATE) 

B 

C 

D 
E 
F 
G 
H 
I 
J 
K 
L 
M 

N ' " 

O 
P 
Q 
R 
S 
T 
U 
V 

w 

X 
V 

z • - i. - 

1 ( 1443 .TILT-ROTATE > 
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81233340 

81233350 

81233360 

81233370 

81233380 

81233390 

81233400 

81233410 

81233420 

81233430 

81233440 

81233450 

81233460 

81233470 

81233480 

81233490 

81233500 

81233510 

81233520 

81233530 

81233540 

81233550 

81233560 

81233570 

81233580 

81233590 

81233600 

81233610 

81233620 

81233630 

81233640 

81233650 

81233660 

81233670 

81233680 

81233690 

81233700 

81233710 

81233720 

81233730 

81233740 

81233750 

81233760 

81233770 

81233780 

81233790 

81233800 

81233810 

81233820 

81233830 

81233840 

81233850 

81233860 

81233870 

81233880 

81233890 

81233900 

81233910 

81233920 

81233930 

81233940 

81233950 

81233960 

81233970 

81233980 

81233990 

81234000 

81234010 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
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081 2-B 
25 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



PROG ID 
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081 2-B 
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c 

c 

c 
c 

c 
o 
c 
c 
c 
c 
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14F1 





02D8 




DC 


/02D8 


14F2 





03DC 




DC 


/03DC 


14F3 





04FO 




DC 


/04F0 


14F4 





05F4 




DC 


/05F4 


14F5 





0600 




DC 


/06D0 


14F6 





070 4 




DC 


/07D4 


14F7 





08E4 




DC 


/08E4 


14F8 





09E0 




DC 


/09E0 


14F9 





0AC4 


* 


DC 


/0AC4 


14FA 





0021 


DC 


/0021 


14FB 





2CD6 




DC 


/2CD6 


14FC 





1CFE 




DC 


/1CFE 


14FD 





3CF6 




DC 


/3CF6 


14FE 





11BC 




DC 


/11BC 


14FF 





2084 




DC 


/2 084 


1500 





0BC2 
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